Değişkenin bulunduğu satırları renklendirme?

[vollkhann]

Merhaba, bir değişken atayıp, bu değişkenin bulunduğu satırları renklendirmek istiyorum. Bunu aşağıdaki şekilde, bulunan ilk hücre için yapabiliyorum ama değerin bulunduğu diğer hücrelerin satırlarında yapamıyorum. Yardımcı olur musunuz?

Sub Macro5()

    Cells.Find(What:="deger", LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, MatchCase:= _
        False, SearchFormat:=False).Activate
    satir = ActiveCell.Row
    If ActiveCell.Value = "deger" Then
       Rows(satir).Interior.ColorIndex = 6
    
    End If
End Sub

Teşekkürler

 

[vollkhann]

Nasıl yapıldığını buldum, ihtiyacı olan varsa aşağıya ekledim.

For Each r In ActiveSheet.UsedRange
If r.Value = "Değer" Then 'Değer yerine aradığınız değer veya değişkeni yazın
r.EntireRow.Interior.ColorIndex = 6 'Sarı rengi seçtim
End If
Next