Merhaba Arkadaşlar. Aşağıdaki kodla textbox5 yazılan verileri listede süzüyorum. Fakat bu kod sadece kelimenin en başındaki harf veya rakama göre süzme yapıyor. kod yapısını bozmadan kelimenin ortasından veya farklı bir alanından da sözcük yazdığımda süzme nasıl yaptırabilirim.
- Kod: Tümünü seç
Sub listele()
Dim fdl, k As Integer
Dim deg1, deg2 As String
Dim sf As Worksheet
Set sf = Sheets("stok")
ListBox1.RowSource = vbNullString
ListBox1.ColumnCount = 7
ListBox1.ColumnWidths = "80;300;50;50;50;50;50"
ReDim fdl(1 To 7, 1 To 1)
a = a + 1
ReDim Preserve fdl(1 To 7, 1 To a)
For k = 1 To 7
fdl(k, a) = sf.Cells(1, k)
Next k
a = a + 1
ReDim Preserve fdl(1 To 7, 1 To a)
For k = 1 To 7
fdl(k, a) = ""
Next k
For i = 2 To sf.Cells(65536, "b").End(xlUp).Row
deg1 = UCase(Replace(Replace(TextBox5, "ı", "I"), "i", "İ"))
deg2 = UCase(Replace(Replace(sf.Cells(i, 2), "ı", "I"), "i", "İ"))
If TextBox5.Text = "" Then GoTo atla
If deg1 = Left(deg2, Len(TextBox5)) Then
atla:
a = a + 1
ReDim Preserve fdl(1 To 7, 1 To a)
For k = 1 To 7
fdl(k, a) = sf.Cells(i, k)
Next k
End If
Next i
If a > 0 Then ListBox1.Column = fdl
Erase fdl
End Sub
Özel Arama
