aynı tarihlerden birtane göster

[akd]

Merhaba arkadaşlar,
aşşağıdaki kodla Sayfadan combobox'a tarihler alıyorum,
metinsel karekterlerde normal çalışıyor, tarihlerde istedigim sonucu alamıyorum,
aynı tarihlerden birtane göstermesini istiyorum
Private Sub UserForm_Activate()
Set wsh = Sheets("fihrist")
sonsatir = wsh.Range("A65536").End(xlUp).Row
For i = 1 To sonsatir
p1 = wsh.Cells(i, 20)
If WorksheetFunction.CountIf(wsh.Range("t2:t" & i), p1) = 1 Then tarih.AddItem (p1)
Next i
end sub

 

[Levent Menteşoğlu]

tarih.AddItem cdate(p1) şeklinde deneyin. Daha doğrusu tüm P1 leri date(p1) şeklinde deneyin.

 

[akd]

Merhaba Sayın leventm,
Malesef bu kod hata veriyor ikisinide denedim
tarih.AddItem cdate(p1)
tarih.AddItem date(p1)

 

[akd]

Ã?zür dilerim arkadaşım,
Cdateyi diger p1 in önüne koyunca sorunum çözüldü,
çok çok teşekkür ederim...

 

[maviyaz]

tarih.AddItem datevalue(p1) olarak dene.

 

[Levent Menteşoğlu]

Kodu şimdi denedim hiç hata vermedi,ekteki örneği inceleyin.