Witam,
Pmoże mi ktoś zapętlić coś takiego:
If Cells.Find(What:="*KION*", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate Then
Rows(ActiveCell.Row).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 10092543
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
chodzi mi o to, żeby znaleźć wyraz KION po znalezieniu zaznaczyć wiersz i pokolorować go (nie ma znaczenia kolor idt). Powyższe działa tzn. znajduje wyraz zaznacza wiersz i koloruje go... jak zrobić żeby to szło w pętli?
Będę bardzo wdzięczny za pomoc.
Pozdrawiam