Kopírování obrazků, zápatí ... z jednoho do více listů excel. Vyřešeno

[Luffi]

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

kod.docx

(13.83 KiB) Staženo 57 x

[Reklama]

[atari]

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ů.

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

[guest]

Kdy už uživatelé konečně zapomenou na nějaký Select...

[atari]

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

[Luffi]

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.

[atari]

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:

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.

[Luffi]

Pánové, bingo! Funguje. Moc děkuji, stačilo od Vás jenom správně nasměrovat, motivovat
Zbytek jsem již poskládal.