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

kolommen zichtbaar/onzichtbaar via toggle knop / 2 reeksen

Status
Niet open voor verdere reacties.

Friend

Verenigingslid
Lid geworden
31 jan 2009
Berichten
1.128
Beste Forummers,

Ik maak nu met de toggle knop bepaalde kolommen zichtbaar en onzichtbaar.

Code:
Private Sub ToggleButton2_Click()
Columns(21).Hidden = Not Columns(21).Hidden
Columns(22).Hidden = Not Columns(22).Hidden
Columns(23).Hidden = Not Columns(23).Hidden
Columns(24).Hidden = Not Columns(24).Hidden
Columns(25).Hidden = Not Columns(25).Hidden
Columns(26).Hidden = Not Columns(26).Hidden
Columns(27).Hidden = Not Columns(27).Hidden
Columns(28).Hidden = Not Columns(28).Hidden
Columns(29).Hidden = Not Columns(29).Hidden
Columns(30).Hidden = Not Columns(30).Hidden
Columns(31).Hidden = Not Columns(31).Hidden
Columns(32).Hidden = Not Columns(32).Hidden
Columns(33).Hidden = Not Columns(33).Hidden
End Sub

Wat ik graag zou willen is dat als ik bovenstaande kolommen zichtbaar maak de volgende kolommen niet zichtbaar worden (kolom 36 t/m 49) en vice versa.

Hoe is dit verwezenlijken?

Friend
 
Maak er eens dit van:
Code:
Private Sub ToggleButton2_Click()
    For i = 21 To 33
        Columns(i).Hidden = Not Columns(i).Hidden
    Next i

    For i = 36 To 49
        Columns(i).Hidden = Not Columns(21).Hidden
    Next i
End Sub
 
Code:
Private Sub ToggleButton2_Click()
  Columns("U:AF").Hidden = Not Columns(21).Hidden
  Columns("AJ:AW").Hidden = Not Columns(21).Hidden
End Sub

Alternatief:
Code:
Sub M_snb()
  Columns("U:AF").NumberFormat = IIf(Columns(21).NumberFormat = "General", ";;;", "General")
  Columns("AJ:AW").Numberformat =IIf(Columns(21).NumberFormat = "General", ";;;", "General")
End Sub
 
Laatst bewerkt:
of zo?
 

Bijlagen

  • wisselend kollommen verbergen.xlsm
    17,4 KB · Weergaven: 22
Bekijk dit eens en maak het zoals het hoort...
 

Bijlagen

  • KolommenVerbergen.xlsb
    18,9 KB · Weergaven: 22
Er leiden meer wegen naar Rome.
Die van snb vind ik de beste.
 
@emields

Ook Nederlandse kolommen nemen genoegen met 1 l.
 
Edmoor, SNB, Emields & mvdVlist,

Allen hartelijk dank voor jullie reacties:thumb:

Dat werkt allemaal prachtig! Heb alleen het idee dat bij mvdVlist ik de kolommen niet meer zichtbaar krijg.
Maar ik heb dan ook snel gekeken.

Heel erg bedankt allemaal!

Friend
 
Of:
Code:
Private Sub ToggleButton1_Click()
 Range("U:AF,AJ:AW").EntireColumn.Hidden = ToggleButton1
End Sub
 
Maar dan zijn de opgegeven kolommen allemaal verborgen of allemaal zichtbaar.
En dat is toch niet wat je wilde?
 
Code:
Private Sub ToggleButton1_Click()
 Columns("U:AF").Hidden = ToggleButton1
 Columns("AJ:AW").Hidden = Not ToggleButton1
End Sub
 
Pas mal, mon ami. :thumb:
 
Laatst bewerkt:
Harry,

Hartelijk dank voor je reactie :thumb: en code.

Het is bijzonder interessant om die verschillende codes te zien.


Thanks

Friend
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan