Şu Andaki Tarihten 1 Ay Öncesi

[tipitipim]

Merhaba Arkadaşlar,

Kullandığım dosyada sayfanın belli bir kısmını PDF olarak kaydeden makro kullanıyorum.

& Format(Now, "[$-41f]mmmm yyyy;@") & ".pdf"

Formatında dosyanın adı " Kasım 2010.pdf " oluyor.

Bu kod bir önceki ayı gösterecek şekilde olsun istiyorum. Örneğin; Şu anda kasımdaysak " Ekim 2010.pdf " nasıl yapabilirim?

İyi çalışmalar.

 

[aydın3838]

selam
+ 30 denedinizmi
& Format(Now, "[$-41f]mmmm yyyy;@") + 30 & ".pdf"

 

[usubaykan]

Merhaba;

Alternatif bir kod yazdım belki bu koddan yola çıkarak kendi dosyanıza uygularsınız.

Option Explicit
Sub DENEME()
Dim Tarih As String
Tarih = Format("01." & Month(Now()) - 1 & "." & Year(Date), "MMMM")
Range("A1") = Tarih
End Sub

 

[tipitipim]

Usubaykan çok teşekkür ederim uyguladım ve sorunsuz çalıştı.

Bayramınızı kutlar iyi günler dilerim.

 

[usubaykan]

Usubaykan çok teşekkür ederim uyguladım ve sorunsuz çalıştı.

Bayramınızı kutlar iyi günler dilerim.

Rica ederim. Sizede iyi bayramlar.

 

[ffff7]

Merhaba;
Sayın Usubaykan hocamın koduna bir kontrol ekledim. Eğer aylardan Ocak ise Nisan yazıyordu.

Option Explicit
Sub DENEME()
Dim tarih As String
Dim yil, ay As Integer
yil = Year(Date): ay = Month(Date) - 1
If ay = 0 Then yil = yil - 1: ay = 12
tarih = Format("01." & ay & "." & yil, "MMMM")
Range("A1") = tarih
End Sub