Tarihin ay kısmını arttırma

[recepkull]

Görselde anlatmaya çalıştığım kodlara ihtiyacım yardımcı olursanız sevinirim. İki farklı buton biri önceki ayı yazdıracak diğeri sonraki ayı.

 

[Mdemir63]

Selamlar

inceleyiniz

 

[Haluk]

Alternatif:

Sub Test()
    xMonth = Range("I11")
    arrMonths = Array("OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", "TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")
    c = Application.Match(xMonth, arrMonths, False)
    
    If c = 1 Then
        MsgBox "Önceki ay: " & "ARALIK"
        MsgBox "Sonraki ay: " & "ŞUBAT"
    ElseIf c = 12 Then
        MsgBox "Önceki ay: " & "KASIM"
        MsgBox "Sonraki ay: " & "OCAK"
    Else
        MsgBox "Önceki ay: " & Application.Index(arrMonths, c - 1)
        MsgBox "Sonraki ay: " & Application.Index(arrMonths, c + 1)
    End If
End Sub

.

 

[Korhan Ayhan]

Alternatif;

Option Explicit

Sub Onceki_Ay()
    Range("A1") = Format(DateAdd("m", -1, DateValue("1." & Range("A1") & "." & Year(Date))), "mmmm")
End Sub

Sub Sonraki_Ay()
    Range("A1") = Format(DateAdd("m", 1, DateValue("1." & Range("A1") & "." & Year(Date))), "mmmm")
End Sub

 

[Korhan Ayhan]

Bu da BÜYÜKHARF ile ayları kullanmak isteyenler için alternatif olsun.

Option Explicit

Sub Onceki_Ay()
    Dim Ay As String
    Ay = WorksheetFunction.Proper(Range("A1").Value)
    Range("A1") = Format(DateAdd("m", -1, DateValue("1." & Ay & "." & Year(Date))), "mmmm")
    Range("A1") = UCase(Replace(Replace(Range("A1"), "ı", "I"), "i", "İ"))
End Sub

Sub Sonraki_Ay()
    Dim Ay As String
    Ay = WorksheetFunction.Proper(Range("A1").Value)
    Range("A1") = Format(DateAdd("m", 1, DateValue("1." & Ay & "." & Year(Date))), "mmmm")
    Range("A1") = UCase(Replace(Replace(Range("A1"), "ı", "I"), "i", "İ"))
End Sub

 

[recepkull]

İlgilendiğiniz için çok teşekkür ederim hepinize.