Příspěvky uživatele
< návrat zpět
Pro Elninoslov.
Snažil jsem se to napsat co nejpodrobněji. Notepad++ ukazuje formát ANSI a v textech diakritika je.
To nahrazení "název1" za "názevXXX" je samozřejmě smyšlené, to bych si potom už přepsal. Můžete to nahradit čímkoliv.
Ano, soubor zdroj.csv je ten, který obsahuje ty řádky navíc a čerpá se právě z něj. Ty ostatní dva jsou potřeba editovat.
Že neobsahuje slopec D "1"? Tak to jsem asi zapomněl, tak si tam třeba do několika řádků v tom zdroji tu 1 napište. Moc děkuji!
P.S.
Jinak ještě k tomu kódování. Všechny soubory, ať ten zdrojový, nebo ty upravované jsou vyexportovány z jedné platformy, takže co se fomátu týče, jsou identické.
Pro Lugr.
Děkuji moc za ochotu. Ono to evidentně funguje, ale rozhodí mi to formát těch výsledných .csv
Prosím, prosím, alespoň mě někam nasměrujte. Když jsem to různě zkoušel, vždycky jsem narazil na špatně zformátované .csv, tak jsem v koncích.
Přidávám se, perfektní, taky to využiju.
Nejjednodušší to asi bude, když si zaznamenáte makro s tím, že si odstraníte veškerý obsah mimo A1:H12 a nakonec přidáte
-------------------------------------------------------------
ThisWorkbook.Worksheets("VYSLEDEK").Copy
With ActiveWorkbook
With .Worksheets(1)
R = .Cells(.Rows.Count, "A").End(xlUp).Row
With .UsedRange
.Copy
.PasteSpecial Paste:=xlPasteValues
.Resize(.Rows.Count - R + 1).Offset(R, 0).EntireRow.Delete Shift:=xlUp
End With
.Buttons(Array("Button 1")).Delete
End With
Application.DisplayAlerts = False
.SaveAs "C:\parta 1.xlsx", xlOpenXMLWorkbook
Application.DisplayAlerts = True
.Close False
End With
------------------------------------------------------
Jen ta cesta vede na disk C:, protože jste jí neuvedl a jestli to chcete vždy do stejné složky, ať se jmenuje, jak se jmenuje, tak to bude otázka na zkušenější. A podotýkám, že to není z mé hlavy, ale od uživatele Elninoslov, já se taky jen učím.
Ještě bych se Elnino zeptal. Co když jsou všechny zmíněné tlačítka ve skupině? Co musím v tomto změnit? Není to nijak nutné, ale dal jsem je do skupiny, aby se mi různě neposouvali ap. Když je ze skupiny odstraním, jde to perfektně.
.Buttons(Array("Button 1", "Button 2", "Button 3", "Button 4", "Button 5", "Button 6", "Button 7", "Button 8")).Delete
Děkuji Elnino, funguje přesně, jak má.
To je zajímavé, teď to šlo 
Netušíte, proč mi nejde přiložit soubor? Zabaleno do zipu 60kb??
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.
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ěkuji
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)
Děkuji, určitě vyzkouším. Hledal jsem tady, ale nic jsem nenašel. Díky
Děkuji Elnino, vyzkouším a dám vědět.
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.
Uživatelské menu
\nMenu
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.
RSS nejnovější články