makro ile hücreye değer yazdırma

[sadi_52]

değerli uzman kardeşler denedim ama başaramadım bir şey yapmak istedim ama olmadı mesala sayfa 1 de a1 hücresinin rengi kırmızı ise sayfa 2 de a1 hücresine a yazzın sarı ise b yazzın bu işlem a sütunu boyunca yinelensin böyle bir şeyi makro ile yapmam mümkünmü acaba

 

[hamitcan]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Interior.Color = vbRed Then
    Sayfa2.Cells(Target.Row, "a") = "a"
    ElseIf Target.Interior.Color = vbYellow Then
    Sayfa2.Cells(Target.Row, "a") = "b"
    End If
End Sub

 

[sadi_52]

sayın hamit can cevabınız için teşekkür ederim kodu kullandım ama bir sonuç alamadım acaba nasıl kullanacağım hakkında yardımcı olurmusunuz birde anlatında ifade yanlışlığı yapmışım hücre rengi demişim hcre rengi değilde hücre içine yazılan değerin rengini dikkate alabilirmiyiz acaba verini rengi kırmızı yada sarı olursa bu kural geçerli olsun

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak ekteki örnek dosyayı incelermisiniz.

 

[pylor]

Sayın korhan dosyanız işime yaradı teşekkür ederim