Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 14 van 14

Onderwerp: kolommen zichtbaar/onzichtbaar via toggle knop / 2 reeksen

  1. #1
    Senior Member
    Verenigingslid
    Friend's avatar
    Geregistreerd
    31 januari 2009
    Vraag is opgelost

    kolommen zichtbaar/onzichtbaar via toggle knop / 2 reeksen

    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
    Beter vandaag gemaakt dan tot morgen gewacht

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    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

  3. #3
    Giga Honourable Senior Member
    Verenigingslid
    snb's avatar
    Geregistreerd
    12 juni 2008
    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 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.

  4. #4
    of zo?
    Bijgevoegde bestanden Bijgevoegde bestanden

  5. #5
    Senior Member
    Geregistreerd
    16 december 2016
    Bekijk dit eens en maak het zoals het hoort...
    Bijgevoegde bestanden Bijgevoegde bestanden

  6. #6
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    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

  7. #7
    Giga Honourable Senior Member
    Verenigingslid
    snb's avatar
    Geregistreerd
    12 juni 2008
    @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.

  8. #8
    Senior Member
    Verenigingslid
    Friend's avatar
    Geregistreerd
    31 januari 2009
    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

  9. #9
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    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)

  10. #10
    Senior Member
    Geregistreerd
    16 december 2016
    Dat is wel kort... 😄

  11. #11
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    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

  12. #12
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    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)

  13. #13
    Giga Honourable Senior Member
    Verenigingslid
    snb's avatar
    Geregistreerd
    12 juni 2008
    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.

  14. #14
    Senior Member
    Verenigingslid
    Friend's avatar
    Geregistreerd
    31 januari 2009
    Harry,

    Hartelijk dank voor je reactie en code.

    Het is bijzonder interessant om die verschillende codes te zien.


    Thanks

    Friend
    Beter vandaag gemaakt dan tot morgen gewacht

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren