• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Kosullu Yazdirma

Katılım
4 Ekim 2007
Mesajlar
632
Excel Vers. ve Dili
OFFİCE 365
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.
 
Merhaba,
Ek dosyayı inceleyiniz...


Kod:
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
 
Geri
Üst