Soru Hücre Rengine Göre Otomatik Saati Girsin

[Taz61]

Merhaba.Şöyle bir sorunum var . A2,A5,A8,A10 hücrelerinin rengi açık yeşil (renk kodu :#66ff00) ise, C8,C10,C12,C15 hücrelerine otomatik olarak geçerli saati girilsin istiyorum.
Yardımı olacaklara şimdiden çok teşekkür ediyorum

 

[ÖmerFaruk]

Anlatımınıza göre makroyu elle tetiklemeniz gerekecek.
Açık Yeşil =43

Sub RenkSaat()
    Dim hcr As Range
    For Each hcr In Range("A2,A5,A8,A10")
        If hcr.Interior.ColorIndex = 43 Then hcr.Offset(, 2) = Format(Now(), "hh:mm")
    Next hcr
End Sub

Not: Sorunuzu yanlış anlamışım .dikkate almayın.

 

[Greenblacksea53]

Sub Renk()
Sheets("Sayfa2").Range("a1:c15").ClearContents
For i = 1 To 10
If Cells(i, "A").Interior.Color = RGB(102, 255, 0) Then
Range("C8").Value = Format(Now, "dd mmmm yyyy hh:mm:ss")
Range("C10").Value = Format(Now, "dd mmmm yyyy hh:mm:ss")
Range("C12").Value = Format(Now, "dd mmmm yyyy hh:mm:ss")
Range("C15").Value = Format(Now, "dd mmmm yyyy hh:mm:ss")
End If
Next i
End Sub

Excel'de modül ekleyip yukarıdaki kodları yapıştırın düğmeye atayın. Koddaki sayfa2ismini sayfa adınızla değiştirin lütfen.... Tarih görmek istemiyorsanız dd mmmm yyyy olanları silin..

 

[Taz61]

Sub Renk()
Sheets("Sayfa2").Range("a1:c15").ClearContents
For i = 1 To 10
If Cells(i, "A").Interior.Color = RGB(102, 255, 0) Then
Range("C8").Value = Format(Now, "dd mmmm yyyy hh:mm:ss")
Range("C10").Value = Format(Now, "dd mmmm yyyy hh:mm:ss")
Range("C12").Value = Format(Now, "dd mmmm yyyy hh:mm:ss")
Range("C15").Value = Format(Now, "dd mmmm yyyy hh:mm:ss")
End If
Next i
End Sub

Excel'de modül ekleyip yukarıdaki kodları yapıştırın düğmeye atayın. Koddaki sayfa2ismini sayfa adınızla değiştirin lütfen.... Tarih görmek istemiyorsanız dd mmmm yyyy olanları silin..

Anlatımınıza göre makroyu elle tetiklemeniz gerekecek.
Açık Yeşil =43

Sub RenkSaat()
    Dim hcr As Range
    For Each hcr In Range("A2,A5,A8,A10")
        If hcr.Interior.ColorIndex = 43 Then hcr.Offset(, 2) = Format(Now(), "hh:mm")
    Next hcr
End Sub

Not: Sorunuzu yanlış anlamışım .dikkate almayın.

Sorun değiil.
Yine de teşekkür ederim