Ay Hesabı

[bluefalcon]

Arkadaşlar Merhaba,

A1 Hücresinde =BUGÜN() diyerek güncel tarihi alıyorum.Ancak benim istediğim bu formülde çıkan tarihin bir önceki ayını (Örneğin, Kasım 2007) şeklinde B1 hücresine yazdırmak.Tabi bu sürekli güncel olacak o sebeple =BUGÜN() fonksiyonunu kullanıyorum. Ocak ayına girdiğimizde makro Aralık 2007 yazacak, Şubat ayına girdiğimizde Ocak 2008 olacak. Umarım anlatabilmişimdir.Bunu makro yardımı ile nasıl yapabiliriz acaba?

 

[Orion1]

SERİAY fonksiyonunun çalışabilmesi için Araçlar Eklentilerden ToolPak Çözümleyiciyi ekleyip aktif etmeniz gerekiyor.
=METNEÇEVİR(SERİAY(BUGÜN();-1);"aaaa yyyy")

 

[bluefalcon]

Teşekkürler..

Orion2 çok teşekkürler... ben fonksiyon ile =Edate(BUGÜN();-1) şeklinde yanıta ulaştım.Ancak ben bunu makro içinde kullanacağım yani sayfada fonksiyon olmasın istiyorum makro hesaplasın sonucu koysun.İlgin için tekrar teşekkürler...

 

[Orion1]

Aşağıdaki kod işiniz görür sanırım.

Sub onceki_ay()
Range("B1").Value = Format(DateAdd("m", -1, Range("A1").Value), "mmmm.yyyy")
End Sub

 

[bluefalcon]

teşekkür ederim saygıdeğer arkadaşım.

 

[Orion1]

teşekkür ederim saygıdeğer arkadaşım.

Rica ederim.
İyi çalışmalar.