< návrat zpět

MS Excel


Téma: Vložení na první volnou buňku ve sloupci. rss

Zaslal/a 23.11.2022 19:21

PavelJanecNeví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.

Zaslat odpověď >

Strana:  1 2   další »
#053977
avatar
http://wall.cz/index.php?m=topic&id=26322citovat
#053978
PavelJanec
Děkuji, určitě vyzkouším. Hledal jsem tady, ale nic jsem nenašel. Díkycitovat
#053979
PavelJanec
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ů 1

Range("9:35").Copy Destination:=Range(Cells(Rows.Count, 2).End(xlUp).Row + 1 & ":" & Cells(Rows.Count, 2).End(xlUp).Row + 1 + 27)citovat
#053980
elninoslov
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. 2citovat
#053981
PavelJanec
To 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
#053982
Lugr
A co takhle vložit vzor, abychom věděli co kam chceš kopírovat.citovat
#053983
Lugr
Nevadí udělám si vzor sám. 8
Příloha: rar53983_kopirovani.rar (22kB, staženo 3x)
citovat
#053985
PavelJanec
Dě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
#053986
PavelJanec
Netušíte, proč mi nejde přiložit soubor? Zabaleno do zipu 60kb??
Příloha: 7z53986_vzor.7z (61kB, staženo 4x)
citovat
#053987
PavelJanec
To je zajímavé, teď to šlo 1citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

přečíst platbu a zapsat

PavDD • 25.11. 14:02

Zrušení podmíněného formátovní vložením do funkc

Jiří497 • 25.11. 12:56

Vložení na první volnou buňku ve sloupci.

PavelJanec • 25.11. 9:05

Vložení na první volnou buňku ve sloupci.

PavelJanec • 25.11. 8:53

Zrušení podmíněného formátovní vložením do funkc

Krifry • 25.11. 8:52

Prvních 5

Fantasyk • 25.11. 3:57

Vložení na první volnou buňku ve sloupci.

elninoslov • 25.11. 0:45