Macro

[Liesl]

Hoi,

We hebben een nieuwe oplossing bedacht voor ons bestand. Ik heb een voorbeeld toegevoegd in de bijlage. Nu willen we graag dat via een macro alleen de filterpijltjes in kolom A zichtbaar blijven. Wie kan ons vertellen welke macro we hiervoor aan moeten maken? En welke tekst we PRECIES erin kunnen zetten?

Bvd!

 

[wiki]

Liesl je kunt beter doorgaan in je oorspronkelijke vraag en geen nieuwe starten.

gr wim

 

[Hoornvan]

Lies,

Deze code verbergd de pijltjes op Kolom 2 na.

Sub HideArrows() 
'hides all arrows except column 2
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))
 If c.Column <> 2 Then 
  c.AutoFilter Field:=c.Column, _ 
    Visibledropdown:=False 
 End If 
Next 

Application.ScreenUpdating = True 
End Sub

 

[Liesl]

Lies,

Deze code verbergd de pijltjes op Kolom 2 na.

Sub HideArrows() 
'hides all arrows except column 2
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))
 If c.Column <> 2 Then 
  c.AutoFilter Field:=c.Column, _ 
    Visibledropdown:=False 
 End If 
Next 

Application.ScreenUpdating = True 
End Sub

Bij mij gebeurt er niks, wat doe ik fout?
Het is trouwens de bedoeling dat kolom 1 zichtbaar blijft ipv 2

 

[Hoornvan]

Liesl,

Wat er fout gaat weet ik niet.
In toegevoegde file werkt hij wel.

Misschien komt het dat de tabellen niet boven aan staan?

 

[Hoornvan]

Ik denk dat het niet gaat op 2 tabellen.

 

[Liesl]

Liesl,

Wat er fout gaat weet ik niet.
In toegevoegde file werkt hij wel.

Misschien komt het dat de tabellen niet boven aan staan?

Ik heb de tabel bovenaan het werkbald gezet, nu doet hij het inderdaad wel. Bedankt :thumb:
Wat moet ik veranderen in het geval van Kolom A dan?

 

[Hoornvan]

Liesl,

Wat moet ik veranderen in het geval van Kolom A dan?

Ik moest even weg vandaar dat ik zo laat reageer, wat bedoel je met kolom A.

 

[Liesl]

Liesl,



Ik moest even weg vandaar dat ik zo laat reageer, wat bedoel je met kolom A.

Dan zou de filter in kolom 1 zichtbaar moeten blijven, maar heb nu het een en ander aan mijn tabel aangepast en hij is goed zo Bedankt voor je hulp!

 

[Hoornvan]

Liesl,

Graag gedaan hoor.

 

[huijb]

@Liesl zou je het voortaan ben een topic willen houden. Het is niet nodig je vraag twee keer te plaatsen.