Çözüldü Hücre Renkli ise saati girsin

Merhaba .Resimde de anlatmaya çalıştığım şöyle bir sorunum var .Koşullu biçimlendirilen AR1 (I1) , AR2(J1) ve devam eden bir çok hücrelerin rengi açık yeşil(=43) olduğunda , AR1(I1) için C8 hücresine , AR2(J1) için C25 hücresine geçerli saati girsin .
Not : Hepsini tek tek yazmamak için belirteyim .Bu işlemi 30'a yakın farklı hücre için yapmak istiyorum
Şimdiden yardımı olacak herkese çok teşekkür ederim

Merhaba
aşşağıdaki kod ile işinizi çözebilirsiniz. ifleri kopyalayıp çoğaltarak yapabilirsin. iyi çalışmalar.


Private Sub Worksheet_Change(ByVal Target As Range)
If Range("I1").Interior.ColorIndex =43 Then
Range("c8").Value = Format(Now, "hh:mm") ' ı1 hücresi açık yeşil ise c8 e geçerli saati doldur
End If

If Range("j1").Interior.ColorIndex =43 Then
Range("c25").Value = Format(Now, "hh:mm") ' j1 hücresi açık yeşil ise c25 e geçerli saati doldur
End If

End Sub

Çok Teşekkür ederim