Yazdırmadan önce eksik bilgi konrolü

[DADAFU]

Merhaba arkadaşlar,
Aranıza yeni katıldım ve sormak istediğim bir konu var. ben bir seyahat acentasında çalışıyorum ve ek'te bir otel kayıt formu var.
bazı acenta çalışanlarımız dolgu rengi olmayan hücreleri doldurmadan
müşteriye veriyor ve daha sonra sıkıntı yaşıyoruz.

1 - Bu hücreleri doldurmadan formu yazdıramasınlar istiyorum
2 - Doldurulmayan hücreler için ise excel'in uyarı vermesini istiyorum.

konuyla ilgili yardımcı olursanız sevinirim.

Enez KAPLAN

 

[doganbaris]

Makro ile, BeforePrint eventinda kontrol etmek istediğin hücrelerin, kontrol etmek istediğin kriterlere uyup uymadığını kontrol edebilir, uymadığı durumlarda işlemi exit sub veya cancel=true komutu ile kesebilirsiniz.

 

[DADAFU]

Makro ile, BeforePrint eventinda kontrol etmek istediğin hücrelerin, kontrol etmek istediğin kriterlere uyup uymadığını kontrol edebilir, uymadığı durumlarda işlemi exit sub veya cancel=true komutu ile kesebilirsiniz.

teşekkür ederim. ama bu konuya biraz yabancıyım biraz daha detaylı anlatırsanız sevinirim

 

[Muzaffer Ali]

Dosyanız ekte

Dosyayı açtıktan sonra CTRL+F11 tuşlarına basın açılan yerde (genellikle solda) ThisWorkbook yazan sayfayı açın gerekli açıklamalar orada mevcut.

Kolay gelsin.

 

[DADAFU]

Makro ile, BeforePrint eventinda kontrol etmek istediğin hücrelerin, kontrol etmek istediğin kriterlere uyup uymadığını kontrol edebilir, uymadığı durumlarda işlemi exit sub veya cancel=true komutu ile kesebilirsiniz.

Sub bosolamaz()
BeforeSave
If Range("D7") = "" Then
MsgBox "Otel İsmini Boş Geçemezsiniz."
End If
End Sub

ÜSTTEKİ KODU KULLANDIM AMA OLMUYOR

 

[DADAFU]

Sub bosolamaz()
BeforeSave
If Range("D7") = "" Then
MsgBox "Otel İsmini Boş Geçemezsiniz."
End If
End Sub

ÜSTTEKİ KODU KULLANDIM AMA OLMUYOR

 

[DADAFU]

Dosyanız ekte

Dosyayı açtıktan sonra CTRL+F11 tuşlarına basın açılan yerde (genellikle solda) ThisWorkbook yazan sayfayı açın gerekli açıklamalar orada mevcut.

Kolay gelsin.

Çok teşekkür ederim.
- Sizden bir ricam daha olacak . bu uyarı hücre dolu olsa dahi çıkıyor. uyarıya tamam dediğiniz zaman yazdırabiliyorsunuz. fakat hücre boş ise
uyarıya tamam deseniz dahi yazdırma penceresi açılmıyor.
- Bu uyarıyı sadece hücre boş olduğunda alma şansım varmıdır.

 

[Muzaffer Ali]

kodu aşağıdaki şekilde değiştirin

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If Range("A1").Value = "" Then Cancel = True
    If Range("B1").Value = "" Then Cancel = True
    If Range("B2").Value = "" Then Cancel = True
    'Yukarıda hücre adresleri var onları tablonuza göre ayarlayın
    'istediğiniz ksdar satır ekleyebilirsiniz
    If Cancel Then
        MsgBox "Boş bırakılan bilgiler var. Lütfen doldurduktan sonra tekrar deneyiniz."
    End If
End Sub

 

[DADAFU]

kodu aşağıdaki şekilde değiştirin

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If Range("A1").Value = "" Then Cancel = True
    If Range("B1").Value = "" Then Cancel = True
    If Range("B2").Value = "" Then Cancel = True
    'Yukarıda hücre adresleri var onları tablonuza göre ayarlayın
    'istediğiniz ksdar satır ekleyebilirsiniz
    If Cancel Then
        MsgBox "Boş bırakılan bilgiler var. Lütfen doldurduktan sonra tekrar deneyiniz."
    End If
End Sub

İlk verdiğiniz kod ile aynı sanırım.
Kod'da herhangi bir sıkıntı yok.
Tek problem hücrede dolu olmasına rağmen uyarı vermesi
hücre dolu olduğunda uyarı vermemesi için ne yazabilirim acaba.
bu arada sizin vermiş olduğunuz kodu ben aşağıdaki gibi düzenledim
yani her hücre için ayrı uyarı almak istiyorum temel olarak çalışıyor.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Range("D5").Value = "" Then Cancel = True
MsgBox "OTEL İSMİNİ YAZINIZ !!!!"
If Range("N5").Value = "" Then Cancel = True
MsgBox "OTELİN BULUNDUĞU BÖLGEYİ YAZINIZ !!!!"
If Cancel Then
End If
End Sub

 

[Muzaffer Ali]

aşağıdaki kodu deneyiniz

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If Range("D5").Value = "" Then
        Cancel = True
        MsgBox "OTEL İSMİNİ YAZINIZ !!!!"
        Exit Sub
    End If
    
    If Range("N5").Value = "" Then
        Cancel = True
        MsgBox "OTELİN BULUNDUĞU BÖLGEYİ YAZINIZ !!!!"
        Exit Sub
    End If
End Sub

 

[DADAFU]

aşağıdaki kodu deneyiniz

private sub workbook_beforeprint(cancel as boolean)
    ıf range("d5").value = "" then
        cancel = true
        msgbox "otel ismini yazınız !!!!"
        exit sub
    end ıf
    
    ıf range("n5").value = "" then
        cancel = true
        msgbox "otelin bulunduğu bölgeyi yazınız !!!!"
        exit sub
    end ıf
end sub

konu çözülmüştür.
Dalgalıkur'a yardımları ve sabrı için çok teşekkür ediyorum...

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Örnek Hazırlamıştım
Boşa Gitmesin
Kırmızı Alanları Doldurmak Gerekir
Ayrıca Yazdır Dediğinizde Boş alan İçin Uyarı Verir