Dosya açılışında kalan gün sayısı gösteren macro yardımı

[allexpert]

Arkadaşlar, macro yardımı ile dosya açıldığında ekrana " … gün sonra kredi ödemeniz var" mesajı veren bir makroya ihtiyacım var.

Dosya'nın ekran görüntüsü ve açıklamalar ektedir.

Örnek K3 gün farkı hesaplamsı için formül : =INT(K3-TODAY())

Yardımlarınız için şimdiden çok teşekkürler.

http://m1307.hizliresim.com/1c/1/psl85.jpg

 

[vardar07]

Merhaba, hangi hücrede görmek istiyorsanız oraya aşağıdaki kodu uygulayın.
7 Günden fazla ise var, 7 gün ve küçükse kaldı yazar.

=EĞER(K3-BUGÜN()>7;K3-BUGÜN()&" var";K3-BUGÜN()&"  Gün kaldı")

 

[allexpert]

Merhaba, hangi hücrede görmek istiyorsanız oraya aşağıdaki kodu uygulayın.
7 Günden fazla ise var, 7 gün ve küçükse kaldı yazar.

=EĞER(K3-BUGÜN()>7;K3-BUGÜN()&" var";K3-BUGÜN()&"  Gün kaldı")

Cevap için teşekkürler. Yaptığım kodlama aşağıdaki gibidir.


Sub loan_reminder()

Dim a As Range
Dim b As Integer

Sheets("WCL").select

For Each a In Range("G11:G28")

b = a - Date
If b <= 7 Then
MsgBox a.Address(0, 0) & " hücresindeki kredi için, " & b & " gün sonra ödeme var.", vbCritical, "U Y A R I"
End If
Next a

End Sub



Macro yapılan dosyada 8 tane sheet var.

Ben "WCL" isimli çalışma sayfasında bu macronun çalışmasını istiyorum.

Dolayısı ile Sheets("WCL").select diye ekleme yaptım. Fakat macro debug hatası veriyor bu kod için.

Doğrusu nasıl olmalı.

Teşekkürler.

 

[allexpert]

Cevap için teşekkürler. Yaptığım kodlama aşağıdaki gibidir.

Dosyayı kurcaladıkça bişey çıkıyor.

WCL isimli sheette H sütunundaki "OPEN" yazan satırlara bakarak ödemeye 7 gün kala dosya açılışında "ödemeniz var" diyen uyarı ekranı gelsin istiyorum.

Örnek : F16 satırında 7.000.000 var ödeme tarihi 09.07.2013 (G16).

http://m1307.hizliresim.com/1c/3/puq3v.jpg

Yardımlarınız kıymetli.


Teşekkürler.