Tarihin kritere göre artması

[Fly_butterfly]

Merhabalar..

Bu konuda sorgu yaptım ama maalesef bulamadım.

Sorum :
A1 01-01-2008
A2 01-02-2008
A3 01-03-2008
...
..

Yukarıda ki şekilde gibi aşağıya doğru ay artışlı, bazende gün, hatta tarih ay sabit yıl artışlı olarak aşağıya doğru inecektir. Bu konuda nasıl bir yardım alabilirim acaba...

 

[Ali]

A1 hücresine

01.01.2008 yazıp aşağı doğru çekerek tarihleriniz yazılmasını sağlayınız.Daha sonra aşağıdaki gibi bir kare göreceksiniz.

Karenin yanındaki aşağı ok tuşunu tıkladığınızda ise

Aşağıdaki gibi bir menü açılacaktır bu kısımdan ayları doldur kısmını seçiniz.

Bu kısımdanda yılları dolduru seçtiğinizde sadece yıllar seçilecektir.

 

[Fly_butterfly]

Sevgili Ali,

Çok teşekkür ederim gerçekten.. İnan büyük bir zahmetten kurtardın beni...

Sevgilerimle,

 

[Orion1]

Bende makro ile bir şeylaer yaptım.
Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Dim son_tarih As Date, i As Integer, sat As Integer, ilk_tarih As Date, dongu As Date
If Not IsNumeric(TextBox1.Value) Then
    MsgBox "Text kutusuna sayısal bir değer giriniz..!!", vbCritical, "DİKKAT"
    TextBox1.SetFocus
    Exit Sub
End If
If Len(TextBox1.Value) > 5 Or Len(TextBox1.Value) < 4 Then
    MsgBox "Yıl 5 ten büyük ve 4 ten küçük olamaz.!", vbCritical, "DİKKAT"
    TextBox1.SetFocus
    Exit Sub
End If
Range("A2:A65536").ClearContents
Range("A1").Value = "YIL"
sat = 2
ilk_tarih = DateSerial(CDbl(TextBox1.Value), 1, 1)
son_tarih = DateAdd("yyyy", 1, DateSerial(CDbl(TextBox1.Value), 1, 1))
son_tarih = son_tarih - 1
If OptionButton1.Value = True Then
For dongu = ilk_tarih To son_tarih
    Cells(sat, "A").Value = CDate(DateAdd("d", sat - 2, ilk_tarih))
    sat = sat + 1
Next dongu
End If
If OptionButton2.Value = True Then
For i = 1 To 12
    Cells(sat, "A").Value = CDate(DateAdd("m", i - 1, ilk_tarih))
    sat = sat + 1
Next i
End If
MsgBox "İşlem Tamam"
End Sub