Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 6 van 6

Onderwerp: macro die rijen verwijdert op basis van een waarde in een kolom

  1. #1
    Senior Member
    Verenigingslid

    Geregistreerd
    5 augustus 2015
    Vraag is opgelost

    macro die rijen verwijdert op basis van een waarde in een kolom

    Goedemiddag samen,

    Wie zou zo vriendelijk willen zijn om mij te helpen,
    Ik zoek een macro die in bijgevoegd bestand die rijen verwijdert op basis van de celwaarde in kolom 3.
    Alle rijen waar de waarde niet ligt tussen de 300000 en en 320000 moeten worden verwijdert.
    Ook zou het ontzetten fijn zijn als in dezelfde macro de geel gevulde kolommen worden verwijdert.
    Ondertussen ga ik verder prutsen om het zelf voor elkaar te krijgen.

    Bij voorbaat hartelijk dank.
    Groeten Henk Harbers
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Senior Member
    Geregistreerd
    17 juni 2015
    moet het met en macro?
    Je kan ook filteren en dan getalfilter.
    de gele kolomen kan je verwijdweren door ze te selecteren.
    Marco

  3. #3
    Senior Member
    Verenigingslid

    Geregistreerd
    5 augustus 2015

    goedemiddag

    Goedemiddag,

    Dank voor de reactie
    Met een macro kan ik in de snelle toegang het idereen elke dag laten doen.
    Het is een dagelijks terugkerend ritueel.

  4. #4
    Mega Senior
    Verenigingslid

    Geregistreerd
    27 februari 2016
    Zo ? voor de rijen.
    Test het wel even op een copy bestand.

    Code:
    Sub Verwijder()
    i = Range("c" & Rows.Count).End(xlUp).Row
    Set Rng = Range("C2:C" & i)
    Rng.AutoFilter 1, "<=300000", xlOr, ">=320000"
    Set Rng = Application.Intersect(Rng, Rng.SpecialCells(xlCellTypeVisible))
    If Not Rng Is Nothing Then Rng.EntireRow.Delete
    
    End Sub
    Met vriendelijke groet,
    Albert

  5. #5
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Code:
    Sub VenA()
      With Sheets("ontvangst").Cells(1).CurrentRegion
        .AutoFilter 3, "<=300000", xlOr, ">=320000"
        .Offset(1).EntireRow.Delete
        .AutoFilter
        .Parent.Range("D:L,N:P,S:U").Delete
      End With
    End Sub
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  6. #6
    Senior Member
    Verenigingslid

    Geregistreerd
    5 augustus 2015

    oplossing

    Hartelijk dank,

    Super snel.
    Het werkt als een tierelier!!

    Groeten
    Henk Harbers.

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

Regels
Help

Helpmij.nl en business

Partners
Sponsoren