Soru Günü Gelenleri ve Geçenleri hatırlatma?

Merhaba Sayın @mars2 .

Sorunuzu tam olarak anlayamamış olabilirim.
Belgeniz açıkken ALT+F11 tuşlarına basarak VBA ekranını görüntüleyin.
VBA ekranında sol taraftan ThisWorkbook (BuÇalışmaKitabı) 'a fareyle çift tıklayıp
sağdaki boş alana aşağıdaki modu yapıştırın. Belgeyi MAKRO İÇEREBİLEN (*.xlsb veya *.xlsm uzantılı) türüyle kaydedin.

Belirttiğiniz kontrol belge açılırken otomatik olarak yapılıp, içerisinde içinde bulunulan yıl/ay 'a ait veriler listelenecektir.
İsteğiniz bu değilse, olması gereken durumu örneklendirip,
şu nedenle şu satırdaki şu verilerin listelenmesi gerekir gibi bir açıklama ekleyerek yeni bir örnek belge yükleyin.


.

düşündüğüm gibidir

Ömer BARAN' Alıntı:

Gizlenmiş

Genişletmek için tıklayın ...

Ömer BARAN' Alıntı:

Bu içeriği görebilmek için bu yazıya tepki verme

Genişletmek için tıklayın ...

Sayın ömer Baran;
Teşekkürler. İstediğim gibi olmuş ancak, geçmiş aylardan unutulan veya yapılmayanlarda bulunması halinde onları da göstermek mümkünmü?

İsterseniz, hem geçmiş döneme, hem de içinde bulunulan yıl - aya ait olup,
hem listeye girmesi gereken, hem de girmemesi gereken verilerin olduğu bir örnek belge hazırlayın.
Belgeye ekleyeceğiniz bir metin kutusuna da sadece uyarı listesine girecek verilerin olduğu uyarı metnini elle yazın ve
bu örnek belgeyi foruma ekleyin, çözüm bulunur mutllaka.

Sayın Ömer Baran;
İlginize teşekkürler.
Örnek dosyayı ekledim (Daha önceki listeyi günceleme ypıldı.)
Tek msgbox ta olmayabilir.
1. msgbox ta bu ay süresi geçenler
2. msgboxta ise daha önceki aylarda günü geçenleri verebilir.

Sayın @mars2 .

Mevcut kodu aşağıdakiyle değiştirin ( Sayfa ismine ve Cells ibarelerinin önündeki NOKTA karakterlerine dikkat ) .
Kod, Q sütunundaki hücrelerde yer alan son tarihin durumuna göre uyarı listesine alınma olayına karar verir.

.

Sayın @Ömer BARAN ;

İlgi ve alakanıza teşekkürler.

İl dışında olduğumdam cevabınız biraz geç yanıtlayabildim
kodu kendi uygulamama uyguladığımda
kodun
v = CDate(Split(.Cells(sat, 17), Chr(10))(s))
satırı hata vermektedir.

Bunun nedeni;
1- Hücrelerdeki biçim şekli tarih mi yoksa genel de olabilir mi biçimlenmesi gerekiyor,
2- hücrelerdeki tarihlerde bir yanlışlık yapılmış olduğundan mıdır
Bunlar değilse neden kaynakmış olabilir.

Sayın @mars2

Örnek belgeniz üzerinde denediniz mi acaba?
Örnek belgenizde sorun yaşamıyorsanız, gerçek belgedeki verileri görmek lazım.
Yazdığım kod'da;
-- hücrede en az iki tarih olması ve
-- hücre içerisinde iki tarihi birbirinden ayırmak ve satır başı yapmak için ALT+ENTER tuşunun kullanıldığı
koşulu vardı.
Belki gerçek belgenizde hücrede tek tarih vardır veya
tarihleri ayırmak için (metni kaydır özelliğiyle birlikte)BOŞLUK karakteri kullanılmıştır.

Sorun yaşadığınız örnek belgenin, özel bilgi içermeyen bir kopyasını ekeyin, bakarım.

.

Sayın Ömer Baran;

Açıklamalarınız aydınlatıcı ve yol gösterici olmakta,

Cevabınızda;
hücrede en az iki tarih olması ve
-- hücre içerisinde iki tarihi birbirinden ayırmak ve satır başı yapmak için ALT+ENTER tuşunun kullanıldığı
koşulu vardı.
Belki gerçek belgenizde hücrede tek tarih vardır veya
tarihleri ayırmak için (metni kaydır özelliğiyle birlikte)BOŞLUK karakteri kullanılmıştır.

Bazı hücreler hiç tarih yok
Bazıları bu yıl biteceğinden 1 adet bulunabiliyor
Tarihleri ayırmak için (metni kaydır özelliğiyle birlikte) BOŞLUK karakteri kullanılmamışt

Bu nedenle; kodun çalışması ve hayata vermemesi için
Hücre içerisinde iki tarihi birbirinden ayırmak ve satır başı yapmak için ALT+ENTER tuşunun kullanmaktayım.
Boş olan hücrelere tarih yazılmayabilinir
Tarihleri ayırmak için (metni kaydır özelliğiyle birlikte) BOŞLUK karakteri kullanılmamıştır.
Süresi dolan ve devam etmeyen tek tarih olanlara (12.12.2019 ) ikinci tarih olarak 00.00.0000 gibi işlem uygulanması gerekmektedir.

Kodun sorunsuz çalışması için önerileriniz de bulunursanız sevinieim.

9 numaralı cevabımdaki kodda küçük değişiklik yaptım.
Sayfayı yenileyerek önceki cevabımdaki kodun yeni halini belgenize uygulayarak dener misiniz?

Sayın Ömer Baran;

Sorunun başından şimdiye kadar ki süreçte hiç bir fedakarlıktan kaçınmadan cevapladığınız için teşekkürler.