MS Excel

Zdravím všetkých Excelákov,
chcel by som poprosiť o nasledovné riešenie.
Na liste Tab1 mám generovanú tabuľku so začiatkom v B3. Jej veľkosť sa dynamicky mení. Počet riadkov sa môže meniť v rozsahu B3:B24 (Max 22). Tabuľka obsahuje vždy trojice stĺpcov a ich počet sa môže meniť až do počtu max. 50 (stĺpce sú BCD, EFG, HIJ atď).
Potrebujem takto generovanú tabuľku skopírovať pomocou makra do listu NovaTab1 a to tak, že vždy sa skopírujú za sebou prvé dva stĺpce z každej trojice , pričom tretí stĺpec sa vynecháva. Kopírovať sa začne do A1. Takže z listu Tab1 stĺpce B3:C vlož do A1:B na list NovaTab1, E3:F vlož do C1:D, ... Počet riadkov je rovný počtu vyplnených riadkov v Tab1. Oblasť do ktorej môžem na liste NovaTab1 kopírovať je vymedzená rozsahom A1:X44. Takže do jedného radu môžem skopírovať max. 12 dvojíc stĺpcov. Ďalšie stĺpce kopírujem do nového radu od stĺpca A, pričom medzi radmi vynechám prázdny riadok.
Ak veľkosť tabuľky v Tab1 je tak veľká, že kopírovanie presahuje riadok 44 v NovaTab1, treba novú radu stĺpcov začať kopírovať od bunky A45.
Ďakujem za riešenie

Zaslat odpověď >

Poki(20.9.2010 16:05)#002488

Tak tohle byla drina...
Upozornuju, ze jestli to neni podle predstav, tak uz se mi to fakt nebude chtit predelavat :D

Příloha: zip

2488_kopirovani.zip (34kB, staženo 23x)

citovat

Dunkaninko(21.9.2010 1:20)#002492

Poki
si skutočný borec, klobúk dole nad tým, čo všetko vieš. Vdaka za riešenie. Je to skoro to čo som potreboval. Má to menšiu chybičku.
Skús v Tab1 vymazať obsah B14:EU24 a spusť makro. Nova Tab1 by mala pokračovať od A13. Čiže to, čo je skopírované do A45:X55 má byť v A13:X23, potom pokračuje A25:X35, ďalšia skupina už musí pokračovať od A45:X55 (došlo by k jej rozdeleniu riadkom 44)a končí A57:D57.
Bolo by vhodné aby sa makro spustilo pri otvorení listu Nova Tab1.citovat

Poki(21.9.2010 10:58)#002501

Zkusil jsem jeste jednu opravu - kopirovani se aktivuje pri aktivaci listu Nova Tab1

Příloha: zip

2501_kopirovani.zip (29kB, staženo 15x)

citovat

Dunkaninko(21.9.2010 11:39)#002505

Kopíruje to skoro tak, ako by to malo. Pri nastavenej tabulke 8 riadkov x 50 stĺpcov sa skupina 25 až 36 ko píruje 3x, avšak skupina 37 až 50 chýba. V rozsahu A28:X35 by mala byť skupina 37 až 48 a posledná skupina 49 a 50 by mala byť skopírovaná do A37:D44. Od riadku 45 ďalej už nič.
Vďakacitovat

Poki(21.9.2010 12:43)#002508

poslední pokus...

Příloha: zip

2508_kopirovani.zip (37kB, staženo 23x)

citovat

Dunkaninko(21.9.2010 15:30)#002510

Fantázia, pracuje to presne tak ako to potrebujem. Idem to odskúšať v aplikácii. Odstránim ešte blikanie v NovaTab1 (asi Application.ScreenUpdating = False/True).
Nie je to môj prípad, ale ak by niekto chcel kopírovať plný počet riadkov z Tab1 (22) a zachovať nové stránky, potom by bolo potrebné každých 22 riadkov kopírovať na novú stránku - celkove 5 stránok :(A1:X44, A45:X88, A89:X132, A133:X176, A177:X220).
Poki ešte raz veĺká, veľká, veľká Vďaka. Si super.
Dodatok:
V tej istej aplikácii mám Tab2, ktorá je identická s Tab1 avšak má iné hodnoty. Každá tabuľka má v riadku 25 v každom treťom stĺpci (stĺpec ktorý sa nekopíruje) nejakú hodnotu > 0. Potrebujem porovnať hodnoty v zodpovedajúcich stĺpcoch.
1)Ak hodnota v Tab1 >= hodnote v Tab2, potom prvé dva stĺpce z Tab1 prekopírovať do NovaTab21. Inak stĺpce z Tab1 sa nekopírujú.
2)Ak hodnota v Tab2 > hodnote v Tab1, potom prvé dva stĺpce z Tab2 prekopírovať do NovaTab22. Inak stĺpce z Tab2 sa nekopírujú.
Podmienky kopírovania sú rovnaké ako v už vyriešenom prípade. Ide vlastne o triedenie stĺpcov z dvoch tabuliek pri splnení špecifických podmienok.
Dokážeš ešte pomôcť?citovat

Dunkaninko(22.9.2010 18:59)#002516

Zdravím Ťa Poki,
makrá som doskúšal v mojej aplikácii. Chodia aj nechodia. Tab1 generujem pomocou funkcii. Každý tretí stĺpec má fciu: =KDYŽ(JE.CHYBHODN(SVYHLEDAT(List3!B3;List1!$A$3:$B$24;2;0));
" ";SVYHLEDAT(List3!B3;List1!$A$3:$B$24;2;0)). Podľa stĺpca a riadku sa mení B3.
Každý štvrtý stĺpec má fciu:=KDYŽ(List3!C3=" ";" ";" - "&List3!C3). Pričom sa mení C3.
Ak v Tab1 prázdne riadky vymažem (klávesou Delete),makrá pracujú bez chyby. Ak prázdne riadky obsahujú fcie kopíruje to po 22 riadkoch.
Dokážeš pomôcť. Ďakujemcitovat

Poki(23.9.2010 10:04)#002519

Tak to je absolutne zasadni informace, a chtelo by to cely predelat nebo uzpusobit - to bych ale musel chapat cely proces, ktery se tam deje...citovat

misocko(11.5.2011 19:05)#004950

to Poki: a tu mas to co som Ti pisal minule , Ty sa trapis a nakoniec su tam nejake veci o ktorych netusis a mozes ist odznova, nabuduce to skus ako ja - temy bez suboru preskakuj

, teraz som si pozrel to makro - ta to dobry brutal

citovat

Téma: Kopírovanie tabuľky

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje