MAKRO - sehrání více listů do jednoho - proměnná data
MAKRO - sehrání více listů do jednoho - proměnná data
Makra se teprve učím ovládat a tak bych prosil o pomoc při vytvoření makra, které mi do jednoho listu dokáže pod sebe nakopírovat data ze 4 různých listu a to tak, že v těchto listech jsou proměnná data (např. někdy jsou zde data od řádku 3 po řádek 30, další den zde můžou být data od řádku 3 do řádku 150.). Jakési makro jsem si vytvořil, ale pokud zůstane jeden list prázdný (což je v tomto případě dost pravděpodobné, že nebudou vždy vyplněny všechny 4 listy) tak mi makro smaže pevně zadané data v základní obrazovce (protože makro pracuje tak, že vleze do listu a označí data PG DN and PG RIGHT - to když je prázdné tak prázdné překopíruju do sběrné tabulky do listu 1 a tam přemaže pevně daná data. Pokud na listech 2,3,4,5 udělám jakoukoliv změnu v počtu řádků, tak makro již nepracuje správně. Nevím jak zajistit, aby se podařilo vkládat jednotlivé listy pod sebe, aniž by se v makru neukázalo přesné umístění buňky (to je proměnné v závislosti na tom, kolik dat bude v těch ostatních listech.
zda je náhled makra, které jsem vytvořil. Předpokládám, že toto jde sepsat mnohem úhledněji.
Sub Makro2()
'
' Makro2 Makro
'
'
Range("A2").Select
Sheets("List2").Select
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("List1").Select
ActiveSheet.Paste
Range("A2").Select
Selection.End(xlDown).Select
Range("A6").Select
Sheets("List3").Select
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("List1").Select
ActiveSheet.Paste
Selection.End(xlToLeft).Select
Selection.End(xlDown).Select
Range("A10").Select
Sheets("List4").Select
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("List1").Select
ActiveSheet.Paste
Selection.End(xlToLeft).Select
Selection.End(xlDown).Select
Range("A14").Select
Sheets("List5").Select
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("List1").Select
ActiveSheet.Paste
Range("E2").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlDown).Select
Range("E17").Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
V příloze přikládám celý soubor, pro lepší představu.
Předem moc děkuji za jakoukoliv pomoc.
S pozdravem
Michal
-
- 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
- 1780
-
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
- 1826
-
od kalosek
Zobrazit poslední příspěvek
29 čer 2023 19:39
-
-
- 9
- 1111
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
-
- 2
- 886
-
od Sigyam
Zobrazit poslední příspěvek
07 dub 2023 15:24
-
- 4
- 2145
-
od ski1961
Zobrazit poslední příspěvek
08 říj 2023 11:40
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 2 hosti