• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

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

Status
Niet open voor verdere reacties.
D

Depant

Verenigingslid
Lid geworden
5 aug 2015
Berichten
238
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.:confused:

Bij voorbaat hartelijk dank.
Groeten Henk Harbers
 

Bijlagen

  • bewaarbelgen met koelkast2.xlsm
    449,2 KB · Weergaven: 28
moet het met en macro?
Je kan ook filteren en dan getalfilter.
de gele kolomen kan je verwijdweren door ze te selecteren.
 
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.:(
 
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
 
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
 
oplossing

Hartelijk dank,

Super snel.
Het werkt als een tierelier!!

Groeten
Henk Harbers.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan