Excel Visual Basic! Hogy tudom megoldani, hogy vizsgálja meg a C oszlopot annak érdekében, hogy ha egy bizonyos szöveget megtalál benne, akkor annak a cellának a teljes sorát színezze szürkére vagy bármire?

Sub szinez()

MitKeres = "xxx"

For Each rw In Worksheets("munka1").Range("C:C").Rows

If InStr(1, Cells(rw.Row, 3), MitKeres) > 0 Then

Rows(Str(rw.Row) & ":" & Trim(Str(rw.Row))).Select

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.ThemeColor = xlThemeColorDark1

.TintAndShade = -0.499984740745262

.PatternTintAndShade = 0

End With

End If

Next rw

End Sub