excel - kopirovani casti bunky

funkcemi by se bod 2 dal řešit např tak, jako v příloze. Nevím, nakolik by poště vadilo, že bude jméno čtvrti napsané v adrese před PSČ. Nemuselo by to vadit.Ale i to by se dalo ošetřit (spočítat počet čárek a chytat se jen za poslední), záleží, kolik takových případů je a jestli by nebylo rychlejší to proletět a zkorigovat.

teda chlapi, jste dobry to reseni - ikona : text do sloupcu - neznam. hanba me fackuje! a to druhe reseni s tim vzoreckem - na to nestacim kazdopadne diky moc!! oboji je super

jen, jeste to trochu zkomplikuju. kdyz ste vyresili tohle, treba mi pomuzete jeste s timkle.

jedna se o to, ze se muze stat a taky se to stava, ze v jedne bunce je tech jmen nekolik. dam sem priklad:

bunka A1 vypada takhle:

Barchánek Pett, Jarní 270/40, Střížkov, 19000 Praha
Barchánek Pavel, Letní 49, Letňany, 19900 Praha 9
Kynzl Alois, Ke stadionu 99, 25267 Tuchoměřice
Kynzl Zdeněk, Pod jezem 13, 25267 Tuchoměřice

maximum jsou 4 jmena s adresama v jedne bunce s tim, ze vzdy je to v te bunce pod sebou, ale v jedne bunce. kdyz zkusim pouzit "text do sloupcu" tak mi to oddeli jen prvni jmeno a ta tri dalsi se nepouziji. slo by i tohle nejak osetrit?

jeste dodam, ze ve vetsine pripadu je v jedne bunce jedno jmeno, nekdy 2, nekdy 3 a nekdy 4. distribuce je nahodna.

Kolik je takovýchto případů? Do 100 bych to asi řešil ručně. V případě 4 údajů v jedné buňce bych pod buňku vložil 3 řádky a do nich vyjmul 3x údaje z buňky A1 (Ctrl X Ctrl V) a pak použil volbu "Text do sloupců". Ručním úpravám se stejně nevyhneš, pokud chceš mít stejné údaje ve stejném sloupci.

asi jo.. asi to tak udelam.. tech pripadu bude celkem tak tretina, ale co mi zbyva.. ikdyz by bylo fajn to mit zvladnute nerucne, protoze bohuzel data dostavam v tehle podobe a nejde s tim nic delat. vzdy dostanu v jedne bunce cekolik jmen a vzdy si s tim tedy budu muset hrat. kdyby vas neco napadlo na zautomatizovani, bylo by to super!

Tohle makro rozhází obsah zalomené buňky do jednotlivých řádků.
Neříkám, že to nejde napsat i efektivnějc, ale nechtělo se mi moc přemýšlet takhle brzo ráno.

tohle makro to zvladlo dobre diky! mimochodem, docela by me zajimalo, jak evektivnejc by to slo!

No myslím, že jestlis to pustil na excel s tisíci řádky, tak to pár minut muselo chroustat.

Základní zefektivnění by bylo v přidání Application.ScreenUpdating=False na začátek (před DO) a Application.ScreenUpdating=True na konec (před End Sub). Tím bys vypnul grafický výstup, makro by nemuselo nic vykreslovat - vykreslování zabere nejvíc času. Na druhou stranu bys neviděl, že "to něco dělá". Prostě by Excel na chvíli jakoby zamrznul a pak vyhodil výsledek naráz.

pak je tam taky spousta řádků Activecell.offset, kdy následně pracuji s hodnotou té buňky. To se dá napsat i efektivněji (nemusíš se napřed na tu buňku přepnout, abys pracoval s její hodnotou, můžeš se na ni odkazovat rovnou). Jenomže mně se to takto líp debuguje.

Dalo by se laborovat i s odstraněním DoEvents. Ten příkaz dovoluje počítači věnovat se i ostatním aktivitám mimo to Excel makro. U krátkých maker není potřeba, dlouhá makra bez něj tuhnou. Dost to celé makro zpomaluje ale je to stabilní.

jak evektivnejc by to slo

Sub MakeLines()
    Dim aCell As Range
    Dim aValues() As String
    Dim aBound As Integer
    
    Application.ScreenUpdating = False
    Set aCell = Range("A1")
    Do While aCell <> ""
        aValues = Split(aCell, Chr(10))
        aBound = UBound(aValues)
        If aBound > 0 Then
            aCell.EntireRow.Resize(aBound).Insert
            aCell.Offset(-aBound).Resize(aBound + 1) = WorksheetFunction.Transpose(aValues)
        End If
        Set aCell = aCell.Offset(1)
    Loop
    Application.ScreenUpdating = True
End Sub

do techhle veci jsem bohuzel nikdy neproniknul. co ted napisu, je nejspis uplna hloupost, ale dokazal bych udelat takovehle makro "zaznamem makra"? nebo se tohle da jen a pouze napsat jako kod?

Dá sa to len napísať ručne, cez záznam makra by takýto kód nikdy nevznikol. Napísať kód efektívnejšie ako to, čo vznikne záznamom makra, nie je nič zložité. Záznam makra som síce nikdy nepoužil, ale z môjho laického pohľadu sa mi to zdá ako zdĺhavý a neefektívny spôsob vytvárania makier.

Ad 1) - vlastní klávesovou zkratku si můžeš udělat jedině pro makro, ne pro vestavěné funkce Excelu.
Doporučuji ikonu "Vložit jinak" vytáhnout na pás Rychlý přístup (a nejen ji - momentálně tam má asi 25 ikon). Pak to máš rozhodně rychlejší, než kliknout na šipečku u Vložit, z menu vybrat Vložit jinak, atd... Nemluvě o tom, že ikonu v tom pásu rychlého přístupu máš dostupnou ať seš v pásu karet na libovolný záložce.

no, ja radsi pouzivam klavesnici. mam pas karet schovany a co jen trochu jde, pouzivam klavesove zkratky. napriklad tady pouziju klavesu "prave tlacitko mysi" mezi AltGr a pravym Ctrl. a tam mam nabidku vlozit jinak - pro me je to rychlejsi a intuitivnejsi nez pas karet.

dá sa na klávesovú skratku nadefinovať priamo makro vložiť hodnoty. V 2003 sa dala do panela nástrojov vložiť ikona s vlastne nadefinovaným makrom, takže by nebola potrebná klávesová skratka ale v 2007 a 2010 sa to do ribbonov pridať asi nedá ale je tam v záhlaví pás vybraných nástrojov, tam by to možno šlo tiež dať ako ikonu. Ale pokiaľ je prednosť dávaná klávesovej skratke, tak toto nie je potrebné riešiť... Najrýchlejšie je jej prideliť makro na priame vkladanie hodnôt

čo sa týka tých viacerých mien v jednej bunke, bolo by dobré vedieť, či to tam tvorca vložil amatérsky (medzerami) alebo profesionálne (Alt+Enter) Pokiaľ "profesionálne, dá sa napísať jednoduché makro, ktoré vyhľadá zalamovacie znaky a najprv rozloží bunku na jednotlivé riadky, tie sa potom dajú rezať oddeľovačmi (či už funkciou, prevodom "text na stĺpce" alebo makrom).

chlapi, vyresili ste mi docela velkej problem a usnadnili mi spoustu rucni prace

diky, diky, diky!!

ted uz si s tim muzu dal nejak hrat, ale to gro, co jsem potreboval, to uz mam a ted uz budu jen spoustet makro a pak rozdelovat text do sloupcu

jeste jednou diky a preju pekny vikend!!