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

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Luffi
nováček
Příspěvky: 7
Registrován: listopad 16
Pohlaví: Muž
Stav:
Offline

Kopírování obrazků, zápatí ... z jednoho do více listů excel.

Příspěvekod Luffi » 08 lis 2016 09:44

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 46 x
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...

Reklama
Uživatelský avatar
atari
Level 6
Level 6
Příspěvky: 3195
Registrován: říjen 08
Pohlaví: Muž
Stav:
Offline

Re: Kopírování obrazků, zápatí ... z jednoho do více listů excel.

Příspěvekod atari » 10 lis 2016 21:38

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
Pohlaví: Nespecifikováno

Re: Kopírování obrazků, zápatí ... z jednoho do více listů excel.

Příspěvekod guest » 12 lis 2016 12:57

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

Uživatelský avatar
atari
Level 6
Level 6
Příspěvky: 3195
Registrován: říjen 08
Pohlaví: Muž
Stav:
Offline

Re: Kopírování obrazků, zápatí ... z jednoho do více listů excel.

Příspěvekod atari » 14 lis 2016 14:20

Uživatelé na Select zapomenou až v okamžiku, kdy ten příkaz Excel přestane podporovat ... :D. 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
nováček
Příspěvky: 7
Registrován: listopad 16
Pohlaví: Muž
Stav:
Offline

Re: Kopírování obrazků, zápatí ... z jednoho do více listů excel.

Příspěvekod Luffi » 14 lis 2016 16:06

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.
Přílohy
novy kod.docx
(12.12 KiB) Staženo 21 x

Uživatelský avatar
atari
Level 6
Level 6
Příspěvky: 3195
Registrován: říjen 08
Pohlaví: Muž
Stav:
Offline

Re: Kopírování obrazků, zápatí ... z jednoho do více listů excel.

Příspěvekod atari » 14 lis 2016 21:21

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
nováček
Příspěvky: 7
Registrován: listopad 16
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod Luffi » 15 lis 2016 09:48

Pánové, bingo! Funguje. Moc děkuji, stačilo od Vás jenom správně nasměrovat, motivovat :thumbup:
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
  • Kopírování řádků s funkcí když Příloha(y)
    od Martyn20 » 20 črc 2023 16:50 » v Kancelářské balíky
    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

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů