• 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.

Automatisch filterrijen op basis van de celwaarde

Status
Niet open voor verdere reacties.
J

jefkeh

Gebruiker
Lid geworden
23 feb 2014
Berichten
130
Hoi,
Deze macro heb ik van internet gehaald en proberen toe te passen op mijn bestand.
Deze werkt op internet maar niet bij mij.
Wie kan mij helpen
Via de celwaarde in n1 en n2 wil ik mijn gegevens filteren, macro in module1
Als ik in n1 en n2 activiteit en.2 invul en dan op entertainment druk, zouden mijn gegevens gefilterd worden.
Graag jullie hulp
Dank u
 

Bijlagen

Iets teveel fouten.

1: De code hoort niet in een module maar achter het werkblad "Algemeen".
2: Het is geen Workbook_Change want dan zou de code in Thisworkbook_module moeten.
3: Het is geen "Currentregioen" maar Currentregion".

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$N$2" Then Range("A11:Q68").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("n1:n2")
End Sub
Currentregion er maar uitgehaald daar er bovenliggende cellen aan grenzen.
"Action:=" en "CriteriaRange:=" mag je ook nog verwijderen om het korter te maken.
En "xlFilterInPlace" kan weer vervangen worden door een 1.
 
Hartelijk dank voor de snelle reactie en oplossing, heb het gewijzigd zoals aangegeven
en het werkt perfect.
Nogmaals, dank u
Groetjes
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan