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

Předmět	Autor	Datum
Vyfiltruju si data zapnu zaznam makra zkopiruju data prepnu se do druhe tabulky skocim na konec vloz… Jan Fiala 14.04.2014 13:03	Jan Fiala	14.04.2014 13:03
Zřejmě si nevíš rady s tou proměnlivostí počtu, že? Potřebuješ zjistit první volnou buňku ve sloupci… MachR55 14.04.2014 13:13	MachR55	14.04.2014 13:13
Díky za odpovědi. Já nemám problém s tím kopírováním, ale spíš s vkládáním buněk do existující tabul… bloom 14.04.2014 18:21	bloom	14.04.2014 18:21
Pokud víš, od kterého řádku začít a kolik řádků máš vkládat, tak už je to malina: ' Radek - proměnn… poslední Zdenál 14.04.2014 19:25	Zdenál	14.04.2014 19:25

Vyfiltruju si data
zapnu zaznam makra
zkopiruju data
prepnu se do druhe tabulky
skocim na konec
vlozim data
seradim tabulku tak, abych mel data jak potrebuju
prepnu se zpet
ukoncim zaznam makra

Zřejmě si nevíš rady s tou proměnlivostí počtu, že?
Potřebuješ zjistit první volnou buňku ve sloupci atd. - zde určitě najdeš inspiraci.

Díky za odpovědi. Já nemám problém s tím kopírováním, ale spíš s vkládáním buněk do existující tabulky, tak aby se do ní vložil konkrétní počet buněk, tak jak já potřebuji v daném měsíci. Zkusím něco podle daného odkazu. :)

Pokud víš, od kterého řádku začít a kolik řádků máš vkládat, tak už je to malina:

' Radek - proměnná s číslem řádku, od něhož potřebuješ vložit řádky
' PocVloz - proměnná s počtem vkládaných řádků
' Vyraz - pomocný výraz pro příkaz Rows
Vyraz = Trim(Str(Radek)) + ":" + Trim(Str(PocVloz + Radek - 1))
Rows(Vyraz).Insert Shift:=xlDown

Zpět do poradny Odpovědět na původní otázku Nahoru