boş hücre hatası

[d_yuksel]

merhabalar ben yazdır butonuna;

bir hücre boş ise hata vermesi ve işlemi durdurması ile ilgili bir komut yazmak istiyorum yardımcı olursanız çok sevinirim.

 

[yeniyetme]

Basit bir örnek aşağıda veriyorum. eğer a6 hücresi boş ise yazdırma işlemini yapmıyor..Siz kendinize göre ayarlarsınız.

If [a6] = "" Then
MsgBox "Boş hücre var"
Else
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=y, Copies:=1, Collate _
:=True
End If

 

[d_yuksel]

yardımlarınız için teşekkürler ama yazdırma işlemini durdurmuyor.

 

[d_yuksel]

Sub YAZDIR()
If Sheets("Ana Sayfa").[C12] = "" Or Sheets("Ana Sayfa").[C12] = 0 Then
MsgBox "LÜTFEN TAKSİT SAYISINI KONTROL EDİNİZ !", vbCritical, "DİKKAT !"
Exit Sub: End If
On Error GoTo Hata
Sheets(Sheets("Ana Sayfa").[C12] & " Snt").PrintOut
Exit Sub
Hata:
MsgBox "YAZDIRMAK İSTEDİĞİNİZ SAYFA BULUNAMAMIŞTIR !", vbCritical, "DİKKAT !"
End Sub


bu komuta c9 hücresi eğer boşsa yazdırma işlemini durdurmasını istiyorum.

 

[Orion1]

Aşağıdaki satırda C12 yazan yerlere C9 yazınız.
If Sheets("Ana Sayfa").[C12] = "" Or Sheets("Ana Sayfa").[C12] = 0 Then