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ž

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
Nemáte oprávnění prohlížet přiložené soubory.
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 4
Level 4
Příspěvky: 1245
Registrován: říjen 08
Pohlaví: Muž

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

xlnc
Level 3.5
Level 3.5
Příspěvky: 708
Registrován: červenec 11
Pohlaví: Muž

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

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

Kdy už uživatelé konečně zapomenou na nějaký Select...
lektor, vývojář a zaříkávač pro Microsoft Excel, Excelplus.NET

Uživatelský avatar
atari
Level 4
Level 4
Příspěvky: 1245
Registrován: říjen 08
Pohlaví: Muž

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ž

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.
Nemáte oprávnění prohlížet přiložené soubory.

Uživatelský avatar
atari
Level 4
Level 4
Příspěvky: 1245
Registrován: říjen 08
Pohlaví: Muž

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ž

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
  • Excel - kopírování dat z jednoho souboru do druhého pomocí VBA
    od simstriks » 14 zář 2017 09:28 » v Kancelářské balíky
    5
    270
    od simstriks
    19 zář 2017 10:04
  • Sloučení více sešitů Excel do jednoho stylem "přes sebe"
    od Rosta_Kolmix » 02 srp 2017 15:08 » v Kancelářské balíky
    5
    387
    od MePExG
    08 srp 2017 20:11
  • Výpis určitých dat z jednoho listu do druhého
    od kapitanelanius » 13 lis 2016 00:52 » v Kancelářské balíky
    1
    326
    od kapitanelanius
    13 lis 2016 13:54
  • Spojení více externích HDD do jednoho
    od T-enter » 20 kvě 2017 12:22 » v Rady s výběrem hardwaru a sestavením PC
    4
    235
    od Killing joke
    21 kvě 2017 18:37
  • Kontingenčí tabulka z více listů
    od vonv » 25 črc 2017 08:19 » v Kancelářské balíky
    0
    193
    od vonv
    25 črc 2017 08:19

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

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 1 host