A hücresindeki tarih bugün değil ise satırı sil

[ilhanaraz]

Merhaba formda daha tazeyim.
iş yerimde hergün çektiğim veriler var ve bu verilerin eski tarihli olanlarını ayıklamam gerekmekte.

Bana şöyle bir makro lazım

A20 hücresinden sonraki A hücresindeki tarih bugün değil ise satırı sil.
(A1:A20 arası Formüller olduğundan Kesinlikle silmemesi gerekmekte)

Not: Makronun biraz hızlı çalışması lazım en az 2000 eski tarihli veri çıkacak.

 

[Murat OSMA]

Şu kodları bir deneyin;

sub satır_sil()
dim i  as integer
application.screenupdating = false
for i = range("a20").end(4).row to 21 step - 1
if cells(i,1) <> vba.date then
rows(i).delete
end if
next i 
application.screenupdating = true
end sub

 

[ilhanaraz]

İşte bu. Çok teşekkürler.

 

[Murat OSMA]

Rica ederim, iyi akşamlar.