• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Děkuji, děkuji moc. To je úplně přesně ono, co jsem potřebovala.

Ještě jsem si upravila Offset(0, 2) na (0, 1), aby byl výsledek hned ve vedlejším políčku (sloupec D).
Mám z toho opravdu radost.

Je to přesně tak, jak píšete:
sloupec C (s komentářem) tučně jako nadpis + text ze sloupce D (vygenerovaný komentář) = sloupec E (výsledek)

Jinak už jsem si stáhla nějaké příručky a chci se naučit tvořit makra. Začínám úplně od začátku.

Děkuji, to je přesně ono.

Mám ještě poslední prosbu, šlo by toto makro upravit, aby se nechalo použít pro celý sloupec najednou. Teď se i při výběru více buněk ve sloupci převede pouze první buňka.

Děkuji, to je to, co jsem potřebovala.

Pořád se snažím udělat druhé makro, ale nedaří se druhá část, kdy potřebuji sloučený obsah buněk převést ze vzorečku na text a první řádku (RC(-2)nadpis) udělat tučně. Opět najednou ve vybraných buňkách sloupce.
Moc prosím ještě o pomoc.

Sub Makro5()
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-2],CHAR(10),RC[-1])"
Dim cell As Range
Selection.Copy
Range("RC[+1]").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("RC[+1)").Select
End Sub

Sub Makro6()
'
Selection.Copy
Range("F20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("F21").Select
End Sub

Děkuji, už to funguje.

Ještě bych potřebovala poradit, jestli by bylo možné toto makro použít u celého sloupce najednou (vybrané buňky ve sloupci). Mám několik listů a na každém třeba 200 řádek, které takto potřebuji zobrazit.

Pak už není problém přes CONCATENATE sloučit původní text s vygenerovaným textem z komentáře a popřípadě v další buňce přes "Úpravy-Vložit jinak-hodnoty" text upravit. Mám představu, že původní text (buňka A) by byl tučně jako nadpis a komentář obyčejně.
Zkusím na toto formátování udělat také makro.

Děkuji za radu, ale jsem úplný začátečník. Napsala jsem

Sub Vloz_komentar()
'ActiveCell = ActiveCell.Offset(0, -1).Comment.Text
End Sub

a pak
Sub Vloz_komentar()
'ActiveCell = ActiveCell.Offset(0, -1).Comment.Text
Debug.Print ActiveCell
End Sub

ale makro buď vykazuje chybu nebo nepracuje
This command will stop the deguger.

Moc prosím, jak by to mělo být správně?

Dobrý den, potřebovala bych poradit, jak dostat text z komentáře jedné buňky do buňky vedle ní jako normální text. Děkuji.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje