inputboxla tarih yazdırma

[ferits]

merhaba arkadaşlar,

Ben inputbox'a sayı girilerek sütuna tarih yazdırmak istiyorum,şöyle ki

Örneğin inputbox'a 2 rakamı girildiğinde
A2 hücresinden başlayarak "A" sütununa şubat ayının tarihlerini sırayla yazdıracak.

01.02.2012
02.02.2012
03.02.2012
....
...
..
..
29.02.2012

 

[Orion1]

Buyurun.

Sub tarih_yaz()
Dim tar, i, sat As Byte
tar = InputBox("TARİH GİRİNİZ :", "evrengizlen@hotmail.com")
If tar = "" Then
    MsgBox "Lütfen Tarih Giriniz!", vbCritical, "U Y A R I"
    Exit Sub
End If
If Not IsNumeric(tar) Then
    MsgBox "Lütfen Tarih Giriniz!", vbCritical, "U Y A R I"
    Exit Sub
End If
For i = DateSerial(Year(Date), CInt(tar), 1) To _
 DateSerial(Year(Date), CInt(tar) + 1, 0)
    Cells(Day(i), "A").Value = CDate(i)
Next i

End Sub

 

[ferits]

çok teşekkür ederim orion1 ustad