Aşağıdaki Kod ile Şahıs sayfasındaki verilerden TextBox1'e girdiğim kritere uyan verileri görüyorum, ancak örneğin TextBox'a 2011/5 yazdığımda hem 2011/5 hemde 2011/50 görünüyor, yani 2011/5 verisini içeren tüm veriler görüntüleniyor. Sadece 2011/5'i görüntülemek için ne gibi bir düzenleme yapılması gerekiyor. Saygılarımla..
Kod:
Private Sub TextBox1_Change()
Set sf = Sheets("ŞAHIS")
ListBox1.Clear
ListBox1.ColumnCount = 27
ReDim fdl(1 To 27, 1 To 1)
a = a + 1
ReDim Preserve fdl(1 To 27, 1 To a)
For k = 1 To 27
fdl(k, a) = sf.Cells(1, k)
Next k
For I = 2 To sf.Cells(65536, "f").End(xlUp).Row
For sütun = 1 To 27
If WorksheetFunction.CountIf(sf.Cells(I, sütun), "*" & TextBox1.Text & "*") > 0 Then
z = z + 1
End If
Next
If z > 0 Then
a = a + 1
ReDim Preserve fdl(1 To 27, 1 To a)
For k = 1 To 27
fdl(k, a) = sf.Cells(I, k)
Next k
End If
z = 0
Next I
If a > 0 Then ListBox1.Column = fdl
Erase fdl
End Sub