Hucre rengine Gore Font rengini degistirme

[mustafaine1]

Arkadaslarlar, b sutunundaki degerlerin rengine gore c ve d sutunundaki yinele formulunun yazilarinin renginin degismesini yani ayni olmasin istiyorum..

 

[Orion1]

Eksi değrler için font.colorindex sonuç üretmiyor.
Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [F:F]) Is Nothing Then Exit Sub
On Error Resume Next
If IsNumeric(Target.Value) Then
    Target.Offset(0, 1).Font.ColorIndex = Target.Value
    Target.Offset(0, 2).Font.ColorIndex = Target.Value
End If
End Sub

 

[mustafaine1]

Tesekkurler evren bey; sandigim gibi kullanisli bir sey olmayacak sanirim tam rengi dahi almiyor, yinede cok tesekkur ederim, kaydettim dosyayi kolay gelsin..

 

[Orion1]

Tesekkurler evren bey; sandigim gibi kullanisli bir sey olmayacak sanirim tam rengi dahi almiyor, yinede cok tesekkur ederim, kaydettim dosyayi kolay gelsin..

Rica ederim.

 

[mustafaine1]

bu arada vba`ya yeni baslayan biri olarak target ve offset kullanimlarini ogrenmis oldum tesekkurler..