regels verwijderen op datum waarde

  • Onderwerp starter Onderwerp starter pasan
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

pasan

Terugkerende gebruiker
Lid geworden
6 nov 2010
Berichten
1.110
Hallo
Met de volgende code wordt er gezocht naar een datum ouder dan 13 maand in een kolom
hierna wordt een cel geselecteerd met een offset (,-1) op zich gaat dit wel goed
alleen heb ik ook kolom titels en hier wordt meteen de 1e cel geselecteerd dit gaat niet goed helaas want in de eerste rij staan helemaal geen datums

Code:
With ActiveWorkbook.Sheets("blad1")
LastRow = cells(Rows.Count, "CP").End(xlUp).Row - 1
For B = 1 To LastRow
If Not .cells(B, "CP") >= DateSerial(Year(Now), Month(Now) - 13, Day(Now)) Then GoTo eind
If .cells(B, "CP") >= DateSerial(Year(Now), Month(Now) - 13, Day(Now)) Then .cells(B, "CP").Offset(, -1).Select

selection.Resize(, 5).Delete Shift:=xlUp
eind:
Next
End With
Als de eerste regel wordt geselecteerd word deze ook verwijderd
de regels moeten alleen verwijderd worden als in kolom CP een datum staat die ouder is als 13 maanden
 
Laatst bewerkt:
Lukt het hiermee?
Code:
Sub hsv()
Dim i As Long
  For i = Cells(Rows.Count, 94).End(xlUp).Row To 2 Step -1
  If DateValue(Cells(i, 94)) <= DateSerial(Year(Now), Month(Now) - 13, Day(Now)) Then
   Cells(i, 94).Offset(, -1).Resize(, 5).Delete shift:=xlUp
 End If
Next
End Sub
 
Laatst bewerkt:
Vanmiddag ff proberen

inmiddels getest en Helemaal Goed bevonden haha
bedankt HSV :thumb::thumb::thumb:
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan