Autofilter probleempje

[Jarodxxx]

klein probleempje bij autofilterfunctie

Als ik wat invul bij cel A1 op Blad1 (waar de code ook achter staat)
Dan moet ik eerst op blad 3 klikken en dan weer op blad 1
ik vroeg me af of dat ook anders kon?

Private Sub Worksheet_Activate()

Range("A1").Select

With Sheets("Blad3").Range("$1:$65536")
.AutoFilter
.AutoFilter Field:=1, Criteria1:=Range("A1").Value
End With
End Sub

 

[Wigi]

Werkt dit?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        With Sheets("Blad3").Rows("1:" & Rows.Count)
            .AutoFilter
            .AutoFilter Field:=1, Criteria1:=Target.Value
        End With
    End If
End Sub

Gebruik eens code tags als je code post: selecteer je code en druk op het hekje als opmaak.

Wigi

 

[Jarodxxx]

Tags?

euh 't duurde even, maar je had 't over het hekje hier op 't forum!
zal er aan denken! bedankt Wigi!

Met Tags bedoel je zo'n voorbeeld?

Worksheets(1).PivotTables("Pivot1").Tag = "Product Sales by Region"

Of zit ik nu mis

Jarod

ps: 't werkt nu prima, zie en snap nu de fout die ik gemaakt heb!

 

[Wigi]

Met Tags bedoel je zo'n voorbeeld?

Worksheets(1).PivotTables("Pivot1").Tag = "Product Sales by Region"

Of zit ik nu mis

Code tags plaatsen is gewoon wat je doet met het klikken op het hekje. Het beestje heeft nu eenmaal die naam.

 

[Jarodxxx]

late reactie

Heel erg bedankt Wigi!

Keep up the good work!
Ik leer d'r een hoop van!

Jarod