Vložila jsem sice do vzoru 1 sešit se třemi listy, ale ve skutečnosti to chci aplikovat na 8 propojených sešitů a přes 100 000 buněk do kterých zapisují různí uživatelé, kopírovat a vložit není to správné ořechové, půjde to makrem zautomatizovat při aktualizaci propojení? citovat
já se tady asi hloupě zeptám jakým způsobem vyplňuješ ten souhrnný list daty?
Teď tam vidím vzorce, což asi není moc automatické, no a pak mi ani není jasné proč je zde vzorec typu opakovat.
Ptám se protože způsob propojení dat může být zásadní pro způsob vložení komentářů.
listy "originál" představují sešity uživatelů, kteří je sami vyplňují, list "kopie" představuje souhrnný sešit, do kterého shromažďuji propojená data právě těmito vzorci "hodnota" (číselná data) nebo "opakovat" (textová data), komentáře představují další informaci, kterou bych potřebovala vidět bez nutnosti otevřít zdrojový soubor (což zdržuje)citovat
Asi mi přijde, že to máš zbytečně komplikovaný - proč prostě nepřenést vše a nekomplikovat si život vzorci a propojení na originály? Možná mi jen něco uniká :-). Zkus přílohu.
přenést vše, to bude ten správný krok místo rozepisování vzorců, jen se zeptám: jak nadefinuji oblasti k přenosu, protože tady asi makro pracuje s celými řádky, já budu potřebovat přenést jen výseče z několika listů a na přesné místo a s takto přenesenými daty provádět další operace (převážně součty) - ukázka se mi sem nevejde citovat
Súhlasím s Jeza.m, je to tak trochu vyumelkované
Najlepšie by bolo to preniesť tak ako hovorí Jeza.m
Skúsil som niečo urobiť, ale je to založené na tom, že v oblasti musí byť použitý ten tvoj vzorec "=REPT(XXXXX;1) vo všetkých bunkách. Predpokladám, že si to použil aby sa ti tam nezobrazovali "0" namiesto "".
vzorec "opakovat" není vhodný pro všechny buňky, protože jen část přenesených buněk má zůstat vyloženě "textových", v nich jsou dále informace sčítané funkcí "countif", v dalších jsou hodnoty (např. i desetinná čísla), ta sčítám funkcí "suma" atd., členění mám zpravidla po řádcích, ale komentáře se objevují ve všech řádcích, proto jsem údaje schválně namíchalacitovat
Tiež si to mohla napísať skôr. Ak sú v tých bunkách rôzne funkcie, tak si to ťažko budeš vyhodnocovať makrom.
A ten vzorec tiež treba upraviť ak máš OPAKOVAT namiesto REPT
adresa = Mid(cell.Formula, 7, Len(cell.Formula) - 9)
na adresa = Mid(cell.Formula, 11, Len(cell.Formula) - 13)citovat
max = Sheet.UsedRange.Rows.Count + prvni
počet použitých řádků + počet prázdných řádků na začátku
Seet.Range("A8:I" & max).Copy ActiveSheet.Cells(rd, 1)
kopíruje buňky od buňky A8 po buňku I posledního řádku.
Vkládá na souhrnný list do řádku rd, sloupce A. řádek rd je proměnný a s každnou načtenou oblastí se mění.