Kopírování a vkládání proměnlivých dat - excel
Kopírování a vkládání proměnlivých dat - excel
Ahoj, potřeboval bych vytvořit makro, které by kopírovalo vyfiltrovaná data do jiné tabulky. Problém je v tom, že se jedná o proměnlivá data a každý měsíc se jich vyfiltruje jiný počet. Potřeboval bych, aby makro kopírovalo proměnlivý počet dat v daném měsíci a kopírovaná data vložilo doprostřed jiné tabulky, ve které se přidá příslušný počet prádzných řádků odpovídající počtu kopírovaných dat. S filtrem nemám problém, jen s tím speciálním kopírováním a (především) vkládáním. Doufám, že jsem zadání vysvětlil jasně. :) Mnohokrát děkuji za jakoukoliv pomoc. Bloom
-
- Level 3
- Příspěvky: 452
- Registrován: leden 12
- Bydliště: Země, bohužel...
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Kopírování a vkládání proměnlivých dat - excel
Ahoj, hodil by se nějaký příklad jak si to představuješ (co, kam a jak kopírovat) ať je na čem stavět, takhle z ničeho ti těžko někdo napíše makro.
Pak se toho už může někdo chytit.
Pak se toho už může někdo chytit.
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Kopírování a vkládání proměnlivých dat - excel
Tady je kousek makra jak kopírovat vyfiltrovaná data jinam.
nebo
Stačí nastavit oblast tabulky a kam se má kopírovat.
Kód: Vybrat vše
Dim My_range As Range
Set My_range = Sheets(1).Range("A1:D100")
My_range.Parent.AutoFilter.Range.Copy
Sheets(2).Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
nebo
Kód: Vybrat vše
List1.Range("A1:D500").SpecialCells(xlCellTypeVisible).Copy Destination:=List2.Range("A1")
Stačí nastavit oblast tabulky a kam se má kopírovat.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 3
- 1922
-
od Melvidor
Zobrazit poslední příspěvek
21 črc 2023 08:41
-
-
Obnoveni ztracenych fotek z telefonu pri kopirovani do pc
od Dizzy66 » 21 led 2024 17:08 » v Vše ostatní (sw) - 2
- 1127
-
od šulda
Zobrazit poslední příspěvek
23 úno 2024 07:12
-
-
-
Libre Office Calc - Divné chování při kopírování textu Příloha(y)
od EZumrova » 02 dub 2024 08:12 » v Kancelářské balíky - 14
- 2011
-
od kecalek
Zobrazit poslední příspěvek
05 dub 2024 19:11
-
-
- 16
- 6268
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
- 3
- 1981
-
od Story-Long
Zobrazit poslední příspěvek
14 srp 2023 10:11
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 5 hostů