Jsem jenom běžný uživatel Excelu a potřeboval bych poradit s makrem. Mám soubor a v něm 150 stejných listů a na každém 2 stránky. U všech 150 potřebuji změnit 2 obrázky, tj. vymazat starý na str. 1 a str. 2 a nahradit novými na stejné pozice obou stránek v listu, vymazat starý text v zápatí (levá strana) a na stejnou pozici vložit nový text, na pravé straně vymazat znaky (1/2), a místo znaku zapnout vkládaní čísla, následně vymazat buňku K5 a K54.
Na listu „List1“ jsem udělal potřebné úpravy a překopíroval do „List2“, samozřejmě jsem si spustil makro. Výsledek je, že kód mne to zkopíruje vždy jenom do aktívního listu, takže bych to musel dělat list po listu. Podobných souborů s tak velkým množstvím listů mam asi 40, takže práce do léta 2017. :(
Umí někdo poradit jak napsat makro, aby to z listu „List1“ automaticky překopírovalo obr. a udělalo vše potřebné do všech listů najednou? Budu moc vděčný. Kód pro kopírování z listu1 na list2 přikládám. Díky
Kopírování obrazků, zápatí ... z jednoho do více listů excel. Vyřešeno
Kopírování obrazků, zápatí ... z jednoho do více listů excel.
Naposledy upravil(a) Ltb dne 08 lis 2016 14:38, celkem upraveno 1 x.
Důvod: Přesunuto do správné sekce po dohodě přes email...
Důvod: Přesunuto do správné sekce po dohodě přes email...
Re: Kopírování obrazků, zápatí ... z jednoho do více listů excel.
Je to šílenost co si sem dal. Pracuj s listy přes pořadové číslo. Vkládám vzorový kód. Tento kód pracuje s listy na základě pořadí. Takže první list zleva bude číslo 1, druhý v pořadí bude číslo 2, a je nepodstatné jaký mají název.
Takže moje rada: Vzorový List 1 si dej jako první list, a ve VBA ho budeš číslovat jako Sheets(1). To tvoje makro si uprav tak, že všechny funkce "Select", které vybírají list, kam se má kopírovat, zapíšeš ve formátu dle vzoru. Tento kód tedy proběhne 149x a zkopíruje data do všech zbývajících 149 listů.
Dodatečně přidáno po 1 minutě 49 vteřinách:
Tady máš inspiraci: http://office.lasakovi.com/excel/vba-li ... el-vba/#08
Takže moje rada: Vzorový List 1 si dej jako první list, a ve VBA ho budeš číslovat jako Sheets(1). To tvoje makro si uprav tak, že všechny funkce "Select", které vybírají list, kam se má kopírovat, zapíšeš ve formátu dle vzoru. Tento kód tedy proběhne 149x a zkopíruje data do všech zbývajících 149 listů.
Kód: Vybrat vše
For i = 2 To 150
Sheets(i).Select
Next i
Dodatečně přidáno po 1 minutě 49 vteřinách:
Tady máš inspiraci: http://office.lasakovi.com/excel/vba-li ... el-vba/#08
-
- Pohlaví:
Re: Kopírování obrazků, zápatí ... z jednoho do více listů excel.
Kdy už uživatelé konečně zapomenou na nějaký Select...
Re: Kopírování obrazků, zápatí ... z jednoho do více listů excel.
Uživatelé na Select zapomenou až v okamžiku, kdy ten příkaz Excel přestane podporovat ... . Taky když jsem začínal byl Select můj oblíbený příkaz ...
Hrabat se v tom šíleném kodu a předělávat příkazy "Select" se mi opravdu nechtělo. A učit tazatele programovat ve VBA, když má na netu milion návodů, se mi také nechtělo. Tak jsem šel cestou nejmenšího odporu.
Luffi: případné děkování a komentování odpovědí patří sem, a né do SZ. Přečti si pravidla fora:
viewforum.php?f=111
viewtopic.php?f=111&t=66250
Hrabat se v tom šíleném kodu a předělávat příkazy "Select" se mi opravdu nechtělo. A učit tazatele programovat ve VBA, když má na netu milion návodů, se mi také nechtělo. Tak jsem šel cestou nejmenšího odporu.
Luffi: případné děkování a komentování odpovědí patří sem, a né do SZ. Přečti si pravidla fora:
viewforum.php?f=111
viewtopic.php?f=111&t=66250
Re: Kopírování obrazků, zápatí ... z jednoho do více listů excel.
Omlouvám se, taky se učím. :)
Upravil jsem tu katastrofu kod, ale stále jsem nepřišel jak a kde Tvuj kod doplnit, aby to kopírovako na další listy. Pomalu se to na mě lepí, ale .... vždyť to znáte, začátečník.
Poraď prosím. AktiveSheet je List1 a začít potrebuji od List4 až 150. Nový kod v příloze. Díky moc.
Upravil jsem tu katastrofu kod, ale stále jsem nepřišel jak a kde Tvuj kod doplnit, aby to kopírovako na další listy. Pomalu se to na mě lepí, ale .... vždyť to znáte, začátečník.
Poraď prosím. AktiveSheet je List1 a začít potrebuji od List4 až 150. Nový kod v příloze. Díky moc.
- Přílohy
-
- novy kod.docx
- (12.12 KiB) Staženo 21 x
Re: Kopírování obrazků, zápatí ... z jednoho do více listů excel.
Posílám ukázku makra na inspiraci. Je sešit, kteý má 12 listů. Toto makro nakopíruje buňku A1 z listu 1, do buňky A1 na listech 4 až 12. Listy se označují pořadovýma čísly 1 až 12 zleva do prava, a není podstatné jaký mají název.
Toto je makro, které používá tu "šílenost" se Select, kterou jsi sem vložil:
Toto je makro, které dělá to samé, ale bez Select:
S kopírováním obrázků nemám zkusšenosti, takže se do toho nebudu pouštět. Máš tady tedy návod, jakým způsobem to lze řešit.
Poznámka: Kódy Excelu sem vkládej přímo v souboru Excel, a nebo jako kód do textu.
Toto je makro, které používá tu "šílenost" se Select, kterou jsi sem vložil:
Kód: Vybrat vše
Sub Makro_Select()
For i = 4 To 12
Sheets(1).Activate
Range("a1").Select
Selection.copy
Sheets(i).Activate
Range("a1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Next i
End Sub
Toto je makro, které dělá to samé, ale bez Select:
Kód: Vybrat vše
Sub makro_bez_Select()
For i = 4 To 12
Sheets(i).Range("b1") = Sheets(1).Range("a1")
Next i
End Sub
S kopírováním obrázků nemám zkusšenosti, takže se do toho nebudu pouštět. Máš tady tedy návod, jakým způsobem to lze řešit.
Poznámka: Kódy Excelu sem vkládej přímo v souboru Excel, a nebo jako kód do textu.
Re: Kopírování obrazků, zápatí ... z jednoho do více listů excel. Vyřešeno
Pánové, bingo! Funguje. Moc děkuji, stačilo od Vás jenom správně nasměrovat, motivovat
Zbytek jsem již poskládal.
Zbytek jsem již poskládal.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Nastavení zabezpečení internetu zabránilo v otevření jednoho nebo více souborů Příloha(y)
od magnator » 06 čer 2023 10:23 » v Windows 11, 10, 8... - 3
- 1782
-
od mmmartin
Zobrazit poslední příspěvek
06 čer 2023 21:22
-
-
-
Excel - automatický export listů xls do pdf včetně pojmenování Příloha(y)
od kalosek » 28 čer 2023 20:31 » v Kancelářské balíky - 2
- 1832
-
od kalosek
Zobrazit poslední příspěvek
29 čer 2023 19:39
-
-
-
excel text na konec více řádků najednou Příloha(y)
od Myerina » 03 led 2024 11:51 » v Kancelářské balíky - 5
- 782
-
od Zivan
Zobrazit poslední příspěvek
04 led 2024 09:42
-
-
- 3
- 1789
-
od Melvidor
Zobrazit poslední příspěvek
21 črc 2023 08:41
-
-
Obnoveni ztracenych fotek z telefonu pri kopirovani do pc
od Dizzy66 » 21 led 2024 17:08 » v Vše ostatní (sw) - 2
- 1021
-
od šulda
Zobrazit poslední příspěvek
23 úno 2024 07:12
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů