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