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.
![Çözüldü](images/icons/cozuldu.png)
If Format(SV.Cells(i, "B"), "ddmmmm") > Format(Date, "ddmmmm") Then
If Format(SV.Cells(i, "B"), "ddmmmm") < Format(Date, "ddmmmm") Then
(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.
(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.