VBA porovnani bunek a smazani radku se spatnym datem Vyřešeno

[Llupo01]

Ahoj,

chtel bych poprosit o radu s makrem. Zkusim v rychlosti popsat situaci. Kazdy den si stahuju data z predchoziho dne (napr dnes to bylo pro 16AUG15), ale vzdy se tam omylem propise i par dni z dne predtim (takze se mi tam obevi asi 5-6 radku s datem 15AUG15) a techto par dni bych potreboval smazat, aby tam byly jen udaje ze 16AUG15. Napadlo me vyhledat makro ktere porovna vsechny bunky jednu s druhou a smaze vsechny, ktere nebudou souhlasit napr. s radkem 20, tam urcite bude datum spravne, protoze tech spatnych je jen par a jsou vzdy nahore, jelikoz data jsou serazena defaultne podle casu. Nedokazal jsem to nikde najit, nebo modifikovat tak aby to fungovalo..mohl by nekdo prosim poradit? Pripadne navrhnout lepsi reseni nez napadlo me?

Dekuju moc.

[Reklama]

[Llupo01]

Jeste me napadlo, neslo by nejak pomoci makra smazat vsechny radky, ktere se nerovnaji ,,=TODAY()-2"?
zatim jsem nasel a zprovoznil toto:

Public Sub Delete1()
lastrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
For x = lastrow To 2 Step -1
If Cells(x, 1).Value <= "Today()- 2" Then
Cells(x, 1).EntireRow.ClearContents
End If
Next
End Sub

Problem je v tom, ze za pouziti tohoto to nesmaze jen ta spatna data today-2, ale i vsechna ostatni navic nejen ze sloupce A.