display date instead of number

[RPT_22]

Hi

I am using a combobox on my userform to select a date
The combobox currently has 3 options for dates:
18/11/2021
19/11/2021
20/11/2021
The combobox look at a sheet which has the 3 dates [cells are formatted as date]
=today()-2
=today()-1
=today()
The issue i have is the dates are displayed correctly in the userform combobox but when i select a date such as 20/11/2021 it is displayed as 44520 in the combobox but does transfer onto a sheet as a date
How do i fix this so the actual date is displayed in the combobox?

Other option: Is there a vba code for displaying the dates in the userform combobox which uses vba code therefore no need to look at another sheet for the dates

Thanks

 

[RPT_22]

Pressure Test
Thank you

I get a Run-time error `70`
Permission denied

Thank you

 

[mohadin]

Just Check

 

[RPT_22]

Hi

Yes these are correctly labelled

If i remove the vba code from post #2 then the userform opens with no error

Thank you

 

[mohadin]

Take a look at this

https://www.dropbox.com/s/gbykwq5tfasx72d/4_5843627366433163894.zip?dl=0

 

[uk747]

I get a Run-time error `70`
Permission denied

Thank you

For this error try clearing before populating

Private Sub UserForm_Initialize()
Me.ComboBox1.rowsource = ""
Me.ComboBox1.List = Application.Transpose(Sheets("sheet1").Range("N1:N3").Value)
End Sub

 

[RPT_22]

Take a look at this

https://www.dropbox.com/s/gbykwq5tfasx72d/4_5843627366433163894.zip?dl=0

Sorry i could not open..kept getting (404) error

 

[RPT_22]

For this error try clearing before populating

Private Sub UserForm_Initialize()
Me.ComboBox1.rowsource = ""
Me.ComboBox1.List = Application.Transpose(Sheets("sheet1").Range("N1:N3").Value)
End Sub

Hi,

Yes this solve the error....thanks

What would have caused the error:
Run-time error `70`
Permission denied

Thank you

 

[uk747]

Hi,

Yes this solve the error....thanks

What would have caused the error:
Run-time error `70`
Permission denied

Thank you

Usually caused when rowsource has already been set