msgBOX İLE UYARI

[cetvel]

HÜCREYE BİR TARİH GİRİLDİĞİNDE TARİH BU GÜN TARİHİNDEN BÜYÜK İSE msgBOX İLE UYARI VERSİN.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error GoTo hata
If CDate(Target.Value) > Date Then
    MsgBox "Girdiğiniz Tarih Bu Günkü Tarihten Büyük..!!", vbCritical, "TARİH"
    Target.Select
End If
hata:
End Sub

 

[cetvel]

emeğinize ve bilginize sağlık. Teşekkür ederim.