Yazdır kodunu düzenleme

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte gönderdiğim excel sayfamda yazdır butonu var, buton gayet güzel çalışıyor ama kod içerisine ekleme yapmak istiyorum, bu sefer de kod çalışmıyor.

Yapmak istediğim bir uyarı daha eklemek, yazdır butonuna bastığımda eğer H7 hücresi Boş yazıyorsa Personel bilgilerini doldurun mesajını vermesini istiyorum, eğer H7 hücresi dolu ise kodun devam ederek yazdırıldı mesajını vermesini istiyorum.
Bir türlü yapamadım, yardımcı olur musunuz?

Sub Yazdır()
    yazdir = Application.InputBox("Kaç adet yazdırılacak?", "A S L A N", 1)
    If yazdir = False Then
    MsgBox " Yazdırmaktan vazgeçildi.", vbInformation, "A S L A N"
    Exit Sub
Else
    If Range("H7") = "Boş" Then
        MsgBox "Personel bilgilerini doldurun.", vbInformation, "A S L A N"
    End If
    Exit Sub
      'ActiveWindow.SelectedSheets.PrintOut Copies:=yazdir
        MsgBox yazdir & " adet yazdırıldı.", vbInformation, "A S L A N"
    End If

End Sub

 

[çıtır]

Deneyiniz.

Sub Yazdır()
    yazdir = Application.InputBox("Kaç adet yazdırılacak?", "A S L A N", 1)
    If yazdir = "" Or yazdir < 1 Then
    MsgBox " Yazdırmaktan vazgeçildi.", vbInformation, "A S L A N"
        Exit Sub
        End If
        If Range("H7") = "" Then
        MsgBox "Personel bilgilerini doldurun.", vbInformation, "A S L A N"
     Exit Sub
        End If
        ActiveWindow.SelectedSheets.PrintOut Copies:=yazdir
        MsgBox yazdir & " adet yazdırıldı.", vbInformation, "A S L A N"
    End Sub

 

[ASLAN7410]

Sayın çıtır, ilginiz için çok teşekkür ediyorum, akşamdan beri end if ve exit sub'larla uğraştım ama bir türlü çözememiştim.

Allah razı olsun, hayırlı sabahlar diliyorum.

 

[çıtır]

Sayın çıtır, ilginiz için çok teşekkür ediyorum, akşamdan beri end if ve exit sub'larla uğraştım ama bir türlü çözememiştim.

Allah razı olsun, hayırlı sabahlar diliyorum.

Dönüş yaptığınız için teşekkür ederim.Allah(C.C.) cümlemizden razı olsun.Hayırlı sabahlar.