Populate combobox with UK date format

[tiredofit]

I want a set of dates on Sheet1 to populate a combobox on a userform.

Private Sub UserForm_Initialize()

    Dim DateRng As Range
    Set DateRng = Sheet1.Range("A1:A100")
    
    Me.cmbDates.List = DateRng.Value
    
    Me.cmbDates.Value = Format(cmbDates, "dd/mmm/yyyy")

End Sub

Despite the dates on Sheet1 are dd/mmm/yyyy format, when the userform pops up, it reverts to mm/dd/yyyy.

How can I change it?

Thanks

 

[dmt32]

Hi,
try this update to your code & see if does what you want

Private Sub UserForm_Initialize()

    Dim DateRng As Range, cell As Range
    
    Set DateRng = Sheet1.Range("A1:A100")
    
    For Each cell In DateRng.Cells
        If IsDate(cell.Text) Then Me.cmbDates.AddItem cell.Text
    Next cell
    

End Sub

Dave

 

[tiredofit]

Hi,
try this update to your code & see if does what you want

Private Sub UserForm_Initialize()

    Dim DateRng As Range, cell As Range
   
    Set DateRng = Sheet1.Range("A1:A100")
   
    For Each cell In DateRng.Cells
        If IsDate(cell.Text) Then Me.cmbDates.AddItem cell.Text
    Next cell
   

End Sub

Dave

Thanks, that's exactly what I wanted.

 

[dmt32]

Thanks, that's exactly what I wanted.

welcome glad resolves issue & appreciate feedback

Dave