Filtrelenen Hücrelerin renklendirilmesi

[meyill]

Bir excel tablosunu filtrelediğimde sadece görünen hücrelerin ardışık iki renk ile renklenmesini (görünmesini) istiyorum. Buna uygun bir makro hazırlanabilir mi?
Herşey için teşekkürler...

 

[hamitcan]

Kaynak: http://stackoverflow.com/questions/...ltered-data-rows-in-excel-with-hidden-columns

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rowIndex As Range
With Worksheets(1)
Cells.Interior.Color = xlNone
    For Each rowIndex In .UsedRange.Rows
        If rowIndex.Hidden = False Then
        If rowIndex.Row = 1 Then GoTo 10
        If renk = "sarı" Then
            Range("a" & rowIndex.Row & ":" & "b" & rowIndex.Row).Interior.Color = vbBlue
            renk = "mavi"
            GoTo 10
         Else
            Range("a" & rowIndex.Row & ":" & "b" & rowIndex.Row).Interior.Color = vbYellow
            renk = "sarı"
            GoTo 10
        End If
        End If
10
    Next rowIndex
End With
End Sub

 

[meyill]

Teşekkürler..