Ik heb een bestand, waarvan ik een aantal regels wil verwijderen die aan twee criteria voldoen
in kolom A staat een datum
in kolom B staat de naam van de klant
De regel moet verwijderd worden indien de datum > dan vandaag (H1) en als in kolom B de naam staat vermeld in het zoekveld (C4)
Dim klant As String
Dim Laatsterij As Long
Dim Regelnummer As Long
Dim Aantalverwijderd As Integer
Dim Eersterij As Integer
klant = Range("C4")
Sheets("afspraak").Select
Aantalverwijderd = 0
Laatsterij = ActiveSheet.UsedRange.Rows.Count
Regelnummer = Laatsterij
Application.Calculation = xlManual
With Sheets("Afspraak")
For Regelnummer = Laatsterij To Eersterij
If Range("A + chr (Regelnummer)") > (Date + 1) Then
If Range("B" & Regelnummer) = klant Then
Rows(ActiveCell.Row).EntireRow.Delete
Aantalverwijderd = Aantalverwijderd + 1
End If
End If
Regelnummer = Regelnummer - 1
Next Regelnummer
End With
MsgBox ("er zijn " & Aantalverwijderd & " records verwijderd")
Application.Calculation = xlAutomatic
in kolom A staat een datum
in kolom B staat de naam van de klant
De regel moet verwijderd worden indien de datum > dan vandaag (H1) en als in kolom B de naam staat vermeld in het zoekveld (C4)
Dim klant As String
Dim Laatsterij As Long
Dim Regelnummer As Long
Dim Aantalverwijderd As Integer
Dim Eersterij As Integer
klant = Range("C4")
Sheets("afspraak").Select
Aantalverwijderd = 0
Laatsterij = ActiveSheet.UsedRange.Rows.Count
Regelnummer = Laatsterij
Application.Calculation = xlManual
With Sheets("Afspraak")
For Regelnummer = Laatsterij To Eersterij
If Range("A + chr (Regelnummer)") > (Date + 1) Then
If Range("B" & Regelnummer) = klant Then
Rows(ActiveCell.Row).EntireRow.Delete
Aantalverwijderd = Aantalverwijderd + 1
End If
End If
Regelnummer = Regelnummer - 1
Next Regelnummer
End With
MsgBox ("er zijn " & Aantalverwijderd & " records verwijderd")
Application.Calculation = xlAutomatic