B hücresindeki harfe göre A hücresini boyama

[iaslan517]

Merhabalar, 3 harften oluşan renklendirme sistemimiz var. R-Kırmızı, N-Sarı, Y-Yeşil. B sütunundaki hücrelerde bu harflerden hangisi yazıyorsa yanındaki A hücresini o renge boyayan makro çalıştırılabilirmi? Yardımlarınızı rica ediyorum,

 

[AdemCan]

Merhabalar;
Makrosuz, Koşullu Biçimlendirme ile de yapılabilir.

- Koşullu Biçimlendirme \ Biçimlendirilecek Hücreleri Belirlemek İçin Formül Kullan 'ı seçiniz ve sırası ile şu formülleri yazınız.

- Kırmızı renk için =$B1="R" yazıp, Biçimlendir \ Dolgu sekmesinden Kırmızıyı seçiniz.

- Sarı renk için =$B1="N" yazıp, Biçimlendir \ Dolgu sekmesinden Sarıyı seçiniz.

- Yeşil renk için =$B1="Y" yazıp, Biçimlendir \ Dolgu sekmesinden Yeşili seçiniz.
Not: 3 formülünde Uygulama Hedefi =$A:$A 'dır.

 

[iaslan517]

Hücreler dolgu rengi olarak işaretlenmez ise makrolar çalışmıyor. Bu çalışmanın makro ile dolgu olarak yapılabilmesi mümkünmü?

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfa ismine sağ tıklayıp Kod Görüntüle deyince çıkan sayfaya yapıştırıp deneyin:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target = "R" Or Target = "r" Then
    Target.Offset(0, -1).Interior.Color = vbRed
ElseIf Target = "N" Or Target = "n" Then
    Target.Offset(0, -1).Interior.Color = vbYellow
ElseIf Target = "Y" Or Target = "y" Then
    Target.Offset(0, -1).Interior.Color = vbGreen
Else
    Target.Offset(0, -1).Interior.Color = xlNone
End If
End Sub