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

Regels verbergen/weergeven d.m.v. selectievakje uit/aanvinken

  • Onderwerp starter Onderwerp starter TJ86
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

TJ86

Gebruiker
Lid geworden
28 sep 2014
Berichten
127
Hallo collega's,

ik zit met het volgende; voor mijn werkgever ben ik een calculatiebestand aan het maken zodat prijslijsten kunnen worden samengesteld. Nu is mijn vraag of het
mogelijk is dat een groep regels wordt verborgen op het tabblad 'Calculatie' als een selectievakje (Formulierbesturingselement) wordt UITgevinkt. Als het selectie-
vakje weer wordt AANgevinkt moeten de regels weer worden weergegeven.

Voorbeeld:

Selectievakje genaamd IJSJES staat in tabblad 'Klantgegevens' en wordt uitgevinkt, dan moet regel 7 t/m 31 op het tabblad 'calculatie' worden verborgen. Ik heb me
daarna echter bedacht en vink het vakje IJSJES weer aan, nu moeten de regels 7 t/m 31 weer worden weergegeven op 'calculatie'.

Weet iemand hoe dit werkt?

Alvast bedankt voor het meedenken en jullie collegialiteit!
 
Lijkt me geen probleem maar een voorbeeld document doet wonderen.
 
Dankjewel voor je snelle reactie!

Zie bijgaand bestand. Alles wordt standaard weergegeven (IJsjes, Frietjes, Pizza).

Als ik bijv. geen frietjes op de prijslijst wil, dan moet regel 10 tm 14 van tabblad calculatieblad verborgen worden.[A

TTACH]279249[/ATTACH]
 

Bijlagen

Zet dit achter Blad1:
Code:
Private Sub CheckBox1_Click()
    Sheets("Calculatieblad").Rows("5:9").Hidden = IIf(CheckBox1, False, True)
End Sub

Private Sub CheckBox2_Click()
    Sheets("Calculatieblad").Rows("10:14").Hidden = IIf(CheckBox2, False, True)
End Sub

Private Sub CheckBox3_Click()
    Sheets("Calculatieblad").Rows("15:19").Hidden = IIf(CheckBox3, False, True)
End Sub
 
Of in calculatieblad.
Mits het steeds 5 rijen zijn.

Code:
Private Sub Worksheet_Activate()
Dim i As Long, y As Long
For i = 1 To Sheets("blad1").Shapes.Count
  y = y + 5
  Rows(y).Resize(5).Hidden = Not Sheets("blad1").OLEObjects("Checkbox" & i).Object.Value
Next
End Sub
 
Laatst bewerkt:
Nog een andere optie waarbij je moet zorgen dat de 'Caption' hetzelfde is aan de geel gemarkeerde cellen. Werkt alleen zonder samengevoegde cellen.

Code:
Private Sub Worksheet_Activate()
For Each ar In Sheets("Calculatieblad").UsedRange.SpecialCells(2, 2).Areas
    For Each ob In Blad1.OLEObjects
        If LCase(ar(1)) = LCase(ob.Object.Caption) Then ar.Rows.EntireRow.Hidden = Not ob.Object
    Next ob
Next ar
End Sub

Kan waarschijnlijk ook nog wel met een lusje minder.
 

Bijlagen

Zie wat een voorbeeld documentje teweeg brengt :D
 
Jullie zijn echt de beste!! Edmoor, jouw oplossing werkt perfect voor hetgeen ik zocht!
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan