Kopírování buněk

[Daiqon]

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

[Mirdad69]

Zdravím,
co třeba takto?

Kód: Vybrat vše

Sub Makro2()

L_Rw = Range("B65000").End(xlUp).Row

For I = 6 To L_Rw
    If Cells(I, 2) <> "" Then
        Cells(I, 4) = Cells(I - 1, 4)
    End If
Next I
End Sub

[cmuch]

Koukám, že si založil nové téma, proč?
Už tu jedno máš viewtopic.php?f=35&t=101576

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

[Daiqon]

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.

[cmuch]

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