sayfa boşsa yazdırma makrosu çalışmasın

[GursoyC]

Merhaba,
bir sayfa ile ilgili hata olmasın diye yazdığım bir makrom var.
tek eksiği sayfa boşsa bu makro "YAZDIRILACAK ETİKET BULUNAMADI" uyarısı versin istiyorum, bir türlü beceremedim.
Makrom aşağıdaki şekilde. Hatası nerede yardımcı olur musunuz.
Teşekkürler.


If Range("A1:H42").Value = "" Then
MsgBox "YAZDIRILACAK ETİKET BULUNAMADI", vbCritical, "U Y A R I"
Exit Sub
End If
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("A1:h42").Select
Selection.ClearContents
Range("J10").Select
End Sub

 

[askm]

Örnek dosya eklerseniz bakalım.

 

[GursoyC]

örnek dosya ektedir.

 

[askm]

Kodlarınızı aşağıdaki şekilde deneyin.

Sub kö_yazdir()
'
' kö_yazdir Makro
'

'
Dim Sayisi As Integer
    Sayisi = WorksheetFunction.CountIf(Range("A2:H42"), "<>")
    If Sayisi < 5 Then 'Bu aralıkta 5 değer boş ise
        MsgBox "LÜTFEN KAPIDA ÖDEME TUTARINI GİRİNİZ", vbCritical, "U Y A R I"
        Exit Sub
    End If
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
    Range("AH2").ClearContents
    Range("AH2").Select

End Sub

Yada Hücreleri If Range("A1").Value = "" and Range("A2").Value = "" and Range("A5").Value = "" Then
şeklinde and kısmını artırarak zorunlu dolu olması gereken kısımları belirleyebilirsiniz.

 

[GursoyC]

Tamamdır o şekilde deneyeyim.
Teşekkür ederim.