koşullu sayfa yazdırma

[hubay64]

bir excel çalışma kitabında sayfa 1 e sayfa 2 deki verileri yazdıran bir buton koydum fakat bu butona tıkladığımda sayfa1 deki a1 hücresini kontrol etmesini bu hücre boş ise yazdırmamasını ve mesajla uyarmasını,sayfa1 deki a1 hücresinde veri var ise yazdırmasını istiyorum. nasıl bir kod yazmalıyım. teşekkürler

 

[Korhan Ayhan]

Aşağıdaki kodu kullanabilirsiniz.

Sub YAZDIR()
    If Sheets("Sayfa1").Range("A1") = "" Then
        MsgBox "Hücre boş olduğundan yazdırma işlemi iptal edildi!", vbCritical
        Exit Sub
    Else
        Sheets("Sayfa2").PrintOut
    End If
End Sub

 

[hubay64]

Teşekkür ederim, ama malesef olmadı

 

[hubay64]

Teşekkür ederim şimdi oldu butona makroyu yeniden atamak gerekiyormuş

 

[hubay64]

Zahmet olmazsa a1 hücresinden başka yani birden fazla hücreyi kontrol etmesi için nasıl bir kod yazılmalı ,şimdiden teşekkürler

 

[Mustafa MUTLU]

If Sheets("Sayfa1").Range("A1") = "" Then
MsgBox "Hücre boş olduğundan yazdırma işlemi iptal edildi!", vbCritical
Exit Sub
End If
Sheets("Sayfa2").PrintOut

Koddaki else yi kaldırıp
If ile başlayan

If Sheets("Sayfa1").Range("b1") = "" Then
Eski Kodlar burada olacak
End If

Bu şekilde çoğaltabilirsiniz..

 

[hubay64]

Çok teşekkür ederim,

 

[Mustafa MUTLU]

Çok teşekkür ederim,

Rica Ederim..