excelde hücre boş ise dosyanın yazdırılmasını engellemek

[gozdeyagci]

Merhaba,

Excel çalışma kitabında "c2 hücresi boş ise dosyayı yazdırma" yani çıktısını almasını engellemek için bir makro yazmak istiyorum. Ancak aşağıdaki kodu yazdığımda çıktı almasını engellemek yerine çıktı almama izin veriyor. Acaba mesajımın başında yazmış olduğum amacı gerçekleştirecek bir kod öneriniz var mı?


Private Sub Workbook_BeforePrint(Cancel As Boolean)

Cancel = True

End Sub

 

[hamitcan]

Aşağıdaki kodu, ThisWorkBook kısmına ekleyin.

 Private Sub Workbook_BeforePrint(Cancel As Boolean)
If [c2] = "" Then Cancel = True
End Sub

 

[turist]

VBA sayfanızda Çalışma Kitabı(ThisWorkbook) kısmına;

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim cevap As Long
If Sheets("SAYFANIZINADI").Range("C2").Value = "" Then

cevap = MsgBox("C2 Hücresinde VERİ YOK yine de yazdıracakmısınız?", vbYesNo + vbDefaultButton2)
 If cevap <> 6 Then
Cancel = True
    End If
    End If

End Sub

yazarsanız, yazdırmak için size mesaj kutusu ile sorar .
"SAYFANIZINADI" kısmını kendi sayfanızı yazarak değiştirin.
Eğer, sormadan otomatik yazdırmasın isterseniz;

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Sheets("SAYFANIZINADI").Range("C2").Value = "" Then
Cancel = True
    End If
End Sub

şeklinde uygulayabilirsiniz.

 

[cgtyy90]

Teşekkür ederim. sayenizde bende faydalandım