< návrat zpět

MS Excel


Téma: VBA vytvoření sešitu a přepnutí se zpět rss

Zaslal/a 7.5.2016 20:45

ahoj, poradil by mi někdo jak udělat nový sešit makrem, to je celkem snadné, ale nevím jak se po založení nového sešitu vrátit zpět do sešitu, ze kterého se makro spouštělo.. poradí někdo?

Zaslat odpověď >

Strana:  1 2 3   další »
#031424
avatar
ThisWorkbook.Activatecitovat
#031426
avatar
velice děkuji, funguje, pokud se nyní vrátím tedy na základní sešit, jde se opětovně vrátit do nově vytvořeného?citovat
#031427
avatar
možná si říkáte proč, ale mám excel, ve kterém jsou skryté listy, makro je zviditelní, překopíruje do nového sešitu, vrátí se na originální sešit, skryje listy a potřeboval bych, aby makro zase pracovalo v tom novém sešitu.. bez toho přepnutí to makro neprojde, asi nevidí ty skryté listy, proto je musím zviditelnitcitovat
#031429
avatar
sice funguje Workbooks(2).Activate, ale bohužel nefunguje, když je otevřeno více excelů 7citovat
#031430
avatar
Dim nWB As Workbook
Set nWB = Workbooks.Add
ThisWorkbook.Activate
nWB.Activate
nWB.SaveAs ThisWorkbook.Path & "\NovySesit.xlsx"
nWB.Close
Set nWB = Nothing
citovat
#031433
avatar
velice děkuji :) funguje. Mohl bych poprosit o vložení do tohoto kódu, sešit se nevytváří Workbooks.Add, ale kopírováním :


Sub makro()

......nějaký kód......

Sheets("List1").Visible = True
Sheets("List2").Visible = True
Sheets("List3").Visible = True
.Worksheets(Array("List1", "List2", "List3")).Copy
ThisWorkbook.Activate
Sheets("List1").Visible = False
Sheets("List2").Visible = False
Sheets("List3").Visible = False

...... sem vložit kód pro přesun do nově vytvořeného sešitu (.Worksheets(Array("List1", "List2", "List3")).Copy......


.....nějaký kód pro práci v nově vytvořeném sešitu.....
citovat
#031438
elninoslov
Napr...
Příloha: zip31438_stary-subor.zip (19kB, staženo 56x)
citovat
#031440
avatar
děkuji za vypracování makra, všiml jsem si, že tam máte ještě makro1 :). Vypadá to mnohem lépe než pro každý list nový řádek, škoda že nefunguje

ActiveWindow.Sheets(Array("List1", "List2", "List3")).Visible = False
citovat
#031445
elninoslov
Áno, to som robil len pokus. Musíte to použiť po jednom. Skryť by sa dali naraz, ak by ste použil na ne najskôr Select, ale ten je pomalý. Pri odkrývaní to použiť nejde. Takže viete, ktoré treba použiť. Som len na mobile, takže iba toľko.citovat
#031446
avatar
a) Activate a Select
http://excelplus.net/activate-select-zlozvyk-ve-vba/

b) Nejde kopírovat skrytý list přímo bez zviditelňování?

Tyhle věci jdou dělat na pozadí komplet (včetně otevírání sešitu a jeho uložení).citovat

Strana:  1 2 3   další »

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09