AccessTr.neT

UStam
A1 hücresine herhangi bir tarih yazıldığı zaman bir önceki ayın 15'i içinde bulunulan ayın da 14'ünü verecek bir tarihe ihtiyacım var. Rica etsem yardımcı olabilir misiniz?

Örnek 1 :
A1 Hücresi : 11/05/2021
B1 Hücresi : 15/04/2021
C1 Hücresi : 14/05/2021

Örnek 2 :
A1 Hücresi : 19/07/2021
B1 Hücresi : 15/06/2021
C1 Hücresi : 14/07/2021

Örnek 3 :
A1 Hücresi : 21/03/2021
B1 Hücresi : 15/02/2021
C1 Hücresi : 14/03/2021

tarih() yada Date() fonksiyonuyla ilgili bir araştırma işinize yarayabilir

Sayın malatyalı
Alttaki kodu dener misiniz?

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then

    [$B$1] = DateSerial(Year([$A$1]), Month([$A$1]) - 1, 15)

    [$c$1] = DateSerial(Year([$A$1]), Month([$A$1]), 14)

End If

End Sub

date fonksiyonunu doğrudan hücre içinde kullanılabildiği için önermiştim

Çok teşekkür ederim

malatyalı

berduş

userx

berduş

malatyalı