MAKRO - sehrání více listů do jednoho - proměnná data

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

Moderátor: Mods_senior

MishaCZ
nováček
Příspěvky: 1
Registrován: duben 16
Pohlaví: Muž
Stav:
Offline

MAKRO - sehrání více listů do jednoho - proměnná data

Příspěvekod MishaCZ » 04 dub 2016 13:25

MAKRO POMOC.xlsm
(20 KiB) Staženo 21 x
Dobrý den,
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

Reklama
cmuch
Level 4.5
Level 4.5
Příspěvky: 1544
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

Re: MAKRO - sehrání více listů do jednoho - proměnná data

Příspěvekod cmuch » 04 dub 2016 16:59



  • 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
  • Makro pro myš Rapture Python
    od mmmartin » 27 srp 2023 15:18 » v Problémy s hardwarem
    9
    1111
    od mmmartin Zobrazit poslední příspěvek
    29 srp 2023 16:47
  • Data z HDD
    od dadlou » 07 dub 2023 11:30 » v Problémy s hardwarem
    2
    886
    od Sigyam Zobrazit poslední příspěvek
    07 dub 2023 15:24
  • USB-C pouze data ? Příloha(y)
    od ski1961 » 08 říj 2023 10:25 » v Rady s výběrem hw a sestavením PC
    4
    2145
    od ski1961 Zobrazit poslední příspěvek
    08 říj 2023 11:40

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

Kdo je online

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