Naletel sem na težavo pri iskanju več različnih stringov znotraj teksta. Spodaj prilagam kodo, ki sem si jo pripravil za iskanje enega stringa:
Koda: Izberi vse
Sub filtriranje()
Dim SearchString As String
Dim SearchChar As String
SearchChar = InputBox("Vnesi ključno besedo:")
t = ActiveSheet.Range("a65536").End(xlUp).Row
For v = t To 3 Step -1
SearchString = Cells(v, 4).Text
If InStr(SearchString, SearchChar) = 0 Then
Rows(v).Delete
End If
Next
End Sub
Podobne kode na vašem forumu nisem našel, mogoče sem preveč na hitro pogledal
Hvala za pomoč.
Lep dan
Gregor