Beste Forummers,
Ik maak nu met de toggle knop bepaalde kolommen zichtbaar en onzichtbaar.
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.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
Hoe is dit verwezenlijken?
Friend
Beter vandaag gemaakt dan tot morgen gewacht
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
"It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5
Alternatief:Code:Private Sub ToggleButton2_Click() Columns("U:AF").Hidden = Not Columns(21).Hidden Columns("AJ:AW").Hidden = Not Columns(21).Hidden End Sub
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 aangepast door snb : 16 september 2020 om 12:27
VBA voor smarties
VBA is een taal die je moet leren met een grammatica- en een woordenboek.
http://www.helpmij.nl/forum/announcement.php?f=5
Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.
of zo?
Bekijk dit eens en maak het zoals het hoort...
Er leiden meer wegen naar Rome.
Die van snb vind ik de beste.
"It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5
@emields
Ook Nederlandse kolommen nemen genoegen met 1 l.
VBA voor smarties
VBA is een taal die je moet leren met een grammatica- en een woordenboek.
http://www.helpmij.nl/forum/announcement.php?f=5
Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.
Edmoor, SNB, Emields & mvdVlist,
Allen hartelijk dank voor jullie reacties
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
Beter vandaag gemaakt dan tot morgen gewacht
Of:
Code:Private Sub ToggleButton1_Click() Range("U:AF,AJ:AW").EntireColumn.Hidden = ToggleButton1 End Sub
____________
Met vriendelijke groet,
Harry
Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
(Grunnegs-Gronings)
Dat is wel kort... 😄
Maar dan zijn de opgegeven kolommen allemaal verborgen of allemaal zichtbaar.
En dat is toch niet wat je wilde?
"It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5
Code:Private Sub ToggleButton1_Click() Columns("U:AF").Hidden = ToggleButton1 Columns("AJ:AW").Hidden = Not ToggleButton1 End Sub
____________
Met vriendelijke groet,
Harry
Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
(Grunnegs-Gronings)
Pas mal, mon ami.![]()
Laatst aangepast door snb : 16 september 2020 om 18:39
VBA voor smarties
VBA is een taal die je moet leren met een grammatica- en een woordenboek.
http://www.helpmij.nl/forum/announcement.php?f=5
Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.
Harry,
Hartelijk dank voor je reactieen code.
Het is bijzonder interessant om die verschillende codes te zien.
Thanks
Friend
Beter vandaag gemaakt dan tot morgen gewacht