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

 

[mohadin]

Hi
Try this method

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

 

[RPT_22]

Thank you
Where do i place the code as i get the following error. Commandbutton2 is on a sheet called Data_Entry and opens the userform

Private Sub CommandButton2_Click()
Pressure_Test.Show [this is highlighted yellow]
End Sub

Thank you

 

[mohadin]

Is Pressure_Test the name of Userform?
And have you changed this

Sheets("sheet1").Range("N1:N3").Value

I mean sheet1 and the range you are using?

 

[RPT_22]

Hi
Yes Pressure_Test is the name of Userform
Yes i did change the values and sheet name

Thank you

 

[mohadin]

Ok
Where did u insert the code in #2?

 

[mohadin]

 

[RPT_22]

hi

I inserted the code in the forms folder [Pressure_Test userform]

Commandbutton2 code which opens the userform is in sheet2

Thank you

 

[mohadin]

Pressure_Test userform Or Pressure_Test

 

[RPT_22]

Pressure Test
Thank you