Tarihin Ay kısmını Makro ile artırma

[ozkovlu]

Merhabalar;
"M" hücresinde ki "YılAyGün" formatında bulunan tarihi butona tıklayınca 1 ay artırmak istiyorum.

Gün aynı kalmak şartıyla
Eğer Ay 00 ise 01 yap yıl aynı
Eğer Ay 01 ise 02 yap yıl aynı
.
.
.
Eğer Ay 11 ise Yılı 1 artır, ayı 00 yap
şeklinde.

Saygılarımla...

 

[askm]

Sub askm()
Veri = Cells(4, "W")
yil = Left(Veri, 2)
ay = Mid(Veri, 3, 2)
gün = Format(Right(Veri, 2), "00")
If ay >= 12 Then
    yil = yil + 1
    ay = 1
Else
    ay = Format(ay + 1, "00")
End If
Cells(4, "W") = yil & ay & gün
End Sub

 

[Necdet]

Merhaba,

Deneyiniz.

Sub AyEkle()

    Dim i   As Long, _
        Y   As Integer, _
        A   As Integer, _
        G   As Integer
    
    For i = 3 To Cells(Rows.Count, "M").End(3).Row
        Y = Left(Cells(i, "M"), 2) + 0
        A = Mid(Cells(i, "M"), 3, 2) + 0
        G = Right(Cells(i, "M"), 2) + 0
        
        A = A + 1
        If A > 11 Then
            A = 0
            Y = Y + 1
        End If
        
        Cells(i, "M") = Format(Y, "00") & Format(A, "00") & Format(G, "00")
        
    Next i
    
End Sub

 

[Seyit Tiken]

Bu şekilde kodu bir DÜĞMEYE atayıp deneyebilirsiniz.

If Mid(ActiveCell, 3, 2) = 12 Then Exit Sub
ActiveCell = Mid(ActiveCell, 1, 2) & Format(Mid(ActiveCell, 3, 2) + 1, "00") & Mid(ActiveCell, 5, 4)

 

[ozkovlu]

Sayın askm, Necdet Yeşertener, Seyit Tiken;
TEŞEKKÜRLER

 

[Zeki Gürsoy]

Alternatif...

[SIZE=2]Sub Test()
    Dim d As Date
    
    d = "21.03.2018"
    
   [COLOR=DarkGreen] 'Ör: 2 ay sonrası...[/COLOR]
    MsgBox DateAdd("m", 2, d)
    
   [COLOR=darkgreen] 'Ör: 4 ay öncesi...[/COLOR]
    MsgBox DateAdd("m", -4, d)
    
End Sub[/SIZE]