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

Filtermacro

Status
Niet open voor verdere reacties.

ronaldje

Gebruiker
Lid geworden
15 okt 2004
Berichten
70
In mijn materialenbestand wil ik een filtermacro via een knop maken.
Vraag staat in het bijgevoegde bestandje.

Ronald
 

Bijlagen

Probeer deze eens:
Code:
Sub Filter()
Dim c As Range

Application.ScreenUpdating = False

For Each c In Range("A2:A500")
    If Left(c.Value, 4) < 5510 Or Left(c.Value, 4) > 5609 Then
        Range("A" & c.Row).EntireRow.Hidden = True
    End If
Next

Application.ScreenUpdating = True
    
End Sub
 
Ferenc, ik wil niet op uw kap zitten of zo (is vandaag al de 2de keer dat ik "verbeteringen" aanbreng), maar dit is gewoon beter... Zelfs met de macro recorder had dit er al bijna helemaal zo gestaan.)

Code:
Range("A1").CurrentRegion.AutoFilter Field:=1, Criteria1:="=5510*", Operator:=xlOr, Criteria2:="=5670*"

Wigi
 
Laatst bewerkt:
Wigi,

No offence taken, je hebt (wederom) gelijk.

Ben een beetje vlugtig bezig geweest om tot een paar antwoorden te komen. Zit een beetje te balen dat ik weinig tijd heb om aan onze wederzijdse interesse aandacht te besteden. Hopenlijk hbben we binne kort weer wat meer tijd om de juiste oplossingen dirct te kunnen posten.
 
Om de filter terug te verwijderen nog een macro van Wigi :D :

Code:
Sub KillAutoFilter()
If Worksheets("[B]voorraad[/B]").AutoFilterMode Then
    Worksheets("[B]voorraad[/B]").AutoFilterMode = False
End If
End Sub

Eventueel "voorraad" aanpassen



Werkt alleen met de vorige macro van Wigi niet met die van Ferenc? raar?
zou Wigi dan toch een eigen taal ontwikkeld hebben :rolleyes:



Pierre
 
Laatst bewerkt:
Macro filter

Jongens bedankt , en Wigi top.
Maar is het ook nog mogelijk om in jou macro niet allen 5510 en 5670 te filteren maar 5510 tm 5670 .
En dan bijvoorbeeld alleen de getallen die > dan 15000.

Groet Ronald
 
Laatst bewerkt:
Bestudeer de Autofilter eens, dan moet je er zelf ook uit geraken.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan