Kopírování a vkládání proměnlivých dat - excel

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

bloom
nováček
Příspěvky: 11
Registrován: březen 14
Pohlaví: Muž
Stav:
Offline

Kopírování a vkládání proměnlivých dat - excel

Příspěvekod bloom » 14 dub 2014 12:39

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

Reklama
Azuzula
Level 3
Level 3
Příspěvky: 452
Registrován: leden 12
Bydliště: Země, bohužel...
Pohlaví: Žena
Stav:
Offline
Kontakt:

Re: Kopírování a vkládání proměnlivých dat - excel

Příspěvekod Azuzula » 17 dub 2014 13:04

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.
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.

cmuch
Level 4.5
Level 4.5
Příspěvky: 1544
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

Re: Kopírování a vkládání proměnlivých dat - excel

Příspěvekod cmuch » 18 dub 2014 20:25

Tady je kousek makra jak kopírovat vyfiltrovaná data jinam.

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
  • Kopírování řádků s funkcí když Příloha(y)
    od Martyn20 » 20 črc 2023 16:50 » v Kancelářské balíky
    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
  • Excel a OneDrive
    od sginfo » 11 zář 2023 15:28 » v Kancelářské balíky
    16
    6268
    od mirekol Zobrazit poslední příspěvek
    20 říj 2023 08:31
  • Excel - vlastní formát Příloha(y)
    od Story-Long » 11 srp 2023 14:50 » v Kancelářské balíky
    3
    1981
    od Story-Long Zobrazit poslední příspěvek
    14 srp 2023 10:11

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 5 hostů