Excel datum Controleren en verwijderen

[Carloj]

In mij vorige vraag heb ik niet echt echt het antwoord gekregen wat is zocht dus ga ik het opsplitsen in kleine vragen.
Zo heb ik nu deze code :

Sub Knop1_Klikken()
Datum = Range("M5:M24")
If Datum < Date Then
cell.Range("A5:A24", "M5:M24").ClearContents
End If


End Sub

Spreekt denk ik voor zich wat het moet gaan doen.
De code moet kijke of er een datum oud dan vandaag is de de range van M5 tot M24. Is dit het geval dan moet hij deze datums en de naam verwijderen in A5 tot A24 en M5 tot M24.

 

[Cobbe]

Veegt wel alles uit indien er een datum kleiner dan vandaag in zit:

Sub Knop1_Klikken()
 For Each dt In Range("M5:M24")
  If dt < Date Then
   cell.Range("A5:A24", "M5:M24").ClearContents
  End If
 Next
End Sub

 

[Carloj]

Hij geeft bij mij een foutmelding :
Object niet gevonden
cell.Range("A5:A24", "M5:M24").ClearContents

 

[Cobbe]

Laat die cell eens weg voor Range.

Range("A5:A24,M5:M24").ClearContents

 

[Carloj]

Het lijkt nu wel of de code kijkt naar de datums en als die een datum heeft gevonden die nieuwe is dan vandaag de rest meteen verwijderd. Er blijft van de 5 datums die nieuwer zijn (en dus zoude moeten blijven staan) maar 1 over. En ook verwijderd die nu alle gegeven tussen A en M dit is eigenlijk ook niet de bedoeling omdat hier een aantal formules in staan.
Toch alvast bedankt voor je hulp!

 

[Cobbe]

Range("A5:A24,M5:M24").ClearContents

Die regel heb ik er niet ingezet, ik heb u nog gewaarschuwd dat alles zou verwijderd worden.

Zet eens in je bestand wat je nu echt wanneer wil bereiken.

 

[Carloj]

Bekijk bijlage 1_Datum verwijderen + filteren2.xlsm
Dit is ongeveer het zelfde bestand als ik mee werk. De knop moet kijken of er oude datum in het kopje gereed staan. Zo ja dan moet hij deze datum verwijderen en het artikel nummer wat bij deze datum staat.

 

[Cobbe]

Test deze dan eens:

Sub Oude_datums()
 For Each dt In Range("E4:E" & Range("E" & Rows.Count).End(xlUp).Row)
  If dt <> "" And dt < Date Then
   Rows(dt.Row).EntireRow.ClearContents
  End If
 Next
End Sub

 

[Carloj]

Hij verwijder nu de correcte datum(top!) alleen neemt hij nog steeds de formules mee van de verwijderde datums.

 

[Cobbe]

Zo dan:

Sub Oude_datums()
 For Each dt In Range("E4:E" & Range("E" & Rows.Count).End(xlUp).Row)
  If dt <> "" And dt < Date Then
   Cells(dt.Row, 1).ClearContents
   Cells(dt.Row, 5).ClearContents
  End If
 Next
End Sub

 

[Carloj]

Perfect! precies wat ik bedoelde, heel erg bedankt!