este ta priloha:
Příloha: 
24656_presuvanie-vybranych-riadkov-z-harku-do-harku.zip (10kB, staženo 42x)
citovat24656_presuvanie-vybranych-riadkov-z-harku-do-harku.zip (10kB, staženo 42x)
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írovanie riadkov z hárku do hárku
MS Excel
Téma: Kopírovanie riadkov z hárku do hárku 
Zaslal/a mae 27.4.2015 13:33
Ahojte,
potreboval by som poradiť..
Mám 2 hárky s údajmi - Data a Ukončené.
Údaje v hárkoch sú rozdelené do podskupín (1A, 1B, 1C, 2, 3 atď)
Potreboval by som makro ktoré po napísaní číslovky do stĺpca F (Fáza), skopíruje daný riadok z hárku Data do hárku Ukončené s tým že to nekopíruje len-tak do prvého volného riadku ale sa zachová aj daná podskupina. To znamená že ak sa bude kopírovať riadok napríklad z podskupiny 1A tak program prejde na hárok Ukončené, vloží riadok do podskupiny 1A (nakoniec podskupiny) a tam celý riadok skopíruje. Následne skopírovaný riadok v prvom sheete vymaže.
+ Zapíše do stĺpca 1-10 písmeno X (podľa toho akú číslovku na začiatku vložím, ak 10 tak zapíše X do stĺpca 10)
Viď názorná ukážka v prílohe, kopírovaný riadok som označil žltou.
Ďakujem za každú pomoc.. Mae
Prosím upresni mi ešte raz a podrobne, čo patrí ku ktorej skupine/podskupine. Mne z toho teda vôbec nieje jasné, čo je skupina a čo je podskupina.
Totiž:
-prvá je uvedená číslica (nazvime to radšej znak) "1", to evokuje, že to je skupina "1". Tá obsahuje (???) podskupiny "A", "B", "C", "D" ???, To mi ale nesedí, pretože ďalej je "2", čo by mala byť asi skupina (nie podskupina), ale tá neobsahuje žiadne podskupiny "A", "B" ... Rovnako "3".
Tak ako je to napísané mi to nedáva zmysel. Pripadá mi to nekonzistentné (rozdielne).
Ja by som si podobný problém predstavoval takto:
- mám skupiny napr. 1,2,3,...
- v každej z nich sú podskupiny A,B,C,...
Prečo je to dôležité? Lebo je logické zapísať do "Ukoncene" najskôr názov skupiny, potom podskupiny, a potom riadok s údajom (samozrejme riadok sa zoskupí s jeho podskupinou/skupinou). Kdežto teraz to v tom "Ukoncene" vyzerá tak, že raz je skupina číslo a podskupina písmeno, a potom opačne. Narážam na riadky 2,3 a 11,12 v Ukoncene.
Navyše data až na jeden riadok v Ukoncene nekorešpondujú s Data.
Navrhujem:
Vyfarbi mi prosím v Data aj Ukoncene rovnaké skupiny a podskupiny rovnakou farbou, napr. vyfarbením G v Data a Q v Ukoncene.
Keď to pochopím, tak ti to (snáď) urobím.citovat
Totiž:
-prvá je uvedená číslica (nazvime to radšej znak) "1", to evokuje, že to je skupina "1". Tá obsahuje (???) podskupiny "A", "B", "C", "D" ???, To mi ale nesedí, pretože ďalej je "2", čo by mala byť asi skupina (nie podskupina), ale tá neobsahuje žiadne podskupiny "A", "B" ... Rovnako "3".
Tak ako je to napísané mi to nedáva zmysel. Pripadá mi to nekonzistentné (rozdielne).
Ja by som si podobný problém predstavoval takto:
- mám skupiny napr. 1,2,3,...
- v každej z nich sú podskupiny A,B,C,...
Prečo je to dôležité? Lebo je logické zapísať do "Ukoncene" najskôr názov skupiny, potom podskupiny, a potom riadok s údajom (samozrejme riadok sa zoskupí s jeho podskupinou/skupinou). Kdežto teraz to v tom "Ukoncene" vyzerá tak, že raz je skupina číslo a podskupina písmeno, a potom opačne. Narážam na riadky 2,3 a 11,12 v Ukoncene.
Navyše data až na jeden riadok v Ukoncene nekorešpondujú s Data.
Navrhujem:
Vyfarbi mi prosím v Data aj Ukoncene rovnaké skupiny a podskupiny rovnakou farbou, napr. vyfarbením G v Data a Q v Ukoncene.
Keď to pochopím, tak ti to (snáď) urobím.citovat
Dik Elnino, pravdu mas.. upravil som to tak aby boli najprv skupiny, potom podskupiny. Teraz by to malo byť uz prehľadné a pochopiteľné. (viď nová príloha).
Vezmi si to potom tak že každý riadok je jeden projekt.
Logika makra bude taká že keď sa riadok/projekt v sheete Data ukončí (zapísaním číslovky do stĺpca F) - program vystrihne daný riadok z Data a prilepí ho do sheetu Ukoncene do rovnakej skupiny/podskupiny. Následne kopírovaný riadok v sheete Data zmaže (v prílohe som ho ešte nezmazal nech je vidno čo sme kopírovali kam - to je ten riadok označený žltou).
Čiže riadky v sheetoch Data a Ukoncene nemajú korešpondovať. Najprv bude v sheete Data všetko a v sheete Ukoncene nič. Až keď sa ukončí daný projekt/riadok v sheete Data - vtedy sa to presunie zo sheetu do sheetu. Čiže na konci keď sa každý projekt/riadok ukončí to bude vyzerať presne opačne tá tabuľka - do sheetu Ukoncene sa presunie všetko a v sheete Data nezostane nič. Dúfam že sa mi to podarilo vysvetliť, ak ešte niečo nejasné tak daj vedieť.. Dik!
Vezmi si to potom tak že každý riadok je jeden projekt.
Logika makra bude taká že keď sa riadok/projekt v sheete Data ukončí (zapísaním číslovky do stĺpca F) - program vystrihne daný riadok z Data a prilepí ho do sheetu Ukoncene do rovnakej skupiny/podskupiny. Následne kopírovaný riadok v sheete Data zmaže (v prílohe som ho ešte nezmazal nech je vidno čo sme kopírovali kam - to je ten riadok označený žltou).
Čiže riadky v sheetoch Data a Ukoncene nemajú korešpondovať. Najprv bude v sheete Data všetko a v sheete Ukoncene nič. Až keď sa ukončí daný projekt/riadok v sheete Data - vtedy sa to presunie zo sheetu do sheetu. Čiže na konci keď sa každý projekt/riadok ukončí to bude vyzerať presne opačne tá tabuľka - do sheetu Ukoncene sa presunie všetko a v sheete Data nezostane nič. Dúfam že sa mi to podarilo vysvetliť, ak ešte niečo nejasné tak daj vedieť.. Dik!
Příloha: 24660_presuvanie-vybranych-riadkov-z-harku-do-harku.zip (11kB, staženo 35x)
citovat24660_presuvanie-vybranych-riadkov-z-harku-do-harku.zip (11kB, staženo 35x)No vyskúšaj
Příloha: 24680_presuvanievybranychriadkovzharkudoharku.rar (23kB, staženo 67x)
citovat24680_presuvanievybranychriadkovzharkudoharku.rar (23kB, staženo 67x)Waw! keby som tomu ja raz takto rozumel.. :)
Perfektny kod, skvela praca, dikes !citovat
Perfektny kod, skvela praca, dikes !citovat
Velmi si vazim pomoc a nechcem po podanom prste schmatnut celu ruku.
Ale predsalen ak by sa v tom programe dala dorobit este jedna nazvyme to "malickost", velmi by pomohlo! (Co konkretne mam namysli som napisal do komentu programu hore do 6-10teho riadku medzi dve plne ciary. (vid v prilohe).
Chcem sa este ako laik spytat ktory prikaz v tom programe hovori ze ked vlozim cislo do bunky a dam enter tak sa spusti makro (ja som doteraz vzdy spustal makro iba cez button:)
Ale predsalen ak by sa v tom programe dala dorobit este jedna nazvyme to "malickost", velmi by pomohlo! (Co konkretne mam namysli som napisal do komentu programu hore do 6-10teho riadku medzi dve plne ciary. (vid v prilohe).
Chcem sa este ako laik spytat ktory prikaz v tom programe hovori ze ked vlozim cislo do bunky a dam enter tak sa spusti makro (ja som doteraz vzdy spustal makro iba cez button:)
Příloha: 24716_presuvanie-vybranych-riadkov-z-harku-do-harku.zip (26kB, staženo 34x)
citovat24716_presuvanie-vybranych-riadkov-z-harku-do-harku.zip (26kB, staženo 34x)Makro je spúšťané z udalosti OnChange listu Data, ktorá kontroluje všetky zmeny v liste Data, a ak došlo k zmene v danom stĺpci spustí makro. Túto OnChange metódu uvidíš, keď 2x klikneš vo VBA Editore na list Data.
Tie poznámky budem musieť dorobiť neskôr. Prečítal som to len zbežne. Momentálne ma "okupuje" syn :) Takže keď bude čas, OK.
EDIT: Formátovanie som teraz urobil na každom hárku cez Podmienené formátovanie (a to aj skupiny, aj podskupiny, aj data). Ak to tak môže byť, zmaž si vyapostrofované časti v procedúre pPresunFaza v konštrukcii With. Snáď som to dobre pochopil. Pekný deň.
EDIT2: Ešte malá zmena - odstránenie zabudnutých nepoužitých premenných a obmedzenie Fázy na číslo <43 v OnChange. Príloha vymenená za aktuálnu.
Tie poznámky budem musieť dorobiť neskôr. Prečítal som to len zbežne. Momentálne ma "okupuje" syn :) Takže keď bude čas, OK.
EDIT: Formátovanie som teraz urobil na každom hárku cez Podmienené formátovanie (a to aj skupiny, aj podskupiny, aj data). Ak to tak môže byť, zmaž si vyapostrofované časti v procedúre pPresunFaza v konštrukcii With. Snáď som to dobre pochopil. Pekný deň.
EDIT2: Ešte malá zmena - odstránenie zabudnutých nepoužitých premenných a obmedzenie Fázy na číslo <43 v OnChange. Príloha vymenená za aktuálnu.
Příloha: 24729_presuvanievybranychriadkovzharkudoharku2.rar (33kB, staženo 45x)
citovat24729_presuvanievybranychriadkovzharkudoharku2.rar (33kB, staženo 45x)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