MS Excel

Téma: VBA_posun-řádek-sloupec

Zaslal/a jnkopr 3.9.2019 14:36

Dobrý den, prosím vás o nakopnutí, jak vyřeším toto zadání. Potřebuji z jednoho sloupce přesunout/zkopírovat vybrané hodnoty v řádcích do jiného sloupce a ještě o řádek níže. Pro názornost přikládám příklad. Velice děkuji za pomoc.

Příloha: zip

44126_posun_radek_sloupec.zip (14kB, staženo 21x)

Zaslat odpověď >

elninoslov(3.9.2019 15:46)#044128

Sub posun_radek_sloupec()
Dim RNG As Range, Bunka As Range, Pocet As Long

Application.ScreenUpdating = False

For Each Bunka In Columns("D:D").SpecialCells(xlCellTypeBlanks).Offset(0, -1).Cells
Bunka.Copy Bunka.Offset(-Pocet, -1)
Pocet = Pocet + 1
If Pocet = 1 Then Set RNG = Bunka.Resize(, 2) Else Set RNG = Union(RNG, Bunka.Resize(, 2))
Next Bunka

RNG.Delete Shift:=xlShiftUp

Application.ScreenUpdating = True
End Subcitovat

jnkopr(4.9.2019 7:35)#044140

Zdravím,mockrát děkuji,excelentní řešení.citovat

Uživatelské menu

Nejste přihlášen(a)

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.