< 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 10x)
Zaslat odpověď >

#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 III

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

Aktivní diskuse

COUNTIF funkce

MilaF • 5.8. 16:49

COUNTIF funkce

elninoslov • 5.8. 15:50

COUNTIF funkce

MilaF • 5.8. 14:28

Převod desetiného čísla na hodiny a minuty

eLCHa • 5.8. 14:23

Windows10 problém s makrem

marjankaj • 5.8. 14:13

Windows10 problém s makrem

AlesD6 • 5.8. 14:01

Převod desetiného čísla na hodiny a minuty

marjankaj • 5.8. 13:49