prilož prílohucitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Dosazení textu na první prázdné místo v řádku
Vývojar-visual basic-insert modul-skopírovať tam to makrocitovat
Keď označí celý prvý stĺpec a aplikuje makro tak sa text vloží aj tam, kde nie je bunka vyplnená.
Ak označí len určitý rozsah, tak to funguje ok.
Priložený súbor s makrom od Marjankaja
MS Excel
Téma: Dosazení textu na první prázdné místo v řádku 
Zaslal/a 6.10.2021 12:47
Všechny vás zdravím, měl bych prosbu. V excelu moc neumím a potřeboval bych nějak jednoduše hromadně dosadit určitý text na první prázdnou buňku každého řádku. Doposud to dělám tak, že postupně vybírám první prázdné místo ručně a do toho výběru pak vložím text. Určitě je i jednodušší řešení, poradíte mi prosím? Moc děkuji za ochotu
Snad to bude pro pochopení stačit.citovat
51295_snap.jpg
a víte o tom že excel má 1 048 576 řádků? 
to chcete doplnit všechny?
myslím že to bude chtít být trochu konkrétnějšícitovat
to chcete doplnit všechny?myslím že to bude chtít být trochu konkrétnějšícitovat
Jedná se mi pouze o vyplněné řádky, řekněme třeba 2000 řádků a možná jsem to napsal i blbě. Jde mi o doplnění první prázdné buňky za již vyplněnýma, tak jak je to na tom obrázku.citovat
Skús toto makro
Sub PridejText()
For Each c In Selection
c.Activate
ActiveCell.FormulaR1C1 = "vkládaný text "
Next c
End Sub
Funguje tak, že do pozície úvodzoviek "vkladaný text", dáš text, ktorý chceš vložiť, označíš bunky, kde chceš ho vložiť a aplikuješ makro.citovat
Sub PridejText()
For Each c In Selection
c.Activate
ActiveCell.FormulaR1C1 = "vkládaný text "
Next c
End Sub
Funguje tak, že do pozície úvodzoviek "vkladaný text", dáš text, ktorý chceš vložiť, označíš bunky, kde chceš ho vložiť a aplikuješ makro.citovat
Díky za radu, ale nevím, jestli si mě pochopil, nic označovat nechci, to dělám teď. Když už označovat, tak celé sloupce a ne jednotlivé buňky. Navíc ani to makro asi neumím vložit, vývojáře mám zaplého, ale co dál?citovat
Tak jestli je to jednorázová akce a nejsou tam v tom vzorce, tak bych to udělal: do pom.sloupce vzadu sloučit Concatenate sloupce, do počtu nejvyššího, mezi si dát oddělovač např. #, nakonec připojit text a pak výsledek rozdělit text do sloupců s tím oddělovačem. Netestoval jsem, ale mohlo by to fungovat. Vzorce samozřejmě roztáhnout na potřebný počet řádků.
EDIT: tak pardon, bylo by to složitější, vytvořený sloupec přeuložit "jako hodnotu" a před rozdělením do sloupců v oblasti nahradit např. ### nebo ## za jeden rozdělovač #. Ale pro 2000 řádků i to se vyplatícitovat
EDIT: tak pardon, bylo by to složitější, vytvořený sloupec přeuložit "jako hodnotu" a před rozdělením do sloupců v oblasti nahradit např. ### nebo ## za jeden rozdělovač #. Ale pro 2000 řádků i to se vyplatícitovat
PavelJanec napsal/a:
Díky za radu, ale nevím, jestli si mě pochopil, nic označovat nechci, to dělám teď. Když už označovat, tak celé sloupce a ne jednotlivé buňky. Navíc ani to makro asi neumím vložit, vývojáře mám zaplého, ale co dál?
Vývojar-visual basic-insert modul-skopírovať tam to makrocitovat
Predpokladám, že označíš prvý stlpec.
Sub Makro1()
For Each bunka In Selection
bunka.Offset(, 1000).End(xlToLeft).Offset(, 1) = "tvoj text"
Next bunka
End Subcitovat
Sub Makro1()
For Each bunka In Selection
bunka.Offset(, 1000).End(xlToLeft).Offset(, 1) = "tvoj text"
Next bunka
End Subcitovat
marjankaj napsal/a:
Predpokladám, že označíš prvý stlpec.
Keď označí celý prvý stĺpec a aplikuje makro tak sa text vloží aj tam, kde nie je bunka vyplnená.
Ak označí len určitý rozsah, tak to funguje ok.
Priložený súbor s makrom od Marjankaja
Příloha: 
51308_prva-prazdna-bunka.zip (15kB, staženo 12x)
citovat51308_prva-prazdna-bunka.zip (15kB, staženo 12x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články