PC-HELP.CZ

Dobrý den všem,

mám na vás prosbičku ohledně makra na dokopírování hodnot. Zadání je jednoduché, viz příloha. Mám sloupec o několika řádcích a potřebuji vždy dokopírovat název předmětu do poslední buňky a před mezerou a po další mezeře opět. V příloze je vidno.

Děkuji.


Základ:

Sub Makro1()
'metoda Select (vyber) aktualni oblast
Selection.CurrentRegion.Select
'metoda Select (vyber) specielni bunky (prazdne)
Selection.SpecialCells(xlCellTypeBlanks).Select
'nastavit vlastnost FormulaR1C1 na vzorec (je v uvozovkach)
Selection.FormulaR1C1 = "=R[-1]C"
'metoda Select (vyber) aktualni oblast
Selection.CurrentRegion.Select
'zbytek makra je popsan v makru KonverzeNaHodnotu
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

Zdravím,
co třeba takto?

Koukám, že si založil nové téma, proč?
Už tu jedno máš http://www.pc-help.cz/viewtopic.php?f=35&t=101576

Koukám, že už Mirdad69 něco navrh.

Ano, je to stejné téma, bohužel předchozí bylo off, bez zájmu. Přesunout topic nelze, proto jsem ho musel znova založit a jak je vidět, hned se Mirdad69 chytil, za což mu děkuji.

Makro funguje 100%, děkuji ještě jednou.

Příště stačí dát odpovědět a připomenout se.
Nemusí se zakládat nové téma.

Jinak si uzamkni obě témata pokud jsou splněny tvoje požadavky a nemáš již žádné otázky.

Ne každý je tady každý den