DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
teşekkür ederimbiçim/koşullu biçimlendirme menüsünden yapabilirsiniz.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
Target.Offset(, -3).Font.ColorIndex = Target
Son:
End Sub