Celwaarde opent verborgen tabblad

[VenA]

Je maakt gebruik van formcontrols en die werken anders dan ActiveXcontrols.

Als je de captions van de ckeckboxen gelijk maakt aan de tabnamen dan kan het zo

Sub VenA()
  With ActiveSheet.Shapes(Application.Caller).OLEFormat.Object
    Sheets(.Text).Visible = .Value = 1
    If .Value = 1 Then Application.Goto Sheets(.Text).Cells(1)
  End With
End Sub

Vraag 2 begrijp ik niet.

 

[lsp1972]

@VenA

super bedankt...

Lukt het wel op de x in te vullen zodat het blad uitklapte? (Rijen zichtbaar werden?)

Als ik dan uitgeklapt in in van de cellen checkboxes maak en koppel aan de cel, zodat deze met de cel mee op "hidden" gaat. Wat dus de x doet in de bovenste balk.

Dan werkt dat feilloos, totdat ik de file opsla... dan zijn de checkboxes compleet weg!