zorunlu alanlar çıktı denetimi hk.

[alialtiner]

zorunlu hücreler doldurulmadan printerden çıktı alamasın istiyorum. bunu nasıl yapabilirim. yardımlarınız için şimdiden teşekkür ederim.

 

[uzmanamele]

Merhaba

Çalışma kitabı kod bölümüne yazarak deneyiniz.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Range("A1") = "" Then
MsgBox "A1 hücresi boş"
Cancel = True
End If
End Sub

 

[alialtiner]

Merhaba

Çalışma kitabı kod bölümüne yazarak deneyiniz.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Range("A1") = "" Then
MsgBox "A1 hücresi boş"
Cancel = True
End If
End Sub

selamlar;
denedim ancak beceremedim. rica etsem örnek boş bir dosya ekleyebilirmisiniz?
bir diğer sorumda birden fazla hücre için aynı uygulamayı nasıl yaparım yardımcı olurmusunuz? örneğin A1,A2,C8,C9 hücrelerde boş olunca yazdırmasın.

 

[uzmanamele]

Merhaba
Deneyiniz.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Range("A1") = "" Or ActiveSheet.Range("A2") = "" Or ActiveSheet.Range("C8") = "" Or ActiveSheet.Range("C9") = "" Then
MsgBox "Eksik verileri giriniz"
Cancel = True
End If
End Sub

 

[alialtiner]

Merhaba
Deneyiniz.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Range("A1") = "" Or ActiveSheet.Range("A2") = "" Or ActiveSheet.Range("C8") = "" Or ActiveSheet.Range("C9") = "" Then
MsgBox "Eksik verileri giriniz"
Cancel = True
End If
End Sub

merhaba;
sarı alanlar doldurulmadan yazdıramama işlemi başarılı oldu teşekkür ederim.
E,F,G sütunlarındaki onay kutucukları var. F5 ve F6 seçerse printerden çıktı almaya izin versin.
bunu nasıl yapabilirim, yardımcı olurmusunuz. yukardaki makroya nasıl ekleyebilirim.
şimdiden teşekkürler.

 

[uzmanamele]

Merhaba

Deneyiniz.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Range("C1") = "" Or ActiveSheet.Range("C2") = "" Or ActiveSheet.Range("C3") = "" Then
MsgBox "SARI RENKLİ ALANLARI LÜTFEN DOLDURUNUZ!!!"
Cancel = True
End If

    If ActiveSheet.CheckBox1 = False Or ActiveSheet.CheckBox2 = False Then
    MsgBox "ONAY KUTULARINI LÜTFEN DOLDURUNUZ!!!"
    Cancel = True
    End If
End Sub