Ayları nasıl yazdırabilirim?

[Mx@Raid]

Arkadaşlar ayları makro ile alt alta yazdırmak istiyorum aşağıdaki makro ile sonuç elde edemedim. yardım edebilir misniz?

Sub Aylar()

For i = 1 To 12
ay = UCase(Format(Month(Date), "mmmm"))
Range("a" & i) = ay + i
Next
End Sub

 

[hamitcan]

Sub Aylar()
For i = 1 To 12
    ay = Format(DateSerial(2009, i, 1), "mmmm")
    Cells(i, 1) = ay
Next
End Sub

 

[Mx@Raid]

Hamit bey bunu aslında combobox ta kullanacağım. Yıla bağlı kalmadan yapabilir miyiz? diğer bir konu büyük karaktere çevirdiğimde türkçe karakterleri çevirmiyor.

 

[hamitcan]

Private Sub UserForm_Initialize()
    arr = Array("OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", "TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")
    For i = 0 To 11
       ComboBox1.AddItem arr(i)
    Next
End Sub

 

[Mx@Raid]

Hamitbey teşekkür ederim. Emeğinize, yüreğinize sağlık.