Yazı rengi değişimi

[k0081]

Merhaba arkadaşlar;

F8-G8-H8-I8 hücrelerinden herhangi birine tıkladığımda B8 deki yazı rengim kırmızı olsun..
(B8:B19 mevcut yazı rengi : mavidir.)

***************
bu seçim-uygulama aralığıda ;

F8-G8-H8-I8 = B8
F9-G9-H9-I9 = B9
F10-G10-H10-I10 = B10
...
...
...
...
...
...
...
...
F19-G19-H19-I19 = B19

F19 ile başlayan kısım son olmak üzere 12 satırda geçerli olmalıdır..

Yardımcı arkadaşa şimdiden teşekkürler..

 

[mancubus]

ilgili sayfanın kod modülün kopyalayın.
renk değiştiktren sonra o şekilde kalır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("F8:I19")) Is Nothing Then
        Cells(Target.Row, "B").Font.Color = vbRed
    End If
End Sub

 

[k0081]

ilgili
renk değiştiktren sonra o şekilde kalır.
************

hocam çok teşekkür ediyorum. tamamdır.. "renk değiştiktren sonra o şekilde kalır" bunu önceki renge getirmesini sağlayabilirmiyiz.. seçilen hücre haricinde ki renk mavi kalsın..

olabiliyorsa.. çok da sıkıntı değil.. tekrar teşekkür ediyorum.. saygılar..

 

[Cetin2305]

Benzer bir sorunum var

Eğer E4 de "Gü" yazıyor ise, B4 hücresindeki yazıyı kırmızı yapsın ve bu şartın, sayfanın aşağısına kadar uygulanması gerekiyor. yani E sütununda herhangi bir satırda "Gü" yazıyor ise B sütununda aynı satırdaki yazının kırmızı olması gerekiyor.
Şimdiden teşekkür ederim.

 

[mancubus]

ilgili
renk değiştiktren sonra o şekilde kalır.

************

hocam çok teşekkür ediyorum. tamamdır.. "renk değiştiktren sonra o şekilde kalır" bunu önceki renge getirmesini sağlayabilirmiyiz.. seçilen hücre haricinde ki renk mavi kalsın..

olabiliyorsa.. çok da sıkıntı değil.. tekrar teşekkür ediyorum.. saygılar..

normalde mavi idi değil mi?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("F8:I19")) Is Nothing Then
        Range("B8:B19").Font.Color = vbBlue
        Cells(Target.Row, "B").Font.Color = vbRed
    End If
End Sub

 

[k0081]

normalde mavi idi değil mi?

Evet hocam mavi idi.. Tamamdır, çok teşekkür ediyorum. sağolasın..