senet sayısına göre ay arttırma

[chngrcn]

http://s8.dosya.tc/server/bz129y/Kitap1.xls.html

forumun değerli üyeleri


ekteki örnekte A2 hücresindeki adede göre A1 hücresine girilen tarihten itibaren "AY ATLATARAK" ve hatta sene atlatma sonucu bir sonraki seneye tekabül eden seneyi de "SENE ATLARAK" devam ettirmesini döngü ile B6 hücresinden başlayarak alt alta senet adedi kadar ay atlatmasını istiyorum..


forumda daha önceki çalışmalara baktım lakin faydalı olmadı.
ayrıca ;

Sheets("SENET").Cells(6, 2).value = DATE(Year(a),MONTH(a)+1,DAY(a))

kodunu yemiyor sistem..

yardımlarınızı rica ediyorum..

 

[Ziynettin]

Aşağıdaki kodu deneyiniz.

Sub Ay_Artir()
Dim i As Integer
Range("A6:B" & Rows.Count).ClearContents
    For i = 1 To Val([A2])
        Cells(i + 5, 1) = i
        Cells(i + 5, 2) = DateAdd("m", i, [A3])
    Next i
End Sub

 

[chngrcn]

teşekkür ederim..