tarih konusunda uyarı

[tatarcık]

arkadaşlar benim sizlerden isteğim tarih konusunda otomatik olarak uyarı yapan bir makro örneği nasıl yapılır.
örneğin excel çalışma sayfasının sayfa1 de e30 hücresinde =bugün() olarak formül var ancak bir başka arkadaşım bunu manuel bir gün öncesi veya sonrasına tarih yazıyor.
ben ise otomatik tarihe güvendiğimden dolayı tarihlere bakmadan evrakları yazdırıyorum ve sonuç kağıt israfı ile toner israfı bunu önlemek amacıyla
çalıştığımız güne ait tarih üzerinden manuel giriş yapıldığında bize bir uyarı " çalıştığın günden bir sonrası - öncesi tarih verezsin " veren makro yapılabilir mi? teşekkürler

 

[ASMET67]

Dosyanızı gönderseniz daha sağlıklı cevap alırsınız.
Burda manuel girilen veriyi nasıl aldığınız önemli

 

[tatarcık]

örneği gönderiyorum

arkadaşlar basit bir örneği ekte gönderiyorum

 

[mesuttasar]

Aşağıdaki gibi bir kod işine yarayacaktır.

Private Sub deneme()
Range("E30").Select
If ActiveCell.FormulaLocal = "=BUGÜN()" Then
MsgBox "TARİH DOĞRU !.. "
Else:
MsgBox "TARİH YANLIŞTIR."
End If
End Sub

Örnek dosyayı ekte gönderiyorum.

 

[ASMET67]

Kodları sayfanın kod bölüme kopyalayın.

If Intersect(Target, [e30]) Is Nothing Then Exit Sub

E30 yazan kısmı tarihin bulunduğu hücre ile değiştirmeniz gerekiyor.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [e30]) 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 Küçük olamaz..!!", vbCritical, "TARİH"
    Target.Select
End If
hata:
End Sub

 

[tatarcık]

teşekkür

sayın mesuttasar bey teşekkür ederim.
sayın asmet67 hocam size de teşekkürler sağolun güzel bir çalışma ile sorunuma yardımcı olduğunuz için hayırlı akşamlar