Renkli Hücrenin altına farklı renkte yazdırma

[cerselog]

Değerli arkadaşlar örnek olarak A5 Hücresinin yazı rengi kırmızı iken hemen altındaki hücre olan B5 Hücresinin yazı renginin mavi olmasını istiyorum. yani üstte kırmızı varsa altta mavi yazsın, değilse normal siyah yazmaya devam etsin istiyorum. yardımcı olursanız sevinirim.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Offset(-1, 0).Font.ColorIndex = 3 Then
Target.Font.ColorIndex = 5
Else
Target.Font.ColorIndex = 1
End If
End Sub

 

[cerselog]

Ekli dosyayı görüntüle 45735

Değerli arkadaşlar ekli dosyada vermiş olduğum listelerden yüzlece oluyor. bunların altındaki kırmızı renkli toplamların altına yazmış olduğum rakamların larcivert olmasını istiyorum. ayrıca otomatik toplam yaptığım zaman bunlarında kendiliğinden kırmızı olmasın istiyorum. yardımcı olursanız sevinirim.

 

[ockucukay]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Offset(-1, 0).Font.ColorIndex = 3 Then
Target.Font.ColorIndex = 5
Else
Target.Font.ColorIndex = 1
End If
End Sub

sayın cerselog

sayın N.Ziya Hiçdurmaz hocam sorunuzun cevabını vermiş zaten. ne istediğinizi anlamadım.