MS Excel

Téma: Úprava kódu

Zaslal/a veny 23.9.2020 13:21

Dobrý den
Chtěl bych požádat o úpravu kódu.
V sešitu jsou 4 listy (Data, 1, 2, 3)
Na listu Data se podle hodnoty v buňce A1, zobrazují a skrývají zbylé tři listy.
Pod tlačítkem "vyčisti" je vymazání oblasti A1:B5 na všech třech listech (1, 2, 3)
Pokud jsou všechny listy viditelné, vymazání proběhne v pořádku, pokud ale je nějaký skrytý, vyskočí chyba.
Potřeboval bych ošetřit kód tak aby došlo k vymazání dané oblasti i ve skrytých listech s tím, aby po vymazání byly viditelné jenom ty, dle hodnoty v buňce A1 na listu Data.

Kód pro vymazání oblastí a skrývání listů jsem našel na netu a poupravil pro svou potřebu. Úplně ty nejzákladnější úpravy hotového kódu tak nějak zvládnu, jinak je to pro mě ale španělská ves.Takže budu raději, pokud se na to podívá někdo kdo tomu rozumí.

Děkuji V.

Příloha: zip

48114_wall_uprava_kodu.zip (22kB, staženo 20x)

Zaslat odpověď >

Lugr(23.9.2020 14:07)#048116

To je tím, že tam máš samý Select

nahraď toto:

Sub Clear()
Sheets("1").Select
Range("A1:B5").Select
Selection.ClearContents
Sheets("2").Select
Range("A1:B5").Select
Selection.ClearContents
Sheets("3").Select
Range("A1:B5").Select
Selection.ClearContents
End Sub

tímto:

Sub Clear()
Sheets("1").Range("A1:B5").ClearContents
Sheets("2").Range("A1:B5").ClearContents
Sheets("3").Range("A1:B5").ClearContents
End Subcitovat

veny(23.9.2020 14:20)#048117

lugr napsal/a:

To je tím, že tam máš samý Select

díky moc, jak jsem psal, kód jsem našel a jen upravoval názvy listů a oblast pro vymazání, proto vypadá tak jak vypadá.

V.citovat

Uživatelské menu

Nejste přihlášen(a)

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.