Döngü ile o yılın aylarını hücreye yazdırma

[y_tekeli]

Asagidaki kodu o yilin aylarini "01.2016" seklinde c10 hucresinden baslayarak c21 de "12.2016" bitecek sekilde bir döngü olusturnak istedim ancak sadece c10 "12.2016" seklinde yazip birakiyor. Hata nerde olabilir.

Private sub aylar()
For k= 1 to 12
For m=10 to 21 
Cells(m,3)=format(dateserial(year(date),k,1),"mm.yyyy")
Next m
Next k
End sub

 

[alicimri]

Private Sub aylar()
For k = 1 To 12
Cells(k + 9, 3) = Format(Year(Date) & "." & k, "mm yyyy")
Next k
End Sub

 

[y_tekeli]

Benim yazdigim koddaki l hata ne peki bilmek adina sorabilirmiyim.iki dongu olusturmus olmak burda neye sebep oluyorki islem gerceklesmiyor

 

[alicimri]

İlk önce 10 satırdan 21 satıra kadar 1,2016 yazıyor. tekrar döndüğünde 2,2016........... sonuncu döngüde 12,2016 yı bütün hücrelere yazıyor.

 

[alicimri]

Next m yazan satırın başındaki kenar çizgisine tıklarsanız kahverengi bir nokta çıkacaktır. kodu her çalıştırdığınızda m döngüsünü sayfanızı kontrol ederek izleyin.

 

[y_tekeli]

Teşekkürler