white_black
09.03.16,12:44
Viete mi prosim poradit nejaky vzorec? Prikladam aj subor - ide o to, ze mam v 1.stlpci zivnostnikov, 2.zamestnancov, 3.dohodarov a v 4.brigadnikov. Mam tam vzorec, ktory mi dane mena taha z inych tabuliek, cize mena pribudaju, pripadne zmenia poradie.. Potrebujem do ineho stlpca vzorec, ktory mi zobrazi vsetkych dokopy..
PaloPa
09.03.16,17:12
Nie som si istý, či aj pre nižšie verzie Excelu ako 2013 existuje výborný doplnok (add-on) Power Query (http://www.databasejournal.com/sqletc/getting-started-with-microsoft-power-query-for-excel.html), ale tento vie podobné problémy riešiť.
Dám len stručné info, obrázky a výsledný príklad, ak sa rozvinie diskusia doplním.
Postup:
01| Zmeniť oblasť na tabuľku
02| Power Query data z excelovskej tabuľky
02| Power Query Editor - zjednotenie názvu spoločného stĺpca - "Meno"
03| Power Query - zjednotenie (union) tabuliek
05| Power Query Editor - pridanie viacerých tabuliek
P.
Pridal som aj verziu s makrom - dynamický počet zdrojových dát
V kóde (ALT+F11) si treba zmeniť adresy zdrojov a cieľa (!! iba prvé bunky)
.
Dám len stručné info, obrázky a výsledný príklad, ak sa rozvinie diskusia doplním.
Postup:
01| Zmeniť oblasť na tabuľku
02| Power Query data z excelovskej tabuľky
02| Power Query Editor - zjednotenie názvu spoločného stĺpca - "Meno"
03| Power Query - zjednotenie (union) tabuliek
05| Power Query Editor - pridanie viacerých tabuliek
P.
Pridal som aj verziu s makrom - dynamický počet zdrojových dát
V kóde (ALT+F11) si treba zmeniť adresy zdrojov a cieľa (!! iba prvé bunky)
.
Kabaka123
10.03.16,06:48
alebo sa to dá makrom.... toto makro som nahrala, viď priložený súbor
Sub Makro2()
'
' Makro2 Makro
' Makro zaznamenané 10.3.2016, Marcel
'
'
Range("G1").Select
Selection.Copy
Range("H1").Select
ActiveSheet.Paste
Range("A2:A7").Select
Application.CutCopyMode = False
Selection.Copy
Range("H2").Select
ActiveSheet.Paste
Range("B2:B5").Select
Application.CutCopyMode = False
Selection.Copy
Range("H8").Select
ActiveSheet.Paste
Range("C2:C3").Select
Application.CutCopyMode = False
Selection.Copy
Range("H12").Select
ActiveSheet.Paste
Range("D2").Select
Application.CutCopyMode = False
Selection.Copy
Range("H14").Select
ActiveSheet.Paste
End Sub
Sub Makro2()
'
' Makro2 Makro
' Makro zaznamenané 10.3.2016, Marcel
'
'
Range("G1").Select
Selection.Copy
Range("H1").Select
ActiveSheet.Paste
Range("A2:A7").Select
Application.CutCopyMode = False
Selection.Copy
Range("H2").Select
ActiveSheet.Paste
Range("B2:B5").Select
Application.CutCopyMode = False
Selection.Copy
Range("H8").Select
ActiveSheet.Paste
Range("C2:C3").Select
Application.CutCopyMode = False
Selection.Copy
Range("H12").Select
ActiveSheet.Paste
Range("D2").Select
Application.CutCopyMode = False
Selection.Copy
Range("H14").Select
ActiveSheet.Paste
End Sub
white_black
10.03.16,07:15
dakujem, vyskusam..
white_black
10.03.16,07:16
neviem preco, no ked pridam meno napr do dohodarov a spustim makro, tak mi to meno neprida do vsetkych.. =/
Pakrako
10.03.16,09:36
lebo makro je spravené len na pevné kopirovanie !!
white_black
10.03.16,09:41
Ano vsimla som si, neviem robit s makrom, prosim ta nevies mi poradit ako to zmenim?
PaloPa
10.03.16,13:34
pridal som do riešenia vyššie
mepex
10.03.16,13:56
Tu je upravené makro, ktoré si samo zisťuje dĺžku (počet položiek). Viď príloha spoj.
PaloPa
10.03.16,14:32
Len drobná poznámka. Použitie "xlDown" v kóde predpokladá, že v zdrojových dátach nebude prázdna bunka, inak pôjde iba potiaľ.
mepex
11.03.16,05:19
Tiež je to možné brať od spodku, aby sa dala táto skutočnosť vylúčiť. Ale pôvodné zadanie bolo vytvoriť zoznam mien kde je malý predpoklad, že medzi menami bude medzera. PQ je myslím elegantné riešenie, ale málo ľudí vie že vôbec existuje, aj keď v 2016 je už automaticky a nie je to doplnok.
white_black
11.03.16,08:40
super paradicka funguje to tak ako ma =) DAKUJEM MOC MOC
Kabaka123
11.03.16,10:17
som rada, že som čiastočne pomohla...
white_black
11.03.16,10:44
jasne ze ano =) dakujem aa zelam pekny vikend vsetkym =)