< návrat zpět

MS Excel


Téma: Kopírování sloupvů z vybrané oblasti rss

Zaslal/a 9.9.2021 7:24

Dobrý den,

potřeboval bych z vybrané oblasti kopírovat 1 a 3-6 sloupec a tyto sloupce následně vložit do druhého sešitu od pole B3.

Předem děkuji za veškeré rady.

Příloha: png51182_snimek-obrazovky-2021-09-09-072005.png (6kB, staženo 22x)
51182_snimek-obrazovky-2021-09-09-072005.png
Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#051183
avatar
Zdravím,
inspiruj se tady:
http://wall.cz/index.php?m=topic&id=5951
https://office.lasakovi.com/excel/vba-listy-sheet/kopirovani-bunek-excel-vba/citovat
#051184
avatar
Omlouvám se, pokud jsem se chybně vyjídřil.

Problém je to, že nevím jak načíst data z aktivní oblasti a říct aby červená pole překopírovala.
Příloha: png51184_snimek-obrazovky-2021-09-09-101214.png (5kB, staženo 28x)
51184_snimek-obrazovky-2021-09-09-101214.png
citovat
#051199
elninoslov
Sub Kopiruj()
Dim rngCiel As Range, rngZdroj As Range, rngOldSelection As Range

Set rngOldSelection = Selection
Set rngZdroj = Intersect(rngOldSelection, Range("A:A,C:F"))
Set rngCiel = Workbooks("Cieľový zošit.xlsx").Worksheets("Cieľ").Range("B3")

If Not rngZdroj Is Nothing Then rngZdroj.Copy rngCiel
Application.CutCopyMode = False
rngOldSelection.Select
End Sub
Příloha: zip51199_kopiruj.zip (39kB, staženo 12x)
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