How to change date format in listbox and combobox

[EzzatHesham]

Hello, everyone
I made an userform for filtering data based on dates. The userform has 1combobox it contains the dates data and its placed in: sheet7.range("h2:h69").
and 1listbox it contains the filtered data and its placed in:
Sheet9.range("l1").currentregion.
And that data showed in listbox contains another dates in column (m) in sheet and column 2 in listbox.
My problem is the date format.
Dates appears in combobox and listbox like (mm-dd-yyyy).
Any help to fix it to appears (dd-mm-yyyy)
Thanks.

 

[DanteAmor]

You should change the way the combobox and listbox are loaded, to something like this:

Private Sub UserForm_Activate()
  Dim c As Range
  Dim i As Long
  
  For Each c In Sheet7.Range("H2:H69")
    ComboBox1.AddItem Format(c.Value, "dd/mm/yyyy")
  Next
  
  With ListBox1
    For i = 1 To Sheet9.Range("M" & Rows.Count).End(3).Row
      .AddItem
      .List(.ListCount - 1, 0) = Sheet9.Range("I" & i).Value
      .List(.ListCount - 1, 1) = Format(Sheet9.Range("M" & i).Value, "dd/mm/yyyy")
    Next
  End With
End Sub