Stránka 1 z 1

Excel, Makro - Změť textu do přehledné tabulky podruhé

Napsal: 17 kvě 2011 12:06
od Fefi
Ahoj, včera jsem podával dotaz zde http://www.pc-help.cz/viewtopic.php?f=35&t=67676
Dostal jsem odpověď od uživatele cmuch //tímto mu děkuji// a myslel jsem, že zbytek dodělám sám, mýlil jsem se.

Když se podíváte na DEMO soubor na list 1 (Zdrojová data)
Ve sloupci "A" je zdroj dat, který mi chodí přes email (je to výpis z formuláře)
Vedle je řešení z minulého tématu: označené pole do kterého když vložím všechna data a stisknu tlačítko objeví se hezky uspořádané v listu 2 (Vložené údaje).

Já bych potřeboval aby se na údaje ve sloupci "A" ještě aplikovala funkce =část(;;) a zároveň se v jednom kroku uspořádali rovnou do listu 2.
Pod zdrojovými daty jsou pod sebou čísla, která značí první písmeno textu pro funkci =část. Počet znaků nechte pro jistotu 100

Např. "Druh zvířátka ........... morče" - =část(A2;27;100) a přesun do listu 2(vložené údaje) na patřičnou pozici.
Takže nakonec to bude vypadat tak, že do prvního listu vložím jen údaje a ty se po stisku klávesové zkratky, případně tlačítka, rovnou objeví v osekané podobě v listu dva, tak kam patří.

Děkuju moc za další pomoc.

Re: Excel, Makro - Změť textu do přehledné tabulky podruhé

Napsal: 17 kvě 2011 17:27
od cmuch
Ahoj,
tak jsem to poupravil.

Re: Excel, Makro - Změť textu do přehledné tabulky podruhé

Napsal: 17 kvě 2011 23:31
od Fefi
Ahoj, je to paráda, děkuju, teď už jsem z toho udělal přesně to co potřebuju.
Ještě jedna prosba. Dá se v nějakým kroku udělat aby to převedlo řetězec na číslo, abych s tím mohl dále pracovat a nemusel to dělat ručně? Konkrétně třeba u toho počtu zvířat. Nějakej str to int?
Nevím jak se to dělá v excelu.
Děkuju

Re: Excel, Makro - Změť textu do přehledné tabulky podruhé  Vyřešeno

Napsal: 18 kvě 2011 04:26
od mike007
Takto by to mělo stačit:

Kód: Vybrat vše

Cells(radek, "C") = Int(Sheets(1).Range("D3"))

Re: Excel, Makro - Změť textu do přehledné tabulky podruhé

Napsal: 18 kvě 2011 23:44
od Fefi
Jo, přesně to jsem potřeboval, díky.