Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 4 van 4

Onderwerp: Kolom verbergen met code VBA

  1. #1
    Junior Member
    Geregistreerd
    14 februari 2020
    Vraag is niet opgelost

    Kolom verbergen met code VBA

    Hoi,

    Ik heb een bestand met 170 kolommen (kolom C tot en met kolom FP) . Elk kolom is genummerd van 1 tot en met 170. Nu wil ik in één cel (B1) een kolomnummer invullen (van één van de kolommen) en dat de andere kolommen automatisch verborgen worden. Dus als ik 4 invul, dan moeten de kolommen 1 tot en met 3 EN 4 tot en met 170 verborgen worden.

    Kan iemand mij helpen met de juiste VBA-code?

  2. #2
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Afstand tot server
    ±151 km
    Dat zijn toch alle kolommen?
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  3. #3
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    Zo las ik het ook @OctaFish.
    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "B1" Then
     If Target.Value > 0 And Target.Value < 171 Then
         Columns("c:fp").Hidden = True
         Columns(2 + Target.Value).Hidden = False
       Else
         Columns("c:fp").Hidden = False
     End If
    End If
    End Sub
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  4. #4
    Junior Member
    Geregistreerd
    14 februari 2020
    Hoi,

    Sorry, ik had in de vraagstelling alle kolommen meegenomen. De code werkt. Super bedankt. Je hebt mij enorm geholpen.

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 en business

Partners
Sponsoren