spin button ile listviewdw filtreleme hk.

[kemal turan]

merhaba,
Hocalarımızın çalışması olan aşağıdaki kod ile listview de filtre yapıyorum.
E sutunu tarih olduğu için veri filtreleme yapmıyor.
format ile ilgili değişiklikler yaptım olmadı.
Metin olan diğer sutunlarda kod çalışıyor.
kodun neresinde değişiklik yapmak gerekiyor.
teşekkür ederim.

Private Sub SpinButton1_SpinDown()
GUNLUKKASA.TextBox1 = Format(CDate(GUNLUKKASA.TextBox1.Value) + 1, "dd.mm.yyyy")

Set SH = Sheets("VERITABANI")
Ara = GUNLUKKASA.TextBox1.Value
    Set bulunacak = SH.Range("E:E").Find(Ara) 'VERİ HANGİ SÜTUNDA ARANACAK
    If Not bulunacak Is Nothing Then
       Adres = bulunacak.Address
       GUNLUKKASA.ListView1.ListItems.Clear
       Do
            sat = bulunacak.Row
            With GUNLUKKASA.ListView1
               .ListItems.Add , , SH.Cells(sat, 5)
                X = X + 1
                With .ListItems(X).ListSubItems
                     .Add , , SH.Cells(sat, 6)
                     .Add , , SH.Cells(sat, 7)
                     .Add , , SH.Cells(sat, 8)
                     .Add , , SH.Cells(sat, 9)
                     .Add , , SH.Cells(sat, 10)
                     .Add , , SH.Cells(sat, 11)
                     .Add , , SH.Cells(sat, 12)
                     .Add , , SH.Cells(sat, 13)
                     .Add , , SH.Cells(sat, 14)
                     .Add , , SH.Cells(sat, 15)
                     .Add , , SH.Cells(sat, 16)
                     
                    .Add , , sat
                End With
             
End With
                
                
             
            Set bulunacak = SH.Range("E:E").FindNext(bulunacak)
        Loop While Not bulunacak Is Nothing And bulunacak.Address <> Adres
    Else
        MsgBox "ARANAN GÜN KAYITLI DEĞİL", vbCritical, "ARAMA SONUCUNDA HATA"
        ListeGuncelle1
        
    End If
End Sub

 

[PLİNT]

Merhaba
Aşağıdaki gibi denedinizmi?

Set bulunacak = SH.Range("E:E").Find([COLOR="Blue"]DateValue(Ara)[/COLOR]) 'VERİ HANGİ SÜTUNDA ARANACAK

 

[kemal turan]

Merhaba Sn.Pilin hocam
Çok teşekkür ederim

Selametle kalınız