Macro voor autofilter??

[pvanooijen]

Hallo ik probeer een autofilter automatisch te laten werken maar krijg het niet voor elkaar.

Ik heb een werkblad waarin in het gebied B2:Z1000 data staat.
In veld A1 wil ik de zoekcriteria invoeren waarop automatisch het filter zijn werk moet doen, deze moet dan filteren op kolom E

Tot nu heb ik allerlei macro's van internet af gehaald maar krijg het niet voor elkaar.

Hopelijk kan iemand me de juiste tip geven.

 

[Niels28]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value <> "" Then
    ActiveSheet.Range("$B$2:$Z$1000").AutoFilter Field:=5, Criteria1:=Target.Value
End If
End Sub

De juiste tip is: plaats een voorbeeldbestand


Niels

 

[Haije]

p,

plak deze code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value <> "" Then
    ActiveSheet.Range("$B$[COLOR="#FF0000"]1[/COLOR]:$Z$1000").AutoFilter Field:=[COLOR="#FF0000"]4[/COLOR], Criteria1:=Target.Value
End If
End Sub

achter tabblad "overzicht brede scholen"
klik daartoe met rechts op de tabbladnaam en kies vervolghens voor "Programmacode weergeven"

@Niels: twee kleine aanpassinkjes gedaan (zie rode markering)

 

[pvanooijen]

Heel erg bedankt, het werkt perfect.

Heel erg bedankt, het werkt perfect.

 

[Haije]

p,

zet je de status dan ook nog even op "opgelost"?

 

[pvanooijen]

waar kan ik dat doen?

waar kan ik dat doen?

 

[Haije]

bovenaan, bij je oorspronkelijke vraag in post #1

 

[Haije]

p,

bedankt!