ThisWorkbook.Activatecitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: VBA vytvoření sešitu a přepnutí se zpět
MS Excel
Téma: VBA vytvoření sešitu a přepnutí se zpět 
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?
(7.5.2016 22:41)#031426
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
(7.5.2016 22:43)#031427
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
(7.5.2016 23:03)#031429
sice funguje Workbooks(2).Activate, ale bohužel nefunguje, když je otevřeno více excelů 
citovat
citovat(7.5.2016 23:40)#031430
Dim nWB As Workbook
Set nWB = Workbooks.Add
ThisWorkbook.Activate
nWB.Activate
nWB.SaveAs ThisWorkbook.Path & "\NovySesit.xlsx"
nWB.Close
Set nWB = Nothing
citovat
Set nWB = Workbooks.Add
ThisWorkbook.Activate
nWB.Activate
nWB.SaveAs ThisWorkbook.Path & "\NovySesit.xlsx"
nWB.Close
Set nWB = Nothing
citovat
(8.5.2016 8:28)#031433
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
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
Napr...
Příloha: 
31438_stary-subor.zip (19kB, staženo 57x)
citovat31438_stary-subor.zip (19kB, staženo 57x)(8.5.2016 19:11)#031440
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
ActiveWindow.Sheets(Array("List1", "List2", "List3")).Visible = False
citovat
Á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
(9.5.2016 8:40)#031446
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
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
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články