VBA da koşullu biçimlendirme

[ultraslan38080]

A8:V20 arası ile Z8:AA20 arası hücreler boşken sarı, dolu iken de yeşil olması için vba ile kod yazmaya çalıştım ancak takıldığım yer oldu. Yardımcı olur musunuz?

Hücrenin boşkenki kodunu şu şekilde yazdım.

Sheets("SAYFA").Range("Z8:AA20,A8:V20").FormatConditions.Add Type:=xlExpression, Formula1:= _
        "Hücre boş değer içermez"
Sheets("SAYFA").Range("Z8:AA20,A8:V20").FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Sheets("SAYFA").Range("Z8:AA20,A8:V20").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
    End With

yukarıdaki kodda
Formula1:= _
"Hücre boş değer içermez" yazılı yerde hata olduğunu düşünüyorum.

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu sayfanızın kod kısmına kopyalayın.

Belirttiğiniz hücrelerde bir işlem yapıldığında kodlar çalışacak ve işlem yapılan hücrenin rengini istediğiniz şekilde değiştirecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bak As Range
    For Each Bak In Target
        If Not Intersect(Bak, Range("Z8:AA20,A8:V20")) Is Nothing Then
            If Bak = "" Then
                Bak.Interior.Color = 65535
            Else
                Bak.Interior.Color = 5287936
            End If
        End If
    Next
End Sub