Soru Tarih formatını comboboxa çekme problemi hk.

[balanar]

Dim objDict As Object, myRng As Range, xRng As Range
    
    Set objDict = CreateObject("Scripting.Dictionary")
    Set myRng = Range("M2:M" & Cells(65536, "A").End(xlUp).Row)
    
    For Each xRng In myRng
       If xRng.Value <> "" Then objDict(xRng.Value) = 1
    Next
    
    ComboBox2.List = objDict.keys

    
    Set objDict = Nothing
    Set myRng = Nothing

M2'den M sutunu tarih formatında..

3.05.2021
16.07.2021
3.05.2021


Userform'da Combobox2'ye tarih verileri benzersiz şekilde geliyor yukarıdaki kod ile.

Fakat combobox'da



Şu şekilde geliyor. Bunu nasıl düzeltebilirim?

 

[Muzaffer Ali]

Merhaba.

If xRng.Value <> "" Then objDict(xRng.Value) = 1

Value Text olarak değiştirin.

If xRng.Value <> "" Then objDict(xRng.text) = 1

 

[balanar]

Combobox2 = Format(Combobox2, "dd.mm.yyyy")

Change olayına bunu yazıncada, Raporla deyincede veriyi eşleştirip veri yok diyor.

 

[balanar]

Merhaba.

If xRng.Value <> "" Then objDict(xRng.Value) = 1

Value Text olarak değiştirin.

If xRng.Value <> "" Then objDict(xRng.text) = 1

dediğinizi yaptım. Combobox'a doğru tarih geliyor. Ama raporla deyince veri yok diyor hocam. Bu değişiklik olmadan önce raporla deyince veri geliyordu mesela

 

[EmrExcel16]

Merhaba , Muzaffer Ali bey'in dediğini yaptıktan sonra kod içindeki Aranan = ComboBox2.Value bu bölümü , şu şekilde Aranan = CDate(ComboBox2.Value) değiştirip deneyin.

 

[balanar]

@EmrExcel16 çok teşekkür ediyorum sorun çözüldü..