Automatisch filteren

[Stagee]

Hallo,
Als ik informatie wijzig uit mijn lijst, dan moet ik op een ander tabblad steeds opnieuw filteren.
Ik maak dan de filter: Aangepast-->Is niet gelijk aan-->nee en als tweede criteria: Is niet gelijk aan-->0. De kolom heet Deel 1

Kan dit ook geautomatiseerd gebeuren? Misschien door middel van een macro?

Ik gebruik Excel 2003

Alvast bedankt

MVG,

 

[danny147]

Beste Stagee

Hoeveel kolomen met filters heb je staan in excel ?
Waar bevinden de filters die jij wilt ?

Graag een voorbeeldbestandje ajb.

Groetjes Danny. :thumb:

 

[danny147]

Beste Stagee

Probeer deze eens

Sub filter()
    With Range("A1:C1")
        .AutoFilter
        .AutoFilter Field:=3, Criteria1:="<> 0"
        .AutoFilter Field:=2, Criteria1:="<>NEE"
    End With
End Sub

Waarbij <> 0 zich in kolom C bevindt.
en <>NEE zich in kolom B bevindt.

Groetjes Danny. :thumb:

 

[Stagee]

Bedankt voor je inbreng.
Dit zal zeker hebben geholpen!
Echter, gisteren heb ik al een andere oplossing gevonden voor mijn probleem. Dit namelijk met een macro.

Ik heb i.p.v om op nee en 0 te filteren heb ik de hele regel leeg kunnen krijgen en met een macro de lege regels kunnen laten verdwijnen en laten tonen.

Dit zijn de codes:
Tonen:

Sub Tonen_actueel()
Dim r As Range, cell As Range
Sheets("Actueel").Select
For Each cell In Range("A8:A200")
 If Len(Trim(cell.Value)) = 0 Then
    If r Is Nothing Then
      Set r = cell
    Else
      Set r = Union(r, cell)
    End If
 End If
Next
If Not r Is Nothing Then
 r.EntireRow.Hidden = False
End If
End Sub

Verbergen:

Sub Verbergen_actueel()
Dim r As Range, cell As Range
Sheets("Actueel").Select
For Each cell In Range("A8:A200")
 If Len(Trim(cell.Value)) = 0 Then
    If r Is Nothing Then
      Set r = cell
    Else
      Set r = Union(r, cell)
    End If
 End If
Next
If Not r Is Nothing Then
 r.EntireRow.Hidden = True
End If
End Sub