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.

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.

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.

son olarak,eklenen örnek uygulamadaki kodlar incelendiğinde buradaki açıklamalarda kast edilenler net olarak gözlenebilecektir.bilginize...iyi çalışmalar,saygılar.

(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 

Kod:

If Format(SV.Cells(i, "B"), "ddmmmm") < Format(Date, "ddmmmm") Then

ş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.

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.

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.

(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)