Word
Excel
PowerPoint
Access
Outlook
ECDL
Poradna - Makro na kopírovanie buniek
Vložení příspěvkuhlavní kategorie | zpět | + odpovědět na toto téma
| Makro na kopírovanie buniek - diskuze na toto téma |
| Dobrý deň,
Chcem vás poprosiť o radu.
Mám excel súbor, v ktorom mám 40 sheetov (všetky sú rovnaké) a používam makro, ktoré mi z každého sheetu skopíruje určité bunky a uloží ich do jedného spoločného sheetu. Problém mám s tým, že všetky skopírované bunky zo všetkých sheetov ukladá pod seba do stlpca A. Chcel by som aby mi skopírované bunky zo sheetu 1 uložilo do stlpca A, bunky zo sheetu 2 uložilo do stlpca B, bunky zo sheetu 3 uložilo do stlpca C, atd....
Tu je spomínané makro:
Sub Macro1()
destination_sheet = "copy"
row_index = 1
For Each sh In Sheets
If sh.Name <> destination_sheet Then
sh.Activate
Range("B7, B8,").Copy Destination:=Sheets(destination_sheet).Cells(row_index, 1)
row_index = row_index + 20
End If
Next sh
Sheets(destination_sheet).Activate
End Sub
Za každú radu budem nesmierne vdačný. Můžeš sem to makro vložit v nějaké smysluplnější formě(přímo v sešitě nebo v *.txt)? Tohle se mi fakt nechce luštit. Odpověď Presne ten zošit nemám k dispozícii momentálne, ale prikladám .txt kde je to makro Odpověď Dakujem, už to kopíruje ako má. Teraz mám však problém, že mi nechce kopírovať bunky z viacerých stlpcov. Makro mi funguje, len ak zadám do sh.Range bunky z rovnakého stlpca.
Prikladám aj konkrétny excel Odpověď To je predsa jasne. Napísal ste, že chcete kopírovať B7:B8. Nemôžete cez Copy kopírovať viacnásobnú/nesúvislú oblasť. Uveďte ešte na jednej prílohe, ktoré presne bunky sa majú kopírovať, a ako má presne vyzerať výsledok z týchto 3 listov. A ešte upresnite, či sa má kopírovať aj formát bunky (nepýtam sa na formát hodnoty [o ten určite tiež ide], ale bunky) teda farba, rám a pod. Ak Vám totiž ide len o hodnoty, tak sa to urobí inak, ako by sa to robilo, keď Vám ide aj o formát bunky. Hlavne ukážte ten želaný výsledok. Odpověď Ide mi len o hodnoty konkrétnych buniek (a o formát hodnoty tiež): B7, G6, D9, B8, F8, H8, F11, A14, E14, B6, B11. A Aby výsledok bol taký, že zo sheetov 1,2,3 som mal v sheete "copy" hodnoty z vyššie spomínaných buniek. Z každého jedného sheetu v osobitnom stĺpci. Každopádne tých sheetov môže byť viac ako len 1,2,3.
V prílohe je excel, kde je v sheete copy zobrazené, ako by to malo vyzerať Odpověď |
