Çözüldü Kod Yardımı

[cavanoos]

Merhaba arkadaşlar;

Alttaki kodda Z (ZVAL) hücresinde 1 varsa ise işlem yapar, sıfır ise yapmaz.
Benim yapmak istediğim ise hücre boş ise işlem yapmasın.
Yani ZVAL= 0 değilde ZVAL = boş
Kodu bu şekilde düzenleyebilir misiniz ?

ElseIf Not IsError(Application.Match(EVal, listZ, 0)) And (ZVal = 0 Or AVal > 0 Or BVal > 0) Then
ws.Cells(k, "L").Interior.Color = vbYellow

 

[mustafa1205]

ElseIf Not IsError(Application.Match(EVal, listZ, 0)) _
And (IsEmpty(ZVal) Or ZVal = "" Or AVal > 0 Or BVal > 0) Then
ws.Cells(k, "L").Interior.Color = vbYellow


Deneyiniz...

 

[cavanoos]

Mustafa1205;

İlginiz için teşekkür ederim ama kod çalışmadı.
Fakat sorun kodun başka bir satırında imiş, çözüldü.