Makro Eğer tarih formatı eşitse

[hmtstc]

Merhabalar,

Inputbox ile tarih girişi yaptırıyorum ve girilen tarihin formatını kontrol etmek istiyorum. Şöyle bir kod yazdım ama makro çalışırken format kısmında uyarı veriyor.

Yardımlarınız için şimdiden teşekkür ederim.

Dim tarih As Date
tarih = InputBox("Tarih giriniz.( gg.aa.yyyy şeklinde giriş yapınız.)")
If tarih = format(tarih, "dd.mm.yyyy") Then GoTo 200
GoTo 100
100 MsgBox ("HATALI TARİH GİRİŞİ YAPTINIZ !")
Exit Sub:
200

 

[muygun]

Merhaba;

Sub tarihal()
Dim tarih As Date
On Error GoTo 100
tarih = InputBox("Tarih giriniz.( gg.aa.yyyy şeklinde giriş yapınız.)")
If tarih = Format(tarih, "dd.mm.yyyy") Then GoTo 200
GoTo 100
100 MsgBox ("HATALI TARİH GİRİŞİ YAPTINIZ !")
Exit Sub:
200
End Sub

Şeklinde deneyin.
İyi çalışmalar.

 

[numan şamil]

Merhaba

Dim tarih As Date
On Error GoTo 200
tarih = InputBox("Tarih giriniz.( gg.aa.yyyy şeklinde giriş yapınız.)")
If tarih = format(tarih, "dd.mm.yyyy") Then GoTo 200
GoTo 100
100 MsgBox ("HATALI TARİH GİRİŞİ YAPTINIZ !")
Exit Sub:
200