Projdi si téma "přenos komentářů na jiné listy" z 22.9.2012, něco se určitě hodí 
citovat
citovat
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: Kopírování komentářů do buňky
MS Excel
Téma: Kopírování komentářů do buňky 
Zaslal/a Dejavu 27.9.2012 21:09
Zdravím všechny,
potřeboval bych poradit, jak pomocí VBA zkopírovat komentáře do buněk viz. příloha. Kopírování komentáře do buňky by asi samo o sobě nemělo být tak složité, ale jak to udělat, když předem nevím, kolik bude mít tabulka řádků ???
Předem díky za každou radu.
Dejavu
Příloha: 
9622_evidence-kontroly.7z (27kB, staženo 36x)
9622_evidence-kontroly.7z (27kB, staženo 36x)Tak jsem koukal do kodu a nejsem z toho příliš moudrý...
kopíruje se tam vše, což není přesně to co potřebuji...
Mě jde spíše o to, aby se daný komentář zkopíroval sám a vožil do buňky jako text... text v buňce, ke které je vázán i komentář se tedy kopírovat nesmí... :)citovat
kopíruje se tam vše, což není přesně to co potřebuji...
Mě jde spíše o to, aby se daný komentář zkopíroval sám a vožil do buňky jako text... text v buňce, ke které je vázán i komentář se tedy kopírovat nesmí... :)citovat
no nedovedu otevrit prilohu, ale jen z hlavy:
Cislo posledniho radku tabulky se zjistuje "skokem odspodu" (musis zvolit vhodny sloupec tabulky, ktery nema ani jednu bunku prazdnou, dejme tome, ze je to sloupec "B"). Samozrejme, ze v danem sloupci pod tabulkou uz nesmis mit zadne neprazdne bunky!
Dim iMaxRad as long, i as Long
'cislo posledniho radku:
iMaxRad = Range("B65000").End(xlUp).Row
pokud bychom ale meli nasazeny filtr v tabulce, tak by nam to nemuselo vratit spravny radek, takze jeste pred tento kod bycho meli umistit nasledujici oddelani filtru:
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
A pak jedes postupne pro kazdy radek (dejme tomu, ze tabulka zacina na radku 2, komentare jsou ve sloupci "B" a chceme je narvat do slouce "G"
For i = 2 To iMaxRad
Cells(i,"G") = Cells(i,"B").Comment.Text
Next i
For je systemove slovo, kterym zacina nejaky cyklus. V tomto radku taky definujeme odkud a dokud ma cyklus trvat. Zde si pomahame promennou i, ktera reprezentuje cislo radku, a ta se ma menit od 2 az po cislo posledniho radku iMaxRad.
Pak tam je jeden radek prikazu, ktery cosi dela, pricemz to vzdy provadi na i-tem radku.
Samozrejme, ze tento radek by mohl byt napsan i jinak:
Cells(i,7) = Cells(i,2).Comment.Text
anebo
Range("G:" & i) = Range("B:" & i).Comment.Text nebo dalsimi zpusoby, zalezi na vkusu
Next je systemove slovo, ktere vraci cyklus zpatky na For a to az do te doby, nez i dosahne posledniho radku iMaxRad. Anebo nez narazi na tzv. opustak cyklu exit for, ale to tady nemame. Neni to tak tezky, ze ne?citovat
Cislo posledniho radku tabulky se zjistuje "skokem odspodu" (musis zvolit vhodny sloupec tabulky, ktery nema ani jednu bunku prazdnou, dejme tome, ze je to sloupec "B"). Samozrejme, ze v danem sloupci pod tabulkou uz nesmis mit zadne neprazdne bunky!
Dim iMaxRad as long, i as Long
'cislo posledniho radku:
iMaxRad = Range("B65000").End(xlUp).Row
pokud bychom ale meli nasazeny filtr v tabulce, tak by nam to nemuselo vratit spravny radek, takze jeste pred tento kod bycho meli umistit nasledujici oddelani filtru:
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
A pak jedes postupne pro kazdy radek (dejme tomu, ze tabulka zacina na radku 2, komentare jsou ve sloupci "B" a chceme je narvat do slouce "G"
For i = 2 To iMaxRad
Cells(i,"G") = Cells(i,"B").Comment.Text
Next i
For je systemove slovo, kterym zacina nejaky cyklus. V tomto radku taky definujeme odkud a dokud ma cyklus trvat. Zde si pomahame promennou i, ktera reprezentuje cislo radku, a ta se ma menit od 2 az po cislo posledniho radku iMaxRad.
Pak tam je jeden radek prikazu, ktery cosi dela, pricemz to vzdy provadi na i-tem radku.
Samozrejme, ze tento radek by mohl byt napsan i jinak:
Cells(i,7) = Cells(i,2).Comment.Text
anebo
Range("G:" & i) = Range("B:" & i).Comment.Text nebo dalsimi zpusoby, zalezi na vkusu
Next je systemove slovo, ktere vraci cyklus zpatky na For a to az do te doby, nez i dosahne posledniho radku iMaxRad. Anebo nez narazi na tzv. opustak cyklu exit for, ale to tady nemame. Neni to tak tezky, ze ne?citovat
To je zvláštní, že ti to nejde otevřít..
Bohužel to mám o něco složitější, ale to bys musel mrknout do přílohy, takto se to špatně vysvětluje, tabulky jsou dvě pod sebou a pod každou z nich musí být ty komentáře, přičemž každá z nich může být jakkoliv dlouhá ( Co do počtu řádků ). Snažím se o komplexní řešení evidence kontroly a pracuju na tom už tak půl roku, bez KP57 bych to nedal ani zdaleka dohromady a pro mě samotného jsou teď úpravy tohoto rázu v tomto sešitě již nad mé síly. Ty příkazy, co jsi zde vypsal znám, ale bez dalších znalostí pokročilého VBA si s tím momentálně nejsem schopen poradit, momentálně se prohrabávám kodem a snažím se pochopit :)citovat
Bohužel to mám o něco složitější, ale to bys musel mrknout do přílohy, takto se to špatně vysvětluje, tabulky jsou dvě pod sebou a pod každou z nich musí být ty komentáře, přičemž každá z nich může být jakkoliv dlouhá ( Co do počtu řádků ). Snažím se o komplexní řešení evidence kontroly a pracuju na tom už tak půl roku, bez KP57 bych to nedal ani zdaleka dohromady a pro mě samotného jsou teď úpravy tohoto rázu v tomto sešitě již nad mé síly. Ty příkazy, co jsi zde vypsal znám, ale bez dalších znalostí pokročilého VBA si s tím momentálně nejsem schopen poradit, momentálně se prohrabávám kodem a snažím se pochopit :)citovat
Tak uz to mam otevrene, nainstaloval jsem si otravny WinZip, ale je to jenom trial verze, takze zbytecny opruz. Doted jsem si vystacil s rar a zip
Aby se dal zjistit rozsah tabulky, je potreba se neceho chytit. Zacatek tabulky se da chytnout podle zahlavi (sloucene bunky sice nejsou moc stastne reseni, ale i to se da poresit). Spodni radek tabulky by se dal chytnout podle textu "celkem min." Jedna se o komentare ve sloupci "G" do bunky "G"?citovat
Aby se dal zjistit rozsah tabulky, je potreba se neceho chytit. Zacatek tabulky se da chytnout podle zahlavi (sloucene bunky sice nejsou moc stastne reseni, ale i to se da poresit). Spodni radek tabulky by se dal chytnout podle textu "celkem min." Jedna se o komentare ve sloupci "G" do bunky "G"?citovat
Raději ti tedy pošlu poslední verzi, ať se shodneme... heslo je "mepuvo9n1"
Jinak ty komentáře potřebuju tak, že když na 1. listě vyberu po kliknutí pravým tlačítkem "oprava" :
1, vytvoří se kopie listu, která nebude obsahovat vzorce ... to již běží, tak jak má.
2, z listu oprava se z buněk ve sloupci H zkopírujou jen komentáře do prostoru pod tabulkou... toto pro obě tabulky. Dále, když kliknu opět pravým tlačítkem, vyberu smazat komentáře, komentáře pod tabulkou se promažou... slouží tam jen pro tisk.
Problémem však může být to, že potřebuji z komentáře zkopírovat vždy vše, krom 1. řádku ( tedy bez textu "kód operace".
Možná by ti také mohlo pomoci toto téma, kde je již k tomuto diskuze...
http://wall.cz/index.php?m=topic&id=9612&page=1#posts
Jinak díky za ochotu, cením si toho.
Míra
Jinak ty komentáře potřebuju tak, že když na 1. listě vyberu po kliknutí pravým tlačítkem "oprava" :
1, vytvoří se kopie listu, která nebude obsahovat vzorce ... to již běží, tak jak má.
2, z listu oprava se z buněk ve sloupci H zkopírujou jen komentáře do prostoru pod tabulkou... toto pro obě tabulky. Dále, když kliknu opět pravým tlačítkem, vyberu smazat komentáře, komentáře pod tabulkou se promažou... slouží tam jen pro tisk.
Problémem však může být to, že potřebuji z komentáře zkopírovat vždy vše, krom 1. řádku ( tedy bez textu "kód operace".
Možná by ti také mohlo pomoci toto téma, kde je již k tomuto diskuze...
http://wall.cz/index.php?m=topic&id=9612&page=1#posts
Jinak díky za ochotu, cením si toho.
Míra
Příloha: 
9696_evidence.rar (96kB, staženo 29x)
citovat9696_evidence.rar (96kB, staženo 29x)Co myslis pod pojmem "z buněk ve sloupci H zkopírujou jen komentáře do prostoru pod tabulkou."
Jen je jednoduse zkopirovat do sloupce H pod tabulku?
Na kterem radku pod tabulkou zacit? Pridavat pritom radky?
Ta sloucena bunka s tim dlouhym prohlasenim tam taky prekazi, proc tam je? Jses autor, tak se snaz vyhybat takovym hovadinam.citovat
Jen je jednoduse zkopirovat do sloupce H pod tabulku?
Na kterem radku pod tabulkou zacit? Pridavat pritom radky?
Ta sloucena bunka s tim dlouhym prohlasenim tam taky prekazi, proc tam je? Jses autor, tak se snaz vyhybat takovym hovadinam.citovat
No, v tabulce ve sloupci H jsou komentáře, ty je třeba zkopírovat do prostoru pod tabulkou, začal bych nejlépe sloupcem A do řádků 14-18 a poté sloupec C, pak F, H a poslední J. To je celkem 25 komentářů, to by snad mělo stačit... byl bych totiž nerad, kdyby došlo k tomu, že se komentáře nakopírují do nových řádků a při tisku tabulky se mi vše nevejde na list tak aby to bylo čitelné...
Ta dlouhá hláška (hovadina) tam být musí... operátor se na vytištěný formulář podepisuje a stvrzuje tak že provedl kontrolu odborně atd... je to nustné zlo...citovat
Ta dlouhá hláška (hovadina) tam být musí... operátor se na vytištěný formulář podepisuje a stvrzuje tak že provedl kontrolu odborně atd... je to nustné zlo...citovat
U druhé tabulky by vše bylo stejně jako u té první samozřejmě, tedy řádky 32-36 do stejných sloupců..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