uyarı kodu

[bitmez13]

Sub yazdır()
If Sheets("ders").Range("z3").Value = "" Then
MsgBox "Lütfen Nöbetçi Öğrenci No 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
yukardaki makro ile z3 hücresi boşken uyarı veriyor, ben 2 şey de yardım istiyorum.
1- V3 hücreside boşsa lütfen tarih girin şeklinde uyarı vermesi.
2- V3 hücresine girilen tarih günün tarihi degilse eminmisiniz seklinde uyarı verecek evet derse makro çalışacak hayırda makro çalışmayacak olabilirmi? Bir şeyler kapmaya öğrenmeye başlayınca dahada bir teferruata dalıyoruz şimdiden teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Sub yazdır()
    
[COLOR="DarkRed"]    If Range("v3") = "" Then
        MsgBox "lütfen tarih girin"
        Exit Sub
    End If
    
    If Range("v3") <> Date Then
        sor = MsgBox("Emin Misiniz", vbYesNo)
        If sor = vbNo Then
            Exit Sub
        End If
    End If[/COLOR]
    
    If Sheets("ders").Range("z3").Value = "" Then
        MsgBox "Lütfen Nöbetçi Öğrenci No 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

. . .