DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = 0 Then Target.Interior.ColorIndex = 6
If Target <> 0 Then Target.Interior.ColorIndex = xlNone
End Sub
sayın hiçdurmaz ilginize teşekkür ederim dediğiniz gibi yaptım fakat hücrelerden herhangi birine 0 değerini girdiğimde renkli olmuyor.Sayfa kod bölümüne uygulayınız
Kod:Private Sub Worksheet_Change(ByVal Target As Range) If Target = 0 Then Target.Interior.ColorIndex = 6 If Target <> 0 Then Target.Interior.ColorIndex = xlNone End Sub