< návrat zpět

MS Excel

Téma: VBA - Skrýt list na základě podmínky rss

Zaslal/a hard 12.1.2016 19:13

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
avatar
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
elninoslov
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: rar29218_schovajlistcheck.rar (16kB, staženo 46x)
citovat
hard(12.1.2016 20:39)#029219
avatar
Moc děkuji oběma, perfektní.citovat
hard(6.2.2016 21:58)#029932
avatar
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
elninoslov
@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: zip30200_schovaj.zip (26kB, staženo 33x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje