Bir sonraki ayın aynı günü

[acolkesen1]

Merhaba arkadaşlar,
Ekli dosyada ,tarih yazılı hücrenin yanına bir sonraki ayın aynı gününü kod ile yazdırmak istiyorum. Yani [a2] deki tarih 15.01.2012 ise hedef hücre 15.02.2012 olacak. Bu konuda nasıl bir kod gerekiyor acaba? İlgilenen arkadaşlara teşekkür ederim.

Sub Düğme1_Tıklat()
ActiveCell.Offset(0, 1) = "birsonraki ayın aynı günü"
ActiveCell.Offset(1, 0).Select
End Sub

 

[mustafaine1]

sizin kodunuz icin;

ActiveCell.Offset(0, 1) = DateSerial(Year(ActiveCell.Value), Month(ActiveCell.Value) + 1, Day(ActiveCell.Value))
ActiveCell.Offset(1, 0).Select

seklinde duzenlenebilir..

 

[acolkesen1]

Merhaba Sayın mustafaine,
Yardımlarınız için çok teşekkür ederim..Esen kalın.

 

[Necdet]

Merhaba,

Alternatif olsun, kodlarınız :

Sub Düğme1_Tıklat()
    
    ActiveCell.Offset(0, 1) = DateAdd("m", 1, ActiveCell.Value)
    ActiveCell.Offset(1, 0).Select
    
End Sub

 

[acolkesen1]

Merhaba sayın Yeşertener,
İlginize ve kodlarınıza teşekkürler.. Esenkalın..