Macro İle Tarİh Yazimi

[pcerdal]

Macro İle Tarih Kontrolü

:yazici: arkadaşlar merhaba...
Ben excelde bir hücreye yazılan tarihi kontrol etmek istiyorum. mesele a1 hücresine sadece 28.07.2008 şeklinde tarih girebileceğim.
yani 28/07/2008 şeklinde olmayacak. ve yazılan tarih bu günün yani yazıldığı günden önceki tarih olmayacak. ve de tarih yanlış girilince msgbox aracılığı ile bize mesaj verilecek. ayrıca o hücreye tarih formatından başka yani string bir ifade girilmeyecek ben bu olayı o sütunun tamamı için uygulamak istiyorum. yani bu kod tüm a1 sütunu için geçerli olacak.
kodları yazdıktan sonra yanlarınada kodun yaptığı görevi yazarsanız öğrenmem daha çabuk olur.
şimdidden çok teşekkür ederim
kolay gelsin....

 

[N.Ziya Hiçdurmaz]

Yanıt

Sayfa kod bölümüne yazınız

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A65536]) Is Nothing Then Exit Sub
If Target = "" Then
Exit Sub
End If
If Not IsNumeric(Left(Target, 1)) Then
Application.EnableEvents = False
MsgBox "Rakam harici veri giremezsiniz", vbInformation
Application.EnableEvents = True
Target.Clear
Exit Sub
End If
If Target < Date Then
Application.EnableEvents = False
MsgBox "Tarih bugünden küçük olamaz", vbInformation
Application.EnableEvents = True
Target.Clear
Exit Sub
End If
End Sub

 

[pcerdal]

yardımınz için teşekkür ederim ama pek faydası oldu diyemem. çünkü yazdığınız kod ile çalışan hücreye ilk başta string bir karakter girdiğimde MsgBox "Rakam harici veri giremezsiniz" çalışıyor ama rakamdan sonra harf girdiğimde macro bunu kabul ediyor.
ve de tarih kısmı yani gg.aa.yyyy
gg:31 den büyük olmayacak
aa:12 den büyük olmayacak ve
yyyy:sınırsız olabilir
şeklinde yazabilirmisiniz.
yazdığınız kodların yanlarınına yaptıkları görevleride yazarmısınız.
çok teşekkür ederim