< 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 8x)
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

ActiveX - prvek ComboBox

elninoslov • 20.1. 13:47

Výpočet data narození

marjankaj • 20.1. 13:10

Výpočet data narození

lubo • 20.1. 13:01

Výpočet data narození

marjankaj • 20.1. 12:33

Výpočet data narození

Anonym • 20.1. 12:30

Výpočet data narození

marjankaj • 20.1. 11:45

Výpočet data narození

Anonym • 20.1. 11:40