Tarih Geldiğinde Mesaj Veren Kod??

[udentr2002]

merhaba hocalarım ekli dosyadada anlatmaya çalıştım
userform ile bu sayfaya Gelen malzemelerin adını giriş tarihini ve seri numaralarını giriyorum. Yalnız girişlerinden sonra benim yapmak istediğim D,E,F ve G stünları o malzemenin giriş tarihinden itibaren 3 er aylık kontrolleri yapılacaktır. Yani malzemenin giriş tarihinden iti baren ilk 3. ay 6. ay 9 ay ve 12. aylarda o malzemelerin kontrolleri yapılıyor formda nasıl bir kod uygulamalıyım ki Kontrol tarihleri geldiğinde o gün otomatik olarak mesaj versin Mesaj bilgisi şöyle olmalı. Mesala A malzemesinin girişini yaptık ve 3 ay geçti 01.04.2007 tarihi geldiğinde mesajda ("A Malzemesinin 3 Aylık Kontrol tarihi gelmiştir") diye bir mesaj versin otomatik olarak eğer 6 ay kontrol zamanı gelmişse A malzemesinin 6 aylık kontrol tarihi gelmiştir desin böyle bir kodu forma nasıl yerleştirebilirim. Şimdiden ilgilenen arkadaşlarıma teşekkür ederim.

 

[xxrt]

Excel dosyası açılmadan kodlar aktif olmayacağından bu isteğiniz yapılamaz.

 

[udentr2002]

hocam

excel dosyası açıkken nasıl olabilir yani excel dosyam açık olacak diyelim?? o zaman nasıl bir kod yazabiliriz?

 

[Recep İpek]

Bununla ilgili birçok çözüm olabilir.

Bunlardan bir tanesi aşağıda gibi kullanıcı tanımlı fonksiyon kullanmaktır.

Bu fonksiyonda Malzeme adını ve Giriş Tarihini seçmeniz yeterlidir.

Umarım işinize yarar.

Function KONTROL(Malzeme As String, Giris As Date) As String
t = Date
Select Case t
Case Giris To Giris + 90
son = ""
Case Giris + 91 To Giris + 180
son = Malzeme & "nin 3 Aylık Kontrol Tarihi Gelmiştir."
Case Giris + 181 To Giris + 270
son = Malzeme & "nin 6 Aylık Kontrol Tarihi Gelmiştir."
Case Giris + 271 To Giris + 390
son = Malzeme & "nin 9 Aylık Kontrol Tarihi Gelmiştir."
Case Giris + 361 To Giris + 999
son = Malzeme & "nin 12 Aylık Kontrol Tarihi Gelmiştir."
End Select
KONTROL = son
End Function

 

[udentr2002]

ripek hocam

Öncelikle vakit ayırdığın için teşekkür ederim yanlız bu kodları nereye yazacağım eğer mümkünse kodları dosyam üzerinden uygulayıp gönderebilrmisiniz lütfen çok makbule geçer hocamm

 

[Recep İpek]

Dosyanız ekte.