MS Excel

Dobrý den, ve VBA jsem neznalec, ale potřeboval bych a vás poprosil o radu na tento (zjednodušený) příklad:
Když buňka A1 (List1) = Pravda, pak skryj List2
List se musí skrýt po změně hodnoty, která se propojí se zaškrtávacím políčkem,zkoušel jsem to takhle, ale je tam nějaká blbost:

Private Sub Worksheet_Change(ByVal Target As Range)

If .Range("A1") = 1 Then
Sheets("List2").Visible = False

Zaslat odpověď >

Pavlus(12.1.2016 19:42)#029216

Například nějak takto.
P.

Př.:
Private Sub Worksheet_Change(ByVal Target As Range)

If Range("A1") = 1 Then
Sheets("List2").Visible = False
Else
Sheets("List2").Visible = True
End If

End Subcitovat

elninoslov(12.1.2016 20:32)#029218

CheckBox nevyvoláva Worksheet_Change. Treba použiť fintu, skopírovania prepojenej bunky do inej bunky, a to vyvolá Calculate metódu. Viz príloha.

Iným riešeným by bolo použitie CheckBoxu ActiveX, ktorý ma OnClick metódu.

Příloha: rar

29218_schovajlistcheck.rar (16kB, staženo 46x)

citovat

hard(12.1.2016 20:39)#029219

Moc děkuji oběma, perfektní.citovat

hard(6.2.2016 21:58)#029932

elninoslov: Nevíte, kde je problém, skript funguje, ovšem, když spustím makro jiné, které kopíruje do jiného sešitu data, tak na mě vyletí hláška: Runtime error 9, subscript out of range, Debug mě odkáže právě na 1. řádek tohoto skriptu.citovat

elninoslov(19.2.2016 8:51)#030200

@hard, Ak to je ešte aktual, tak pošlite prílohu.

EDIT: Naozaj neviem, o čo ide, ja kopírujem data do iného zošitu normálne. viď príloha.

Příloha: zip