Excel de bir hücre veya kolon boşsa o sayfadaki bir paragraf boş çıksın

[dgnch]

Merhaba

Örnek olarak H10 veya H10:H28 aralığı boş ise A198:L225 aralığındaki yazılar görünmesin, boş değilse yazılar görünsün (bu yazılar içinde çalışan formül var).
Bunu makro ile nasıl yazarım.
Teşekkürler.

 

[Korhan Ayhan]

Deneyiniz.

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

 

[dgnch]

Deneyiniz.

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.

 

[RBozkurt]

Merhaba,
Deneyiniz.

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

 

[dgnch]

Hızlı dönüşünüz için teşekkürler. Ancak, kod hata vermiyor ama, hiçbir değişiklik olmuyor.

Sayın Korhan Aydın, Özür dilerim, bir harf kaydırmışım. Kodunuz çalışıyor. Çok teşekkür ederim.
Selamlar.