Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 8 van 8

Onderwerp: regels verwijderen 2 criteria

  1. #1
    Junior Member
    Geregistreerd
    23 september 2009
    Vraag is niet opgelost

    regels verwijderen 2 criteria

    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)



    Klik op afbeelding voor grotere versie

Naam:  regel.JPG
Bekeken: 16
Grootte:  33,4 KB


    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

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    9 september 2000
    Locatie
    Zuid-Holland
    Sorry hoor, maar een lid sinds 2009 zou toch moeten weten dat je code in codetags moet plaatsen en tevens een voorbeeld documentje bijvoegen.
    "Bij IT-ers gaat alles automatisch, maar niets vanzelf. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Junior Member
    Geregistreerd
    23 september 2009

    bestand

    Hierbij een gedeelte van het bestand
    Bijgevoegde bestanden Bijgevoegde bestanden

  4. #4
    bedoel je zoiets?
    Bijgevoegde bestanden Bijgevoegde bestanden

  5. #5
    of zoiets?
    Bijgevoegde bestanden Bijgevoegde bestanden

  6. #6
    Senior Member
    Geregistreerd
    1 juni 2022
    Met een aantal wijzigingen in je eigen code werkt het ook, zoek de verschillen:

    Code:
    Sub Test()
        Dim klant As String
        Dim Laatsterij As Long
        Dim Regelnummer As Long
        Dim Aantalverwijderd As Integer
        Dim Eersterij As Integer
        Eersterij = 2
        klant = Sheets("Verwijderen afspraak").Range("C4")
        Sheets("afspraak").Select
        Aantalverwijderd = 0
        Laatsterij = ActiveSheet.UsedRange.Rows.Count
        Regelnummer = Laatsterij
        Application.Calculation = xlManual
        For Regelnummer = Laatsterij To Eersterij Step -1
            If Cells(Regelnummer, 1) > (Date + 1) Then
                If Cells(Regelnummer, 2) = klant Then
                    Rows(Regelnummer).EntireRow.Delete
                    Aantalverwijderd = Aantalverwijderd + 1
                End If
            End If
        Next Regelnummer
        
        MsgBox ("Er zijn " & Aantalverwijderd & " records verwijderd")
        
        Application.Calculation = xlAutomatic
    End Sub

  7. #7
    Junior Member
    Geregistreerd
    23 september 2009

    2 criteria

    Hartelijk dank, het werkt

  8. #8
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    Range("H1") is overbodig geworden door de code.
    Code:
    Sub hsv()
    With Sheets("afspraak").Cells(1).CurrentRegion
      .AutoFilter 1, ">" & CLng(Date)
      .AutoFilter 2, Sheets("verwijderen afspraak").Range("c4")
      .Offset(1).EntireRow.Delete
      .AutoFilter
    End With
    End Sub
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren