Makroyu seçili hücreye değilde Hücre rengine göre uygulatmak mümkün müdür?

[x_files_x]

Merhaba arkadaşlar elimde işyerimdeki excel cetvelimi sıfırlamak için hergün kullandığım bir makro kodu var, saolsun bu koduda burdan yardım isteyerek almıştım, bir kaç gündür aklıma bir soru takıldı, ben mesela bu makroyu bir satıra uygulayacagım zaman sadece o satırda herhangi bir hücreye tıklayıp uygulatıyordum, yada bir kaç satır alt alta tıklayıp diğerlerinede uyguluyordum ancak, yapmak istediğim şey şu:
Ben tek tek satırları bulup uygulatmak yerine hücrenin yazı rengi yada arkaplan rengine göre uygulatmak mümkün mü diye soracaktım,
benim sıfırlamama şöyle:
P hücresindeki sayıyı al ve onu G hücresine yapıştır
sonra arada kalan H ve O dahil olmak üzere tüm hücrelerini sil boş bırak
Bendeki seçime uyguladığım kod budur, bunu bana renge göre yapabilecek bir yiğit var mı acaba?

Sub SIFIRLA()

With Selection
    ilk_sat = .Row
    son_sat = .Rows.Count + ilk_sat - 1
End With

For i = ilk_sat To son_sat
Cells(i, "G") = Cells(i, "P")
Range("H" & i & ":O" & i) = ""
Next i

End Sub

 

[YUSUF44]

Aşağıdaki kodlar A1'den A100'e kadar hücre rengi sarı olan satırlarda belirttiğiniz işlemi yapar:

Sub SIFIRLARENK()

For i = 1 To 100
    If Cells(i, "A").Interior.Color = 65535 Then
        Cells(i, "G") = Cells(i, "P")
        Range("H" & i & ":O" & i) = ""
    End If
Next i

End Sub