msgbox hata

[bitmez13]

Sub yazdır()
If Sheets("DERSLİ").Range("z3").Value = "" Then
MsgBox "Lütfen bir tarih giriniz."
Exit Sub
Else

Range("A1:T156").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveWindow.SmallScroll Down:=-165
Range("S3").Select
End If
End Sub
dersli sayfasındaki z3 hüvcresi boş ise lütfen tarih girin yazsın degilse sayfayı yazdırsın istedim hata veriyor yardımcı olursanız sevinirim

 

[Emir Hüseyin Çoban]

. . .

Verdiği hata nedir. Kodlarda sorun yok.

. . .

 

[bitmez13]

If Sheets("DERSLİ").Range("z3").Value = "" Then
bu satırda bir hata mı var sarı renk aldı başka boş bir makrodadenedim çalışıyor acaba bu sayfadaki diger makroyla falanmı çakışıyor olabilir

 

[Emir Hüseyin Çoban]

Sayfa ismi dogru mu.
Sayfa isminin sonunda bosluk vs. karakter olabilir.
.