Zjednodušení makra

[Petr555]

Ahoj,

Prosím o pomoc s jednodušením makra, jehož účelem je pomocí ovládacích prvků formuláře skrývat a odkrývat zvolené listy.

Použil jsem tento kod, ale budu potřebovat asi 15 listů a myslím si, že by šlo kod zjednodušit, abych ho nemusel psát 15x.



Sub Zobrazeni_skryteho_listu()
If Range("F2").Value = True Then
Sheets("List1").Select
Sheets("List2").Visible = True
Else
Sheets("List2").Select
ActiveWindow.SelectedSheets.Visible = False
End If
If Range("F5").Value = True Then
Sheets("List1").Select
Sheets("List3").Visible = True
Else
Sheets("List3").Select
ActiveWindow.SelectedSheets.Visible = False
End If
Sheets("List1").Activate
Application.ScreenUpdating = True

End Sub


Předem všem díky.

Petr

[cmuch]

Ahoj,
použij toto makro, ale pozor, zaškrtávací políčka (checkboxy) musí být pojmenovány jako listy.

Kód: Vybrat vše

Sub Zobrazeni_skryteho_listu()
  'checkbox musi byt pojmenovat jak list
  With ActiveSheet
    'xlOff = odskrtnuto, xlOn = zaskrtnuto
    If .CheckBoxes(Application.Caller).Value = xlOff Then
      'zobrazit list
      Sheets(.CheckBoxes(Application.Caller).Characters.Text).Visible = True
    Else
      'skryt list
      Sheets(.CheckBoxes(Application.Caller).Characters.Text).Visible = False
    End If
  End With 'activesheet
End Sub

[Petr555]

Pecka, super. Moc díky.

Petr