< návrat zpět

MS Excel


Téma: VBA_posun-řádek-sloupec rss

Zaslal/a 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: zip44126_posun_radek_sloupec.zip (14kB, staženo 20x)
Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#044128
elninoslov
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 Sub
citovat
#044140
avatar
Zdravím,mockrát děkuji,excelentní řešení.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09