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
son olarak,eklenen örnek uygulamadaki kodlar incelendiğinde buradaki açıklamalarda kast edilenler net olarak gözlenebilecektir.bilginize...iyi çalışmalar,saygılar.