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

Quote

Weergeven resultaten 1 tot 5 van 5

Onderwerp: Tabblad verbergen o.b.v waarde in pull downmenu

  1. #1
    Vraag is opgelost

    Question Tabblad verbergen o.b.v waarde in pull downmenu

    Hoi,

    Ik wil dat er op basis van een waarde in een pull-down menu tabbladen zichtbaar of onzichtbaar gemaakt worden.

    De collega moet in het pull-down menu in B1 een keuze maken welke soort aanslag hij heeft. En op basis van deze keuze moet dan het bijbehoorde tabblad alleen zichtbaar zijn en de overige tabbladen die benoemde zijn in het lijstje verborgen worden. Dus niet alle tabbladen moeten verborgen worden.
    Mocht de collega per abuis een foute keuze gemaakt hebben bv i.p.v voorlopige aanslag een definitieve aanslag dan past hij dat gewoon aan in het pull-down menu en moet het bij behoorde tabblad ook alleen zichtbaar worden.

    Heb wat gevonden maar wordt er niet direct wijs uit. Zie bijgevoegd bestand.
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Je eige code was bijna goed.

    Alstu
    Bijgevoegde bestanden Bijgevoegde bestanden

  3. #3
    Giga Senior dotchiejack's avatar
    Geregistreerd
    28 december 2010
    Locatie
    Antwerpen
    Afstand tot server
    ±185 km
    Of zo.
    Bijgevoegde bestanden Bijgevoegde bestanden
    MVG,
    Philiep
    Facebook is als gearresteerd worden: alles wat je zegt kan en zal tegen je gebruikt worden...
    Soms merken mensen de dingen die we voor hen doen niet op, tot we er mee stoppen.
    Zie ook https://www.helpmij.nl/forum/announcement.php?f=5

  4. #4

    Thumbs up

    Dank voor jullie snelle reactie.

    Met wat kleine aanpassingen, maar zeker op basis van het idee/voorbeeld van Jim Veerman heb ik mijn excel-bestand weer kunnen uitbreiden/verbeteren.
    Heb jouw VBA uitgebreid dat als het pull-down menu leeg is alle tabbladen zichtbaar zijn.

    PHP Code:
    1
    2
    3
    4
    5
    6
    7
    8
    9
    
    If [J11] = "" Then
    Sheets("RS VA").Visible = True
    Sheets("RS VVA").Visible = True
    Sheets("RS DA").Visible = True
    Sheets("RS VDA").Visible = True
    Sheets("RS NAV").Visible = True
    Sheets("RS VNAV").Visible = True
    Sheets("RS CB").Visible = True
    Sheets("RS VCB").Visible = True

    De geboden oplossing van Dotchiejack, werkt bij mij niet optimaal, want alle andere tabbladen die niet gerelateerd moeten zijn aan het pull-down worden ook verborgen, wat niet wenselijk is. Mogelijk dat ik iets over het hoofd zie in VBA.

  5. #5
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Kan ook wel zo.

    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Address <> "$B$1" Then Exit Sub
      ar = Cells(1, 5).CurrentRegion
      For j = 2 To UBound(ar)
        Sheets(ar(j, 2)).Visible = ar(j, 1) = Target.Value Or Target.Value = ""
      Next j
    End Sub
    Om gelijk naar de juiste tab te gaan kan je deze regel nog toevoegen.
    Code:
    If Target.Value <> "" Then Application.Goto Sheets(ar(Application.Match(Target.Value, Application.Index(ar, 0, 1), 0), 2)).Cells(1)
    Laatst aangepast door VenA : 12 juni 2019 om 15:56
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

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