Eski tarihleri silmek

Şöyle olur.

Kodda yer alan koyu renkli kısımda;
-- bugünün tarihinden ...ay öncesinden daha eski tarihleri bulmak için "m" (month) kullandık.
-- kaç ay >> -3 (eski dediğimiz için eksi)
Böylece kriter tarih olarak BUGÜNden 3 ay öncesi tarihi bulduk.

Alanı, bu tarihten KÜÇÜK olanlar ( ..."<" & ... ) diye E sütununa göre (Field:=5) filtlediğimizde
kalan satırlar silinmesi gerekenler demektir.

Ardından da 2'nci satırdan itibaren filtre sonucunda;
-- KALAN hücrelerin (.....SpecialCells(xlCellTypeVisible)....)
-- satırlarını siliyoruz (......EntireRow.Delete.....),
-- son olarak da filtreyi kaldırarak işlemi tamamlıyoruz.

Sayın Ömer Bey, ellerinize sağlık çok güzel bi çalışma olmuş, çok teşekkür ediyorum.

Mesaj kısmını da yaparsak çok daha güzel olacak, kaç tane sildiğini mesaja yazabilir mi?

Aşağıdaki mesaj kutusunu örnek olarak yazmıştım
MsgBox "10 adet eski tarihli bilgiler silindi", vbInformation

Kodu güncelledim.
Sayfayı yenileyerek kotrol edin.

Sayın Ömer Bey, aşağıdaki kodu sarıya boyuyor.

adet = ActiveSheet.Range("E2:E" & son).SpecialCells(xlCellTypeVisible).Count

Ben kodu güncellerken almışsınızdır, sayfayı yenileyerek tekrar kontrol eder misiniz?

Sayın Ömer Bey, çok teşekkür ediyorum tam istediğim gibi çalışıyor ellerinize sağlık.

Hayırlı günler diliyorum.