1nputbox girilen deger tarih degilse uyari versin

[gcanlar2012]

Merhabalar

1nputbox girdiim deger tarih deg1lse uyar1 versin.

excel dersanesinde veri dogrulamay1 gördüm.denedim.normalde çalisiyor.ama benim sayfam korumali 1nputbox giris yaparken korumayi kald1r1yor ben veriyi girdikten sonra tekrar koruyor.
sizlerden ögrendiklerimle epey ilerledim bu vba olay1nda.
sorunumu kendim teoride çözüyorum söyleki

1nputbox a girdiim veri a degiskeninde ben buna bir sorgulama yani
1f a = tarih(gg.aa.yyyy) seklinde düsünüyorum tabi benim yazdigim tarih(gg.aa.yyyy) diye bir sey yoktur bunu nasil çözerim.yard1mlar1n1z için simdiden tesekkür ederim.

1f a = ??????????? then
'dogruysa
'devam
....
....
'yanlissa
msgbox tarih yazin

end 1f



sayg1lar.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:2146fefc6d]Sub tarih()
a = InputBox("veriyi giriniz", vbYesNo)
If IsDate(a) = False Then
MsgBox ("girdiğiniz veri tarih değildir")
End If
End Sub[/vb:1:2146fefc6d]

 

[gcanlar2012]

Sayin leventm tesekkür ederim.
peki bu vbyesno ne anlama geliyor ufak bir bilgi verirmisiniz.rica etsem

birde cancela t1klay1ncada yada bos olarak ok deyincede uyar1 veriyor.bunun yerine 1nputbox1 kapatsa.mümkünse

tesekkür ederim.

 

[Levent Menteşoğlu]

Kodu aşağıdaki gibi değiştirin. vbyesno gereksiz olmuş

[vb:1:277f334ef3]Sub tarih()
a = InputBox("veriyi giriniz")
If a = "" Then Exit Sub
If IsDate(a) = False Then
MsgBox ("girdiğiniz veri tarih değildir")
End If
End Sub
[/vb:1:277f334ef3]