Excel - makro na nový řádek Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

birgis
nováček
Příspěvky: 36
Registrován: březen 11
Pohlaví: Muž
Stav:
Offline

Excel - makro na nový řádek

Příspěvekod birgis » 03 dub 2014 23:18

Ahoj,
mám moc velkou prosbu na velkou pomoc s vytvořením makra.

Mám list "Input" a list "Text". Do listu Input!A1 vložím dlouhý několika řádkový text (maximálně 100 řádků), poté označím buňku Text!A1

Potřeboval bych aby makro prošlo postupně řádky, spočítalo délku řádku a pokud bude nad 80, tak aby našlo poslední mezeru před 80znakem a vložilo tam nový řádek, se zbytkem věty udělalo totéž. Pokud je věta kratší, nebo pokud je prázdný řádek, tak aby makro zkopírovalo to, co je.

Jde mi o to, aby se dlouhé věty rozdělili v mezeře do buňky B1, případně C1 atd... a aby začal s vkládáním do označené buňky.
Nestačí jen zalomení řádku v buňce.

Najde se někdo kdo pomůže makrovému skoro analfabetovi?

Moc díky

Reklama
cmuch
Level 4.5
Level 4.5
Příspěvky: 1544
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

Re: Excel - makro na nový řádek  Vyřešeno

Příspěvekod cmuch » 09 dub 2014 06:19

Ahoj, o něco jsem se pokusil.
Vyzkoušej a uvidíš.

Makro projde celý sloupec A na listu Input a text rozdělí do listu Text od označeného řádku a sloupce A .
Přílohy
RozdelTextBunky.xlsm
(16.38 KiB) Staženo 44 x

birgis
nováček
Příspěvky: 36
Registrován: březen 11
Pohlaví: Muž
Stav:
Offline

Re: Excel - makro na nový řádek

Příspěvekod birgis » 09 dub 2014 18:30

SUPER, přesně tohle. A jak jsem se díval, to bych nedal dohromady ani náhodou...

Moc díky za pomoc podruhé - už máš u mě druhýho panáka:)


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Makro pro myš Rapture Python
    od mmmartin » 27 srp 2023 15:18 » v Problémy s hardwarem
    9
    1126
    od mmmartin Zobrazit poslední příspěvek
    29 srp 2023 16:47
  • Nový poskytovatel internetu - nový modem
    od HarryS21 » 28 bře 2024 19:07 » v Sítě - hardware
    4
    1200
    od HarryS21 Zobrazit poslední příspěvek
    29 bře 2024 19:48
  • Excel a OneDrive
    od sginfo » 11 zář 2023 15:28 » v Kancelářské balíky
    16
    6325
    od mirekol Zobrazit poslední příspěvek
    20 říj 2023 08:31
  • Excel - problém se vzorci
    od honzzicek » 28 čer 2023 21:45 » v Kancelářské balíky
    2
    1833
    od honzzicek Zobrazit poslední příspěvek
    01 črc 2023 08:57
  • Excel - funkce když
    od Martyn20 » 13 črc 2023 11:56 » v Kancelářské balíky
    5
    2576
    od mmmartin Zobrazit poslední příspěvek
    13 črc 2023 18:44

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: elninoslov a 8 hostů