Hücreye girilen ayın 3 ay öncesini otomatik yazdırmak

[udentr2002]

Merhaba arkadaşlar.
Basit ama benim aradığım mesela sayfada hücreye Nisan yazdığımda yanındaki hücreye 3 ay öncesini yazacak yani Şubat yazacak.
Bunun için nasıl bir formül yazabilirim?

Saygılarımla

 

[muygun]

Merhaba;
Nisan yazdığınız hücre A1 ise aynı sayfada herhangi bir hücreye;
=ARA(A1;{"Ağustos";"Aralık";"Ekim";"Eylül";"Haziran";"Kasım";"Mart";"Mayıs";"Nisan";"Ocak";"Şubat";"Temmuz"};{"Haziran";"Ekim";"Ağustos";"Temmuz";"Nisan";"Eylül";"Ocak";"Mart";"Şubat";"Kasım";"Aralık";"Mayıs"})
Formülünü uygulayın.
İyi çalışmalar.

 

[Necdet]

Merhaba,

Alternatif Olsun :

=METNEÇEVİR(TARİH(YIL(TARİHSAYISI("1."&A1));AY(TARİHSAYISI("1."&A1))-2;1);"aaaa")

 

[udentr2002]

çok teşekkür ederim hocam

 

[bedirster]

Merhaba,
tam olarak değil ama benzer bir çözüme ihtiyacım var,
a1 hücresinde bugünün tarihi yazıyor. (20.05.2023)
ben a2 hücresine 20.06.2023 tarihi geldiğinde 20.06.2023 tarihini otomatik olarak yazmasını istiyorum ve 21.06.2023 olduğunda değer hatası veremeyecek. devamında da a3-a4-a5 hücrelerine her ay aynı şekilde tarih gelmesini istiyorum
yardımlarınız için şimdiden teşekkürler

 

[ÖmerFaruk]

'Çalışma kitabı kod sayfasına ekleyin.
Private Sub Workbook_Open()
    Say = Range("A" & Rows.Count).End(xlUp).Row
    If DateAdd("m", 1, Range("A" & Say)) <= Date Then
        Range("A" & Say + 1) = DateAdd("m", 1, Range("A" & Say))
    End If
End Sub

 

[bedirster]

Merhaba, yardımınız için teşekkür ederim.
Sanırım hücre numaraları örnekleme dışında olduğu için ben uyarlayamadım. bu nedenle dosya şeklinde paylaşmam daha doğru olacak. çalışma sayfasındaki hücre aralığı a1 yerine b35 başlangıç hücresi olacak devamı da b35-b36-b37 olacak. haricen bir şey daha sormak istiyorum olma ihtimali varsa ;
eğer b35 hücresinde tarih varsa c35 hücresine kiralama hizmeti d35 hücresine =TOPLA(D21:J21)*5*A1 / Yazdırabilir miyiz?
eğer bu hücrelerin toplamı =TOPLA(D21:J21)*5*A1 değer "0" ise makro işlevini bitirecek.
şimdiden teşekkürler.

 

[ÖmerFaruk]

Dosyanık ekte.
Sayfaya her girişinizde makro kontrol edip tarihleri yazıyor.

Sorunuzun ikinci kısmını anlamadım.
eğer b35 hücresinde tarih varsa c35 hücresine kiralama hizmeti d35 hücresine =TOPLA(D21:J21)*5*A1 / Yazdırabilir miyiz?
eğer bu hücrelerin toplamı =TOPLA(D21:J21)*5*A1 değer "0" ise makro işlevini bitirecek.

Burada zaten iki ilave istemişsiniz. İkincideki aritmetik işlemin sonucu SIFIR ise makro işlevini bitirsin diyorsunuz da zaten o işlemden sonra başka bir işlem yok.
Anlamadığım için yapamadım.

 

[bedirster]

Merhaba Emeğiniz için teşekkür ederim.
bu da benim için yeterli kalanını ben if ile hallettim.
çok saolun.