kalan gün sayısını veren kod?

[udentr2002]

Merhaba arkadaşlar
ekli dosyamda da görebileceğiniz gibi
firmaların ruhsatların başlangıç tarihlerini ve bu ruhsatların bitiş tarihini gösteren sayfam var. Burda yapmaya çalıştığım şey şu,

kodlar çalıştırıldığında G stünundaki tarihleri kontrol edecek ve g stünundaki tarihlerden 10 gün kala uyarı vermeye başlayacak.

x firmasının (B stünu), xx.xx.xxxx tarihli (E stünu), XXXX RUHSATI (D stünu)'nın bitiş tarihine 10 gün kalmıştır. şeklinde bir mesaj verip bu mesajı userformdaki 2. labele yazmasını istiyorum. diğer gün açıldığında bu defa 9 gün kalmıştır şeklinde uyarı versin sıfır gün kalana kadar her açtığımda uyarıyı görüntülesin.

Formu aç düğmesine tıkladığımızda userform açılacaktır. kodlar userformun initialize bölümünde olursa güzel olur.

Şimdiden yardımcı olabilecek arkadaşlarıma çok teşekkür ederim.

SAYGILARIMLA

Not: ekli dosya mevcuttur.

 

[udentr2002]

Özür vba şifresini vermeyi unutmuşum.

şifre : udentr2002

 

[udentr2002]

yardım edebilecek bir hocam olursa çok makbule geçecektir.
yapmaya çalıştığımımı anlatamadım acaba?

 

[udentr2002]

yardımlarınızı bekliyorum arkadaşlar(

 

[uzmanamele]

merhaba
bu linkde istediğiniz kod var sanıyorum

http://www.excel.web.tr/f48/tarihten-3-gun-once-ve-tarih-geldiginde-uyar-t45916/sayfa2.html

 

[udentr2002]

Hocam çok teşekkür ederim yanlız ordakilerini uyarlayamadım sebebi ise orda uyarı verecek günü belirtmiş zaten ama benim istediğim ise tam olarak şu;
sayfa açıldığında g stünundaki tar,hleri tarayıp eğer o tarihlere 10 gün kaldıysa uyarı verecek ve diğer gün açtığımda 9 gün kaldı, diğer gün açtığımda 8 gün kaldı ..... şeklinde uyarıyı verecek.
Hocam tekrar ilgilenirseniz çok sevinirim.

 

[udentr2002]

sitede araştırma yapınca şöyle bir kod buldum kod aşağıda
[code
Private Sub Workbook_Open()
On Error Resume Next 'Hata varsa sonraki satıra geç
bulunan = "" 'bulunan değişkenini sıfırla
bul = Range("B1:B100").Find(Date).Row 'bugünkü tarihe ait hatırlatma satırını bul.

If bul > 0 Then 'eğer bir hatırlatma bulunur ise

With Range("B1:B100") 'b1:b100 alanı boyunca
Set c = .Find(Date) 'c ye arama sonucunu sabitle
If Not c Is Nothing Then 'eğer arama sonucu olumlu ise
firstAddress = c.Address 'ilk bulunanın adresini al
Do

bulunan = bulunan & Cells(c.Row, 1) & " --> " & c.Text & Chr(13)
'bulunan değerleri biriktir.

Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
'kayıt bulunduğu ve bulunan adres ilk adresten farklı olduğu müddetçe
'döngü devam etsin

End If
End With

MsgBox bulunan, vbInformation, "Hatırlanması Gerekenler"
'bulunanı mesaj olarak göster
End If

End Sub
end code]

yukarıdaki kodda tarih bugünü gösteriyorsa uyarı veriyor ama benim istediğim o tarihe 10 gün kala uyarı vermeye başlaması
ben bu kodu istediğim şekle uyarlayamadım eğer bir hocam uyarlayabilrse çok sevinirim.

 

[udentr2002]

değerli hocalarım programı tamamlayabilmek için kodlara ihityacım var yada nasıl yapılabildiğine dair bir örneğe
burada takıldığım için programda ilerleyemiyorum. rica etsem müsait olan bir hocam ilgilenebilrmi örenekleri inceliyorum ama ya benim istediğime uymuyor yada eski olduğu için dosyaya erişemiyırum

 

[udentr2002]

Çok değerli arkadaşlarım bir el atsanız diyorum lütfen benim için önemli bir dosyaydı. biliyorum elbetteki burda hiç kimsenin bir mecburiyeti yok ben naçizane çok rica ediyorum. Ve yardımlarınızı bekliyorum

 

[Korhan Ayhan]

Selamlar,

Label yerine Listbox ile hazırladığım örnek dosyayı incelermisiniz.

 

[udentr2002]

Hocam çok teşekkür ederim elerinize sağlık tam olarak işimi gördü
Allah razı olsun