Yazdırma Butonuna Basınca Tarih Sorsun

[ZuCChiNi]

Bir excel sayfasını yazdırmak için bir makro oluşturdum ve makroyu bir düğmeye atadım.
Düğmeye tıkladığımda tarih sormasını ve girdiğim tarihi A4 hücresine yazmasını istiyorum.
Yardımlarınız rica ediyorum.

Hayırlı bayramlar.

 

[Orion1]

Dosyanız ektedir.

Sub Yazdır()
[B][COLOR="Red"]Dim tarih As Variant
tarih = InputBox("Lütfen Tarih Giriniz :", "TARİH", Format(Date, "dd.mm.yyyy"))
If Not IsDate(tarih) Then
    MsgBox "Geçerli bir tarih girmediniz!İşlem iptal oldu!", vbCritical, "UYARI"
    Exit Sub
End If
Range("A4").Value = cdate(tarih)[/COLOR][/B]
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
    Range("A4").Select
End Sub

 

[ZuCChiNi]

Bayram demeden tatil demeden yardıma koşuyorsunuz ya... Daha ne diyeyim size.
Çok teşekkür ederim.

Bu arada

Range("A4").Value = Datesatırını
Range("A4").Value = tarihşeklinde değiştirmek gerekiyor.

 

[Orion1]

Şöyle olması lazım.

Range("A4").Value = cdate(tarih)