• 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.

Alleen bepaalde kolommen in autofilter laten zien

Status
Niet open voor verdere reacties.
A

anne200

Gebruiker
Lid geworden
19 dec 2008
Berichten
18
Hallo allemaal,

Het hele forum doorgespit, genoeg over autofilters, maar niet wat ik zoek.
Ik heb een Excelbestand met 85 kolommen. (A:CG) Als autofilter wordt aangezet komen uiteraard alle 85 pijltjes op. Zou het ook mogelijk zijn om alleen de pijltjes van de kolommen F, G, P, Q, S, T en CG op te laten komen?

Ben erg benieuwd.

Anne
 
Anne, had je even Gegoogled had je volgende code van Debra Dalgleish (Contextures) gevonden.

Code: 
Sub HideSomeArrows()
'hide some autofilter arrows
Dim c As Range
Dim i As Integer
i = Cells(1, 1).End(xlToRight).Column
Application.ScreenUpdating = False
For Each c In Range(Cells(1, 1), Cells(1, i))
Select Case c.Column
Case 2, 4, 6, 8, 10
c.AutoFilter Field:=c.Column, _
Visibledropdown:=True
Case Else
c.AutoFilter Field:=c.Column, _
Visibledropdown:=False
End Select
Next
Application.ScreenUpdating = True
End Sub

Mvg

Rudi
 
Warme bakkertje zei:
Anne, had je even Gegoogled had je volgende code van Debra Dalgleish (Contextures) gevonden.

Code: 
Sub HideSomeArrows()
'hide some autofilter arrows
Dim c As Range
Dim i As Integer
i = Cells(1, 1).End(xlToRight).Column
Application.ScreenUpdating = False
For Each c In Range(Cells(1, 1), Cells(1, i))
Select Case c.Column
Case 2, 4, 6, 8, 10
c.AutoFilter Field:=c.Column, _
Visibledropdown:=True
Case Else
c.AutoFilter Field:=c.Column, _
Visibledropdown:=False
End Select
Next
Application.ScreenUpdating = True
End Sub

Mvg

Rudi
Klik om te vergroten...

Rudi,
Voorbeeld uitgeprobeerd. Echter; alle pijltjes blijven zichtbaar behalve A, C, E en G. Mijn bedoeling was dat alle pijltjes zouden verdwijnen behalve F, G, P, Q, S, F, T en CG
Anne
 
Beste anne200 ;)

Lukt het om de code van Warme bakkertje in een module te plaatsen ?

Ga anders als volgt te werk:

Druk op ALT + F11 dan bovenaan invoegen MODULE en plaatst de code hierin.
In de code bij case plaats je 6, 7, 16, 17, 19, 20, 85
Daarna klik je op Sub/Userform uitvoeren of ga naar Extra's, Macro, Macro's, HideSomeArrows() uitvoeren.

Groetjes Danny :thumb:
 
Anne, zoals Danny al aangaf moesten nog wel de respectievelijke kolommen aangepast worden, maar die liet ik voor jouw rekening.

Mvg

Rudi
 
danny147 zei:
Beste anne200 ;)

Lukt het om de code van Warme bakkertje in een module te plaatsen ?

Ga anders als volgt te werk:

Druk op ALT + F11 dan bovenaan invoegen MODULE en plaatst de code hierin.
In de code bij case plaats je 6, 7, 16, 17, 19, 20, 85
Daarna klik je op Sub/Userform uitvoeren of ga naar Extra's, Macro, Macro's, HideSomeArrows() uitvoeren.

Groetjes Danny :thumb:
Klik om te vergroten...

Danny,

Zoals bij gevoegde voorbeeld, helaas werkt het niet.
Anne
 

Bijlagen

Laatst bewerkt:
Voorbeeld ontvangen en aangepast.

Mvg

Rudi
 

Bijlagen

Laatst bewerkt:
Warme bakkertje zei:
Voorbeeld ontvangen en aangepast.

Mvg

Rudi
Klik om te vergroten...
Rudi,

Wederom heb je me goed geholpen!!! Hartelijk dank dat je je kennis wilt delen met minder ervaren Excelgebruikers zoals ik. Waarschijnlijk zijn er (veel?) forumbezoekers (zoals ik) die nooit echt scholing in VCA hebben gehad en alles uit boeken en/of forums moeten halen. Het is elke keer weer kicken als iemand je help om iets werkend te krijgen.
Kennis delen is het vermenigvuldigen.
Een iets langere dankbetuiging als gewoonlijk, maar de helpers moeten weten waarvoor zo het doen!

Vriendelijke groet en een goede jaarwisseling toegewenst door:
Anne

P.S.
Bovenstaande geldt ook voor de andere helpers.
 
Beste anne200 ;)

Fijn dat je het hebt gevonden :D

Als je mijn aanwijzing gevolgen had , dan was het wel gelukt.
In de code bij case plaats je 6, 7, 16, 17, 19, 20, 85
Daarna klik je op Sub/Userform uitvoeren of ga naar Extra's, Macro, Macro's, HideSomeArrows() uitvoeren.

Maar niet met een button.

Groetjes Danny. :thumb:
 
Anne, kennis is oneindig (heb zelf ook nog een lange weg te gaan). Blij dat je weeral verder kan. Aan jou en tevens aan alle forumbezoekers een prettig jaareinde toegewenst.

Mvg

Rudi
 
danny147 zei:
Beste anne200 ;)

Fijn dat je het hebt gevonden :D

Als je mijn aanwijzing gevolgen had , dan was het wel gelukt.
In de code bij case plaats je 6, 7, 16, 17, 19, 20, 85
Daarna klik je op Sub/Userform uitvoeren of ga naar Extra's, Macro, Macro's, HideSomeArrows() uitvoeren.

Maar niet met een button.

Groetjes Danny. :thumb:
Klik om te vergroten...

Danny,
Bedankt voor de tip, ik dacht het niet uit maakte om de routine achter een button te zetten. Weer wat geleerd, waarvoor mijn dank.
Anne
 
Warme bakkertje zei:
Anne, kennis is oneindig (heb zelf ook nog een lange weg te gaan). Blij dat je weeral verder kan. Aan jou en tevens aan alle forumbezoekers een prettig jaareinde toegewenst.

Mvg

Rudi
Klik om te vergroten...

Rudi,
"Warme Bakkertje" een Bakkertje is toch altijd warm, anders zou hij dood zijn en derhalve geen Bakkertje meer zijn...
Anne
 
Anne, het is zelfs handiger (lees minder omslachtig) om zulke code met een button te linken.

Mvg

Rudi
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan