excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: přenos komentářů na jiné listy
Uzamčeno - nelze přidávat nové příspěvky.
MS Excel
Téma: přenos komentářů na jiné listy 
Zaslal/a radjah 22.9.2012 10:10
Zdravím, jde nějak při přenášení dat z buněk do jiných listů přenášet i komentáře? Díky za pomoc 
Příloha: 
9562_prenoskomentare.rar (6kB, staženo 34x)
9562_prenoskomentare.rar (6kB, staženo 34x) Uzamčeno - nelze přidávat nové příspěvky.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
citovat(23.9.2012 9:53)#009566
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ářů.
M@citovat
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ářů.
M@citovat
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.
M@
M@
Příloha: 9568_prenosvseho.zip (12kB, staženo 38x)
citovat9568_prenosvseho.zip (12kB, staženo 38x)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
citovatSú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 "".
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 "".
Příloha: 9573_prenoskomentare.zip (13kB, staženo 30x)
citovat9573_prenoskomentare.zip (13kB, staženo 30x)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
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
Oblast mém definovanou skrze proměnné:
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í.
M@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í.
M@citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články