+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Vade tarihinde uyarı ile hatırlatma (/konu-vade-tarihinde-uyari-ile-hatirlatma.html)
Vade tarihinde uyarı ile hatırlatma - hsendogan - 06/03/2015
Ekte örneğini verdiğim bir vade takip dosyam var.
Vadesi bugün olanları userform ile listeleyebiliyorum.
Fakat Vadesi geçmiş olanları listeleyemiyorum.
Yardımcı olursanız sevinirim.
dosya ektedir.
Cvp: Vade tarihinde uyarı ile hatırlatma - boolean_ - 06/03/2015
Sayın hsendogan,
userform2 içindeki tarih sorgusunu küçüktür (<) değil büyüktür (>) yaparsanız istediğiniz bilgiye ulaşırsınız.
Kod:
If Format(SV.Cells(i, "B"), "ddmmmm") > Format(Date, "ddmmmm") ThenCvp: Vade tarihinde uyarı ile hatırlatma - atoz112 - 07/03/2015
sayın hsendogan,
EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
ayrıca,iki hususa yönelik bilgi paylaşımında bulunmak gerektiği kanısındayım.
1-) tarih formatı için kullandığınız ifadenizde de hata söz konusu.çünkü;
veri girişleri yaptığınız sayfanızda format olarak Kısa Tarih (dd.mm.yyyy) şeklinde kullanıyorken,if fonksiyonu ile kontrol ederken ise,Format(Date, "ddmmmm") şeklinde kullanıyorsunuz.bu da,veri türü uyuşmazlığı hatası verir.
bunu gidermek ve hata almamak için,tüm format ifadenizde "dd.mm.yyyy" olarak belirtmelisiniz.
2-) direkt olarak
Kod:
If Format(SV.Cells(i, "B"), "ddmmmm") < Format(Date, "ddmmmm") Thenson olarak,eklenen örnek uygulamadaki kodlar incelendiğinde buradaki açıklamalarda kast edilenler net olarak gözlenebilecektir.bilginize...iyi çalışmalar,saygılar.
Cvp: Vade tarihinde uyarı ile hatırlatma - hsendogan - 08/03/2015
(07/03/2015, 14:50)atoz112 yazdı: sayın hsendogan,
EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
ayrıca,iki hususa yönelik bilgi paylaşımında bulunmak gerektiği kanısındayım.
1-) tarih formatı için kullandığınız ifadenizde de hata söz konusu.çünkü;
veri girişleri yaptığınız sayfanızda format olarak Kısa Tarih (dd.mm.yyyy) şeklinde kullanıyorken,if fonksiyonu ile kontrol ederken ise,Format(Date, "ddmmmm") şeklinde kullanıyorsunuz.bu da,veri türü uyuşmazlığı hatası verir.
bunu gidermek ve hata almamak için,tüm format ifadenizde "dd.mm.yyyy" olarak belirtmelisiniz.
2-) direkt olarak
şeklinde bir kontrol uyguladığınız takdirde,istenilen sonuçları göstermeyecektir.bu nedenle,istenilen sonuçları elde edebilmek için,önce bir değişken tanımlaması gerekmektedir ve ardından da bu değişken adını bu if fonksiyonuna yazmak gerekir.böylece,sonuçlar istendiği gibi olacaktır.Kod:If Format(SV.Cells(i, "B"), "ddmmmm") < Format(Date, "ddmmmm") Then
son olarak,eklenen örnek uygulamadaki kodlar incelendiğinde buradaki açıklamalarda kast edilenler net olarak gözlenebilecektir.bilginize...iyi çalışmalar,saygılar.
Hocam allah razı olsun.
peki aynı tablo ve veri yapısında birden fazla sheet im varsa ne yapmam gerekir. Örnekte deneme idi. deneme 2 deneme 3 deneme 4 gibi sheetlerim olacak. aynı makroyu hepsi için çalıştırmak istersem ne yapmam gerekir.
Cvp: Vade tarihinde uyarı ile hatırlatma - atoz112 - 08/03/2015
sayın hsendogan,
EK'te;
bu bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
örnekte;
sadece bir adet deneme2 adlı sayfa (sheet) eklenmiştir.siz,içeriğini ve kodlarını incelemek sureti ile,istediğiniz kadar sayfa eklemesinde bulunabilirsiniz.bilginize.
iyi çalışmalar,
saygılar.
Cvp: Vade tarihinde uyarı ile hatırlatma - hsendogan - 08/03/2015
(08/03/2015, 15:57)atoz112 yazdı: sayın hsendogan,
EK'te;
bu bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
örnekte;
sadece bir adet deneme2 adlı sayfa (sheet) eklenmiştir.siz,içeriğini ve kodlarını incelemek sureti ile,istediğiniz kadar sayfa eklemesinde bulunabilirsiniz.bilginize.
iyi çalışmalar,
saygılar.
hocam teşekkür ederim.
peki tek her sheet için ayrı bir form oluşturmadan sonuçları aynı form a gösteremezmiyim?
aşağıdaki kod yerine ne yazmam gerekir.
Set SV = Sheets("deneme")
ReDim dizial(1 To 2, 1 To 1)