Soru Hatalı Tarih Girişi Hk.

[Erdogan3434]

Merhabalar,

Bir çalışmamda iki tarih arası veriyi çekmekteyim. Bu çalışmaya şu koşulu eklemek istiyorum. Başlangıç tarihi, bitiş tarihinden büyükse ya da iki tarihten herhangi bölümünden birisi boşken çalıştırılırsa sorgu Msgbox ile uyarı versin ve kod çalışmasın.



Saygılarımla.

 

[dEdE]

Dener misiniz?

Sub Test()
If Range("AC2") = "" Or Range("AC2") = "" Or Range("AC2") > Range("AD2") Then
    MsgBox "Hücreler boş bırakılamaz" & vbCrLf & "Başlangıç Tarihi Bitiş Tarihinden büyük olamaz.", _
        vbCritical, "D İ K K A T !!!"
    Exit Sub
End If
End Sub

 

[Erdogan3434]

Dener misiniz?

Sub Test()
If Range("AC2") = "" Or Range("AC2") = "" Or Range("AC2") > Range("AD2") Then
    MsgBox "Hücreler boş bırakılamaz" & vbCrLf & "Başlangıç Tarihi Bitiş Tarihinden büyük olamaz.", _
        vbCritical, "D İ K K A T !!!"
    Exit Sub
End If
End Sub

Desteğiniz için çok teşekkür ederim.
Saygılar.