lege rijen automatisch verbergen

[naprius]

Ik heb die code dus daarin geplakt, maar hij werkt niet.. Maakt het uit dat ik naar de worksheet ga via een hyperlink?
Of moet die code boven alle andere code staan?

Op het moment staat er dit:

Private Sub Worksheet_Activate()

End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
Private Sub CommandButton1_Click()
    Selection.AutoFilter Field:=1
End Sub

Private Sub Worksheet_Activate()
    Selection.AutoFilter Field:=1, Criteria1:="1"
End Sub

Dit werkt dus niet. ( ik blijf aan de gang met probleempjes )

 

[WinteE]

Deze regels verwijderen :

Private Sub Worksheet_Activate()

End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Het kan zijn dat je de code voor de command button moet aanpassen, afhankelijk van het label van de button die je gebruikt. Bv. CommandButton2 ipv CommandButton1

 

[naprius]

Werkt helaas ook niet..

Ik heb de regels verwijderd en commandbutton1 verandert in commandbutton2, 3 en 4.

Geen resultaat


EDIT:

Ah dit werkt iets beter

Private Sub Worksheet_Activate()
 
 Selection.AutoFilter Field:=1
 Selection.AutoFilter Field:=1, Criteria1:="1"

End Sub

Bedankt voor alle hulp!

 

[WinteE]

Ik begrijp uit je antwoord dat het filter wel werkt als het werkblad 'Installaties' geactiveerd wordt, kun je dit bevestigen ?

Als je al een knop in het werkblad hebt staan is deze in VBA weer te vinden in het keuzelijstje 'Algemeen', 'Worksheet' boven de code. Hierin moet de regel staan die in de Sub van CommandButton1_Click staat.

 

[naprius]

Inderdaad, het werkt nu.
Zodra ik richting de sheet Installaties ga, klapt hij hem automatisch in.
Ik heb op verschillende zaken getest en ze werken allemaal..

Het uitklappen werkt ook prima

Ik heb uit die 2 Private Sub codes de stukjes code geknipt die ervoor zorgden dat het autofilter autofiltert en deze in de sub gezet die de worksheet activeert.

(zeg ik dat zo goed?)

 

[WinteE]

Je zegt het goed, mooi dat je het allemaal werkend hebt !

Groet,
Erik