< 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 11x)
51182_snimek-obrazovky-2021-09-09-072005.png
Zaslat odpověď >

#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 19x)
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 3x)
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

Kumulace listů do jednoho listu

Lugr • 28.9. 11:24

Kumulace listů do jednoho listu

veny • 27.9. 11:23

skenovani a vyhledavani a oznaceni v tabulce

elninoslov • 24.9. 23:11

Kumulace listů do jednoho listu

MonikaV • 24.9. 17:18

skenovani a vyhledavani a oznaceni v tabulce

djph • 24.9. 13:44

Sečíst sloupec od 4 řádku

madar5 • 23.9. 8:32

Ověření dat

lubo • 22.9. 11:25