UserFormda tarih formatı değişikliği

[Gold_Savt]

Değerli arkadaşlar;
Userformdaki textboxlara excel hücerelerinden tarih bilgisi çekiyorum. İlginç bir biçimde
Ayın 12'sinden önce olan yerler ay/gün/yıl şeklinde geliyor.
Ayın 12'sinden sonra olan yerler gün/ay/yıl şeklinde geliyor.
Normalde olması gereken hem listboxta hem de texboxta "dd.mm.yyyy" formatında gelmesi.
İki gündür çaresini bulamadım.

 

[Haluk]

Sub ara()
    Dim s As String, u As Integer, con As Object
    ListBox1.ColumnCount = 3
    ListBox1.ColumnWidths = "80;80;80"
    ListBox1.Clear
    
    Set con = CreateObject("adodb.connection")
    
    con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 12.0;HDR=No;IMEX=1'"
    
    s = "select format(f8,'dd.mm.yyyy'), format(f11,'dd.mm.yyyy'), format(f12,'dd.mm.yyyy') from [Giris$A5:DZ65000] where f1 is not null "
    
    ListBox1.Column = con.Execute(s).GetRows
    con.Close
    Set con = Nothing
End Sub

Private Sub ListBox1_Click()
    Cells(ListBox1.ListIndex + 5, 1).Select
    TextBox9.Value = ListBox1.Column(0)
    TextBox12.Value = ListBox1.Column(1)
    TextBox13.Value = ListBox1.Column(2)
End Sub

.

 

[Gold_Savt]

Çok teşşekkür ederim. Büyük dertten kurtardınız.
UserForma "arama" textbox'ı koyduğumuzda da sorunsuz çalışabilir mi tarihler.