VBA form Date format

[MarkA99]

Does anyone know how to the change the date format in a ComboBox on a form when the dates are entered from a worksheets range into an array.
I've tried the format command but it doesn't work in my syntax.

The code which enters the dates is as follows:

Public Sub cboCDate_Enter()
' Routine to populate Course Dates
Sheets("Course_DB").Activate
Dim x&
With Sheets("Course_DB")
For x = 2 To .Cells(Rows.Count, "V").End(xlUp).Row
cboCDate.AddItem (.Range("V" & x).Value)
Next x
End With

cboCDate.Value = Format(cboCDate, "dd/mm/yyyy")
End Sub

 

[Richard Schollar]

Hi Mark

Just change the Additem line to format it as you eneter it:

cboCDate.AddItem (Format(.Range("V" & x).Value,"dd/mm/yyyy")

 

[VoG]

Maybe like this

Public Sub cboCDate_Enter()
' Routine to populate Course Dates
Dim x As Long
With Sheets("Course_DB")
    For x = 2 To .Cells(Rows.Count, "V").End(xlUp).Row
        cboCDate.AddItem Format(.Range("V" & x).Value, "dd/mm/yyyy")
    Next x
End With
End Sub

 

[MarkA99]

Thanks for the prompt response. It work perfectly.