Girilen Tarihte Ay Atlatma İşlemi

[SER973]

Merhaba

Bir Hücreye Girilen Tarihini Sadece Benim Diğer Hücreye girdiğim Kadar Yazdıracak Ama Sadece Ayını Bir Artırarak Yazmasını istiyorum...
Örnek olarak 28-02-2008 Tarihini Girdiğimde Ben 3 Ay Tekrar Etmesini İstiyorsam...

28-03-2008
28-04-2008
28-05-2008
Şeklinde Vermesi İçin Gerekli Kod Sitede Ya Gözden Kaçırdım Yada Bulamadım... Bu konu ile ilgili daha önce çalışmalar varsa Linkini Verebilirmisiniz. Yada Kodları ekleyebilirmisiniz... Teşekkürler...

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub tarih()
Sheets("Sheet1").Select
Range("F3:G65536").ClearContents
If Range("b2") < 1 Then Exit Sub
If Range("A2") = "" Then Exit Sub
Application.ScreenUpdating = False
For i = 1 To Range("B2").Value
    Cells(i + 2, "F").Value = i
    Cells(i + 2, "G").Value = DateAdd("m", i, Range("A2").Value)
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlanmıştır..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[1Al2Ver]

Ekli dosyayı inceleyiniz.

Sub tarih()
Sheets("Sheet1").Select
Range("F3:G65536").ClearContents
If Range("b2") < 1 Then Exit Sub
If Range("A2") = "" Then Exit Sub
Application.ScreenUpdating = False
For i = 1 To Range("B2").Value
    Cells(i + 2, "F").Value = i
    Cells(i + 2, "G").Value = DateAdd("m", i, Range("A2").Value)
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlanmıştır..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

Sayın Evren Gizlen, ben de faydalandım ve teşekkür etmek istedim, saygılarımla.

 

[Orion1]

Sayın Evren Gizlen, ben de faydalandım ve teşekkür etmek istedim, saygılarımla.

Nazik davranışınız için bende teşekkür ederim.
İyi çalışmalar.

 

[SER973]

Çok Teşekürler

Sayın Evren Gizlen
Yardımlarınız için teşekkür ederim....

 

[Orion1]

Sayın Evren Gizlen
Yardımlarınız için teşekkür ederim....

Rica ederim.
iyi çalışmalar.