Witam.
Mam kod tego typu
Sub kopiuj()
slowo = LCase(InputBox("Podaj szukaną frazę"))
If MsgBox("Usunąć stare dane? ", vbYesNo + vbQuestion, "potwierdź") = vbYes Then
Rows("2:65536").Clear
ostWrs = 4
Else
ostWrs = Range("D65536").End(xlUp).Row + 1
End If
For i = 1 To Sheets.Count - 1
With Sheets(i)
TheEnd = .Range("D65536").End(xlUp).Row
For j = 1 To TheEnd
If LCase(.Cells(j, 4)) = slowo Then
.Rows(j).Copy Cells(ostWrs, 1)
Cells(ostWrs, 8) = .Name
ostWrs = ostWrs + 1
End If
Next
End With
Next
End Sub
Działa jak trzeba, z tą różnicą że wyszukuje konkretne słowo. Jeżeli wpiszę "test" a wartość w komórce będzie "test 1" to pominie. Próbowałem już wersji
If LCase(.Cells(j, 4)) = "slowo*" Then
oraz
If LCase(.Cells(j, 4)) Like "slowo*" Then
i niestety bez żadnego skutku. W jaki sposób poprawić kod, aby wyszukiwał również opisane przeze mnie wartości?
Pozdrawiam. |
wstecz 1 dalej
otwarty rozpoczął: domel86
postów: 3
admin
