Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 5 van 5

Onderwerp: Hulp bij rijen verwijderen

  1. #1
    Senior Member stefano's avatar
    Geregistreerd
    22 mei 2004
    Locatie
    Oudenaarde - België
    Vraag is opgelost

    Hulp bij rijen verwijderen

    Ik wil in een bestand, zie bijlage, de rijen verwijderen die in kolom B het jaartal 2017 bevatten. Ik gebruik onderstaande macro, maar krijg een overflow error 6.

    Bovendien vraag ik me af of deze macro item 2017 wel zal vinden gezien de datum in kolom B via een formule bekomen wordt.

    Dank alvast voor de hulp,

    Stefano

    Code:
    Sub Verwijderen()
    
    Dim i As Integer
    Dim y As Integer
    
    i = ActiveSheet.UsedRange.Rows.Count
    
    For y = i To 1 Step -1
        If Cells(y, 2).Value = "2017" Then
           Cells(y, 2).EntireRow.Delete
        End If
    Next
    Verwijderen.xlsm
    End Sub
    haast je als je tijd hebt, dan heb je tijd als je haast hebt

  2. #2
    dim i en y als long

  3. #3
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Of zo:
    Code:
    Sub Verwijderen()
        Dim c As Range
        Dim rngB As Range
        For Each c In Intersect(ActiveSheet.UsedRange, Columns("B"))
            If c = "2008" Then
                If rngB Is Nothing Then Set rngB = c.EntireRow
                Set rngB = Union(rngB, c.EntireRow)
            End If
        Next c
        rngB.Delete
    End Sub
    Dat gaat met een dergelijk aantal rijen vele malen sneller.

    N.B.:
    Die overflow error komt inderdaad, zoals Emil al zegt doordat je i en y als integer declareert.
    In een integer kan een getal van maximaal 32767 en daar zit je met het totaal aantal rijen boven.
    In een Long kan een veel groter getal.
    Laatst aangepast door edmoor : 14 september 2017 om 12:25 Reden: N.B.
    "Hardware: The parts of a computer system that can be kicked. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.

  4. #4
    Senior Member stefano's avatar
    Geregistreerd
    22 mei 2004
    Locatie
    Oudenaarde - België
    Ik had een code geprobeerd die hier eerder stond en ondertussen verdwenen is, maar die nam echt wel heel veel tijd in beslag.

    Daarna heb ik de code van ed geprobeerd en die werkt vliegensvlug.

    dank allen voor de hulp!
    haast je als je tijd hebt, dan heb je tijd als je haast hebt

  5. #5
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Ik had 'm om die reden inderdaad gewijzigd
    "Hardware: The parts of a computer system that can be kicked. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.

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
Aanbiedingen