İSTENİLEN ŞARTLARI SAĞLAMIYORSA YAZDIRMA

[nolcun]

ÝSTENÝLEN ÞARTLARI SAÐLAMIYORSA YAZDIRMA

ÇALIÞMA KİTABINDA BAZI HÜCRELERE MUTLAKA VERİ GİRİLMESİ GEREKİYOR. YAZDIR KOMUTUNA BASILDIÐINDA, BELİRTİLEN HÜCRELERDE İSTENİLEN VERİLER YOKSA YAZDIRMASIN. MESELA: A1 B40 E5 E20 HÜCRELERİ BOÞ İSE YAZDIRMASIN.
Bunun için makro veya bir yol gösterecek arkadaşlar var ise bekliyorum, Teşkkür ederim... :kafa:

 

[veyselemre]

[vb:1:3a41772762]
If [A1] = "" Or [B40] = "" Or [E5] = "" Or [E20] = "" Then
MsgBox "Sayfada Eksik Bilgi Olduğundan Yazdırılamadı"
Else
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
[/vb:1:3a41772762]

 

[nolcun]

SAYIN veyselemre yardımın için teşekkür ederim ama çalışmadı...

 

[Haluk]

Veysel bey'in kodunu, ufak bir ilaveyle ThisWorkbook modulune yerleştirin;

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If [A1] = "" Or [B40] = "" Or [E5] = "" Or [E20] = "" Then
        MsgBox "Sayfada Eksik Bilgi Olduğundan Yazdırılamadı"
        Cancel = True
    Else
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    End If
End Sub

 

[veyselemre]

bu kodun çalışması için yazdırma işleminin makro ile yapılması gerekir, ekteki dosyayı inceleyin