Kosullu Yazdirma

[kneehot]

Arkadaslar Merhaba.İstedigim Sey Olabiliyormu Bilmiyorum Ama Yinede Bir Denemek Istedim Sansimi.yapmak Istedigim Aciklama Sutununun Bos Birakilmasi Durumunda Sayfayi Yazdirmaya Izin Vermemesi.ornegin Icindede Anlattim Ordan Daha Kolay Anlasilir Sanirim.ilgilenen Herkese Tesekkurler.yardimlarinizla Gercekten Yapamayacagim Seyleri Yaptim Islerim Kolaylasti Tekrar Tesekkur Ederim.

 

[Ayhan Ercan]

Merhaba,
Ek dosyayı inceleyiniz...

Private Sub CommandButton1_Click()
Dim i As Long, j As Long
i = [a65536].End(3).Row
For j = 2 To i
If Cells(j, "d") = "" Then
MsgBox Cells(j, "d").Address(0, 0) & " hücresi boş geçilemez!", vbCritical, "UYARI"
Exit Sub
End If
Next j
ActiveSheet.PrintOut
End Sub