İnputbox'da bugünün tarihi

[akd]

Merhaba arkadaşlar,
Ben sorgularda iki tarih arası sorgu yapıyorum,
birinci tarihi yazdıktan sonra ikinci tarih yazım yerinde otomatik olarak bu günün tarihi çıkabilirmi.
Between[İlk Tarihi Yazın]and[Son Tarihi Yazın (=date())]
Yani son tarihde otomatik olarak bu güün tarihinin gelmesini nasıl sağlarız.
İyi günler dilerim...

 

[Mahmut Bayram]

Özür dilerim excel başlığı olduğunu zannettim.

Sub input_date()
tarih = InputBox("Güncel tarih", "aa.gg.yyyy formatında giriniz", Date)
End Sub