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
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