• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

lege rijen automatisch verbergen

Status
Niet open voor verdere reacties.
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:

Code:
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 :p )
 
Deze regels verwijderen :

Code:
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
 
Werkt helaas ook niet..

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

Geen resultaat :confused:


EDIT:

Ah dit werkt iets beter :)

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

End Sub


Bedankt voor alle hulp!
 
Laatst bewerkt:
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.
 
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?)
 
Je zegt het goed, mooi dat je het allemaal werkend hebt !

Groet,
Erik
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan