Ay isimlerini kod ile yazdırma

[mkuru28]

Merhaba arkadaşlar.
C1 hücresine içinde bulunduğumuz aydan bir önceki ayı
B1 hücresine içinde bulunduğumuz aydan iki önceki ayı
A1 hücresine içinde bulunduğumuz aydan üç önceki ayı
Bir kod yardımı ile yazdırabilir miyim. Şu an Temmuz ayında olduğumuza göre C1 Haziran, B1 Mayıs, A1 ise Nisan yazacak şekilde.

 

[spasmex97]

çok bilgili değilim ama mantıken en sağdaki sütuna mevcut tarihi yazıp sola doğru

=AY(Mevcut Tarih) -1

gibi bir fonksiyon iş görebilir belki

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Sub kod()
For a = 1 To 3
    Cells(1, a) = Format(DateAdd("M", a - 4, Date), "mmmm")
Next
End Sub

 

[mkuru28]

Ömer bey çok teşekkür ederim. Tam istediğim gibi olmuş.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...

 

[Korhan Ayhan]

Alternatif olsun..

Option Explicit

Sub Month_Name()
    Range("A1") = Format(WorksheetFunction.EDate(Date, -3), "mmmm")
    Range("A1").AutoFill Destination:=Range("A1:C1"), Type:=xlFillDefault
End Sub

 

[Necdet]

Merhaba,
Alternatif Olsun, Korhan Bey'in kodlarına benzer

Sub Makro1()
    
    Range("C1") = MonthName(Month(Date))
    Range("C1").AutoFill Destination:=Range("A1:C1")

End Sub