Belirlenen Tarihlerde Rakam Atama

[GokhanAy]

Merhaba arkadaşlar. Umarım bu konu hakkında bilgisi olanlar yardımcı olur.


örneğin;

18.07.2012 Tarihinde yapılmış bir sözleşme var ve her ayın 18. gününde 150 TL atmasını istiyorum. bununla ilgili nasıl bir formül yazabilirim.


Yardımlarınız için şimdiden hepinize çok teşekkür ediyorum.

 

[asi_kral]

Merhaba
Boş bir module ekleyiniz_?

Option Explicit
Sub auto_open()
Dim STR As Long
If Day(Date) = [COLOR="Red"]18[/COLOR] Then
STR = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & STR) = 150
End If
End Sub

Not : O gün dosyayı açmalısınız. Yalnızca 1 sefer açmalısınız. İkinci defa açtığınızda aynı veriyi gene yazacaktır.

 

[GokhanAy]

Teşekkürler. Denıyorum hemen

 

[GokhanAy]

Peki dosyayı açmadan formul şeklinde yazamazmıyız. Eğersaylı mesela?

 

[asi_kral]

Peki dosyayı açmadan formul şeklinde yazamazmıyız. Eğersaylı mesela?

Satır eklemez formül. Her yazdığınız satırda otomatik günü gelince işlem yapar.
Örnek vermek gerekirse.

=EĞER(GÜN(BUGÜN())=[COLOR="Red"]18[/COLOR];150;0)

Bu formül işini görür.

 

[GokhanAy]

Mesela durum şu şekilde doğrumudur hocam ?

 

[asi_kral]

Merhaba
B8 hücresine

=EĞER(GÜN(BUGÜN())=18;150;0)

Bu formülü yazarak denersen. Sonuçları görmek için tarihi Ayın 18'ine al sonuçları görebilirsin.