Satırda 2'şer hücre atlayarak tarih yazmanın formülü ???

[roww11]

''Satırda 2'şer hücre atlayarak tarih yazmanın kolay bir yolu var mı? her girilen tarih otomatik olarak değişecek.'' Fakat bunu manuel yapmak istemiyorum, çünkü 365 günü yazamam sanırım..
Ayrıca şöyle bir durum söz konusu, tarih yazmak istediğim hücre alanında birden fazla birleştirilmiş hücre yer almakta, bu problem teşkil eder mi?

Lütfen yardım ediniz.

 

[roww11]

yardımcı olabilecek kimse yok mu? yeniyim ve lütfen yardım ediniz..

 

[Milady Meriç]

Dostum selam,
Aşağıdaki kodu boş bir modüle kopyalayıp kullanabilirsin.
01/01/2012 - 31/12/2012 arasındaki tarihleri yazar.
Kullandığın excel'in dilini yazarsan daha güzel yanıtlar alman mümkün.

Public Sub tarih_atlat()
Dim milady As Double
Dim meric As Range
Cells(1, 1).Select
    
    For milady = 40909 To 41274
    ActiveCell.Value = milady
    ActiveCell.Offset(3, 0).Select
    Next
    
    For Each meric In Range("a1:a10000")
    If meric.Value <> "" Then meric.NumberFormat = "dd/mm/yyyy"
    Next

End Sub

Kolay gelsin.