http://wall.cz/index.php?m=topic&id=26322citovat
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: Vložení na první volnou buňku ve sloupci.
MS Excel
Téma: Vložení na první volnou buňku ve sloupci. 
Zaslal/a PavelJanec 23.11.2022 19:21
Nevíte někdo, jak vložit zkopírované řádky do jiného sešitu na první volný řádek ve sloupci v jiném sešitu, aby to šlo zaznamenat makrem? Zkoušel jsem z jednoho sešitu zkopírovat ony dva řádky, pak ve druhém sešitu jsem klikl na Buňku A1, pak zmáčkl ctrl+shift+šipka dolů, následně jen ctrl+ šipka dolů a nakonec jen šipka dolů a vložit, což jsem si myslel, že makro udělá vždy stejně, ale není tomu tak, makro si stejně zaznamená jen číslo buňky, do které to vloží, takže mi to vždy vloží na stejné místo, ale já to potřebuju vždy nakonec.
(23.11.2022 20:07)#053977
Děkuji, určitě vyzkouším. Hledal jsem tady, ale nic jsem nenašel. Díkycitovat
Ano funguje to, ale jedná se jeden sešit, ze kterého zkopíruje řádky 9-35 a vloží je nakonec. To je přesně to, co potřebuju, ale data mám zkopírované ve schránce z jiného otevřeného sešitu. Viz:
-------------------------------
Sub vytvor_kategorie()
'
' vytvor_kategorie Makro
'
'
Windows("original.cz.csv").Activate
Application.Left = 1976
Application.Top = 61
Rows("1:1").Select
Selection.AutoFilter
Range("D3").Select
ActiveSheet.Range("$A$1:$U$3806").AutoFilter Field:=4, Criteria1:="1"
ActiveWindow.SmallScroll Down:=-6
Range("A2:U3806").Select
Selection.Copy
Windows("kopie.cz.csv").Activate
?
?
?
?
?
?
End Sub
--------------------------------------
Nevím, jak ten kód upravit a dát ho místo těch otazníků
Range("9:35").Copy Destination:=Range(Cells(Rows.Count, 2).End(xlUp).Row + 1 & ":" & Cells(Rows.Count, 2).End(xlUp).Row + 1 + 27)citovat
-------------------------------
Sub vytvor_kategorie()
'
' vytvor_kategorie Makro
'
'
Windows("original.cz.csv").Activate
Application.Left = 1976
Application.Top = 61
Rows("1:1").Select
Selection.AutoFilter
Range("D3").Select
ActiveSheet.Range("$A$1:$U$3806").AutoFilter Field:=4, Criteria1:="1"
ActiveWindow.SmallScroll Down:=-6
Range("A2:U3806").Select
Selection.Copy
Windows("kopie.cz.csv").Activate
?
?
?
?
?
?
End Sub
--------------------------------------
Nevím, jak ten kód upravit a dát ho místo těch otazníků
Range("9:35").Copy Destination:=Range(Cells(Rows.Count, 2).End(xlUp).Row + 1 & ":" & Cells(Rows.Count, 2).End(xlUp).Row + 1 + 27)citovat
Rozhodne nemôžete použiť to na konci Vášho príspevku.
Range() ako zdroj a Range() ako cieľ je v tom istom zošite! Musíte určiť zdrojový zošit pred Range. Idem si pozrieť futbal, možno sa k Vám ešte vrátim.
citovat
Range() ako zdroj a Range() ako cieľ je v tom istom zošite! Musíte určiť zdrojový zošit pred Range. Idem si pozrieť futbal, možno sa k Vám ešte vrátim.
citovatTo já vím, dal jsem to jen jako příklad z toho postu, co posílal Anonym. Já jen nevím, jak to mám přepsat. V Pohodě Elnino, až budete mít chviličku, budete moc hodný, když mi poradíte. Nespěchá to. Děkujicitovat
53983_kopirovani.rarDěkuji Lugre za ochotu, nicméně není to přesně to, co potřebuju. Opět moje chyba zadání. Upřesním to tedy i s přílohou.
1. Mám několik .csv souborů, v tomto případě 3 a zůstaňme u toho (rozšíření na více snad už potom zvládnu). Z těch 3 .csv souborů je jeden zdrojový, viz: název v příloze "zdroj".
2. Všechny tyto soubory mají velmi podobný, až téměř stejný obsah. Liší se jen v nějakých číslech kvůli zařazení, ale to není podstatné, protože stávající obsah měnit nebudeme.
3. Podstatné je to, že pouze zdrojový má vždy o několik řádků více. Tyto řádky ale nejsou na konci sešitu, nicméně jsou dobře dohledatelné. Pokud u zdroje zafiltrujete sloupec D(expandInMenu) a zobrazíte si pouze buňky s obsahem "1", to jsou ony řádky navíc, zbytek je vždy s "0".
4. No a já bych si to představoval tak, že jsem vytvořil sešit, který bude obsahovat makro viz: název v příloze "makro".
5. Čili otevřu si všechny soubory a spuštěním makra by mělo dojít k tomu, že se do datových .csv souborů, viz: data-1, data-2. Vloží tyto dva řádky vždy nakonec, tak jako se to vkládá Vám v tom vzoru.
6. Jakmile se toto stane, potřebuji u všech takto upravených datových souborech odstranit část obsahu. Konkrétně ve sloupcích A a B vše od řádku 20 dolů, to by dalo asi odfiltrovat podle sloupce "B" (parentid), podle té "1", ta je vždy unikátní a všude stejná. Zbytek v těchto slopcích přijde odstranit (včetně těch přidaných řádků).
7. No a úplně poslední věc je ta, že potřebuju hromadně nahradit unikátní obsah ve sloupcích R a S (metatitle), ten je specifický a unikátní, takže stačí hledat v celém sešitu a nahradit, ale v každém sešitě zvlášť viz: data-1 a data-2. V těchto případech tedy v data-1 najít a nahradit "název1" za "názevXXX" a v data-2 najít a nahradit "název2" za "názevYYY".
8. To je vše a nakonec vše uložit ve stejném formátu, případně může zůstat otevřeno a uložím si to ručně, to už nevadí.
Ono to vypadá složitě, ale je to jen pár věcí, které dělám ručně u sedmi souborů, tak jsem myslel, jetli by to nešlo nějak zjednodušit. Každopdně moc děkuju a posílám přílohu.
Ještě bych poprosil, kam případně vložit data pro další soubory, je jich zpravidla vždy celkem 7 a jeden ten zdrojový, ale to snad z toho vyčtu.citovat
1. Mám několik .csv souborů, v tomto případě 3 a zůstaňme u toho (rozšíření na více snad už potom zvládnu). Z těch 3 .csv souborů je jeden zdrojový, viz: název v příloze "zdroj".
2. Všechny tyto soubory mají velmi podobný, až téměř stejný obsah. Liší se jen v nějakých číslech kvůli zařazení, ale to není podstatné, protože stávající obsah měnit nebudeme.
3. Podstatné je to, že pouze zdrojový má vždy o několik řádků více. Tyto řádky ale nejsou na konci sešitu, nicméně jsou dobře dohledatelné. Pokud u zdroje zafiltrujete sloupec D(expandInMenu) a zobrazíte si pouze buňky s obsahem "1", to jsou ony řádky navíc, zbytek je vždy s "0".
4. No a já bych si to představoval tak, že jsem vytvořil sešit, který bude obsahovat makro viz: název v příloze "makro".
5. Čili otevřu si všechny soubory a spuštěním makra by mělo dojít k tomu, že se do datových .csv souborů, viz: data-1, data-2. Vloží tyto dva řádky vždy nakonec, tak jako se to vkládá Vám v tom vzoru.
6. Jakmile se toto stane, potřebuji u všech takto upravených datových souborech odstranit část obsahu. Konkrétně ve sloupcích A a B vše od řádku 20 dolů, to by dalo asi odfiltrovat podle sloupce "B" (parentid), podle té "1", ta je vždy unikátní a všude stejná. Zbytek v těchto slopcích přijde odstranit (včetně těch přidaných řádků).
7. No a úplně poslední věc je ta, že potřebuju hromadně nahradit unikátní obsah ve sloupcích R a S (metatitle), ten je specifický a unikátní, takže stačí hledat v celém sešitu a nahradit, ale v každém sešitě zvlášť viz: data-1 a data-2. V těchto případech tedy v data-1 najít a nahradit "název1" za "názevXXX" a v data-2 najít a nahradit "název2" za "názevYYY".
8. To je vše a nakonec vše uložit ve stejném formátu, případně může zůstat otevřeno a uložím si to ručně, to už nevadí.
Ono to vypadá složitě, ale je to jen pár věcí, které dělám ručně u sedmi souborů, tak jsem myslel, jetli by to nešlo nějak zjednodušit. Každopdně moc děkuju a posílám přílohu.
Ještě bych poprosil, kam případně vložit data pro další soubory, je jich zpravidla vždy celkem 7 a jeden ten zdrojový, ale to snad z toho vyčtu.citovat
Netušíte, proč mi nejde přiložit soubor? Zabaleno do zipu 60kb??
Příloha: 
53986_vzor.7z (61kB, staženo 10x)
citovat53986_vzor.7z (61kB, staženo 10x)To je zajímavé, teď to šlo citovat
citovatUž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