DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Option Explicit
Sub Font_Color_White()
Range("A198:L225").Font.ColorIndex = 0
If WorksheetFunction.CountBlank(Range("H10:H28")) = 19 Then
Range("A198:L225").Font.ColorIndex = 2
End If
End Sub
Hızlı dönüşünüz için teşekkürler. Ancak, kod hata vermiyor ama, hiçbir değişiklik olmuyor.Deneyiniz.
C++:Option Explicit Sub Font_Color_White() Range("A198:L225").Font.ColorIndex = 0 If WorksheetFunction.CountBlank(Range("H10:H28")) = 19 Then Range("A198:L225").Font.ColorIndex = 2 End If End Sub
Sub FontRenk()
If Range("H10").Value = "" Then
Range("A198:L225").Font.Color = vbWhite
Else
Range("A198:L225").Font.Color = vbBlack
End If
End Sub
Sub FontRenk2()
Dim h As Range
Dim bos_hucreler As Boolean
For Each h In Range("H10:H28")
If h.Value = "" Then
bos_hucreler = True
Exit For
End If
Next h
If bos_hucreler Then
Range("A198:L225").Font.Color = vbWhite
Else
Range("A198:L225").Font.Color = vbBlack
End If
End Sub
Sayın Korhan Aydın, Özür dilerim, bir harf kaydırmışım. Kodunuz çalışıyor. Çok teşekkür ederim.Hızlı dönüşünüz için teşekkürler. Ancak, kod hata vermiyor ama, hiçbir değişiklik olmuyor.