Filtermacro

[ronaldje]

In mijn materialenbestand wil ik een filtermacro via een knop maken.
Vraag staat in het bijgevoegde bestandje.

Ronald

 

[Demeter]

Probeer deze eens:

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

 

[Wigi]

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

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

Wigi

 

[Demeter]

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.

 

[jpvs]

Om de filter terug te verwijderen nog een macro van Wigi :

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



Pierre

 

[Wigi]

Werkt alleen met de vorige macro van Wigi niet met die van Ferenc? raar?

Neen dat is niet raar want Ferenc gebruikt de Autofilter niet...

 

[jpvs]

Oeps, niet goed gezien.

Pierre

 

[Wigi]

Oeps, niet goed gezien.

Pierre

Ja het was verwarrend. De Autofilter stond er wel, maar werd niet gebruikt.

 

[ronaldje]

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

 

[Wigi]

Bestudeer de Autofilter eens, dan moet je er zelf ook uit geraken.

 

[jpvs]

Heb een bestand van Contextures genomen en wat aangepast zie : http://www.contextures.com/excelfiles.html

Pierre

 

[ronaldje]

ok

Bedankt voor jullie kennis .