Listboxta Tarihe Göre Listeleme

[cemilk]

Hocalarım aşağıdaki kodlarla userform üzerindeki listbox a verileri alıyorum.

Textbox8 de bulunan tarihe göre süzmesini istiyorum ama yapamadım yardımcı olurmusunuz. Hatayı nerede yapıyorum.

Tarih kısmı b sütununda.


Private Sub TextBox8_Change()
On Error Resume Next
Dim k As Range, adr As String, x As Long, sat As Long
ListBox1.RowSource = vbNullString
With Sheets("data")
sat = .Cells(65536, "B").End(xlUp).Row
Set k = .Range("B2:B" & sat).find(TextBox8.text, xlValues, xlWhole)
If Not k Is Nothing Then
adr = k.Address
Do
ListBox1.AddItem
ListBox1.List(x, 0) = .Cells(k.Row, "B").Value
ListBox1.List(x, 1) = .Cells(k.Row, "C").Value
ListBox1.List(x, 2) = .Cells(k.Row, "D").Value
ListBox1.List(x, 3) = .Cells(k.Row, "E").Value
ListBox1.List(x, 4) = .Cells(k.Row, "F").Value
ListBox1.List(x, 5) = .Cells(k.Row, "G").Value
ListBox1.List(x, 6) = .Cells(k.Row, "H").Value
ListBox1.List(x, 7) = Cells(k.Row, "I").Value
x = x + 1
Set k = .Range("B2:B" & sat).FindNext(k)
Loop While Not k Is Nothing And k.Address <> adr
End If
End With
End Sub

Teşekkür ederim.

 

[Orion1]

igili satırı aşağıdaki ile değiştirip deneyiniz

Set k = .Range("B2:B" & sat).find([B][COLOR="Red"]cdate([/COLOR][/B]TextBox8.text[B][COLOR="Red"])[/COLOR][/B], xlValues, xlWhole)

 

[cemilk]

olmadı hocam dosyayı gönderiyorum hata nerde söylermisiniz. Size zahmet olmazsa birde extre diye bir form var iki tarih arası görüntülemek için eksiğini söylermisiniz.

ilginize Teşekkür ederim.

 

[zafer]

Merhaba

Aşağıdaki gibi deneyiniz

    Set k = .Range("B2:B" & sat).Find(CDate(TextBox8.Text))

Sn.Evren bey'in 7 nolu mesajın ekli dosyasına bakınız
http://www.excel.web.tr/showthread.php?t=77504&highlight=iki+tarih

 

[cemilk]

Hocam cevabınız için sağolun.

Diğer sorum sıralama değil listbox ekranında iki tarih arasını süzerek raporlamak.

İlginize teşekkür ederim.

Kolay gelsin.

 

[zafer]

Merhaba


Sn.Levent beyin örnek dosyası

 

[cemilk]

Levent beyin o örnek dosyasını kopyaladım zaten örnek dosyayı indirdim çalışmadı bende aldım benim tablonun içine attım yine çalışmadı mecburen yardım istedim.

 

[zafer]

Merhaba


çalışmadığının sebebi nedir.Hata kodu veriyormu veya hangi satırda hataya düşüyor

 

[cemilk]

Teşekkür ederim hal oldu hocam ekran butonuna bastığımda sayfa hatası uyarısı veriyordu ekran olayını kaldırdım yetiyor bana teşekkür ederim.