her ayın 25' i geldiğinde çalışan makro

[Nightman]

Sevgili excel dostları yardımcı olursanız sevinirim.

her ayın 25' i geldiğinde, yıl gözetmeksizin bir sonraki ayın ismini vererek calışan makro yada formül istiyorum.

tam olarak istediğim şu;
A1 hücresinde =today() formülü olduğunu varsayalım
A2 hücresinde bir sonraki ayın ismini versin (Şubat) gibi

A1 = 25.Şubat.2008 ise A2 = Mart olsun
A1 = 25.Mart.2008 ise A2 = Nisan olsun
A1 = 25.Aralık.2009 ise A2 = Ocak olsun
A1 = 25.Aralık.2010 ise A2 = Ocak olsun bu her sene için böyle devam etsin istiyorum
Allah hepinizden razı olsun

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu çalışmanızın ThisWorkbook bölümüne uygulayıp denermisiniz. Kod dosya açılışında otomatik olarak çalışacaktır.

Option Explicit
 
Private Sub Workbook_Open()
    Dim Tarih As Range
    Set Tarih = Sheets("Sayfa1").Range("A1")
    If Day(Tarih) = 25 Then
    Sheets("Sayfa1").Range("A2") = Format(DateSerial(Year(Tarih), Month(Tarih) + 1, Day(Tarih)), "mmmm")
    End If
End Sub

 

[Nightman]

sayın Korhan Ayhan verdiğiniz cevap için teşekkür ederim yazdığınız kodları denedim çalışıyor.

biraz geç cevapladım kusura bakmayın.
yazdığınız kod hesap kesim tarihi için çok kullanışlı olacak. ALLAH Razı olsun...