Herhangi bir Hücre Boş ise...

[woyzeck]

Merhaba Arkadaşlar,

Benim sormak istediğim aşağıda verdiğim örnekteki gibi bi kod nasıl yazabilirim.

belirli aralıklardaki hücrelerin herhangibiri dolu ise ÇALIŞ demek istiyorum

Örn:

if sheets("sayfa1").range("a1") <> "" and sheets("sayfa1").range("a2") <> "" sheets("sayfa1").range("a3") <> "" sheets("sayfa1").range("a4") <> "" then goto 1

else 

...

Yukarıdaki kod "Sayfa1'de a1 ila a4 arasındaki hücrelere herhangi bir değer girildi ise" 'nin karşılığı.

Ama bunu daha kısa yazabileceğim bir yöntem var mıdır? çünkü yazacağım kontrol aralığı a1 ila a100 arasında olacaktır.

Şimdiden teşekkürler

 

[Orion1]

İşte kodlar.

If WorksheetFunction.CountA(Range("A1:A100")) > 0 Then
    MsgBox "Dolu hücre var"
    Else
    MsgBox "Dolu hücre yok"
End If

 

[woyzeck]

Çok Teşekkürler Evren Bey...