< 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 13x)
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 20x)
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 4x)
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

email z excelu do outlooku

Anonym • 8.12. 17:47

Cells(1, 1).Value = Application.Evaluate COUNTIF

PavDD • 8.12. 13:03

email z excelu do outlooku

PavDD • 8.12. 12:29

email z excelu do outlooku

PavDD • 8.12. 12:26

Stavy měřidel a protokol

Scraper • 8.12. 12:16

Stavy měřidel a protokol

elninoslov • 7.12. 16:15

Stavy měřidel a protokol

Stana-V • 7.12. 11:53