< návrat zpět

MS Excel


Téma: Kopírování a vkládání proměnlivých dat rss

Zaslal/a 14.4.2014 12:38

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

Zaslat odpověď >

#018886
Opičák
Zadání jste vysvětlil alespon pro mě ne až tak jasně, ale zcela jasně vím, že univerzální makro pro kopírování není. Bez tabulky a vysvětlení co - odkud a kam asi nikdo nebude nic zkoušet. 8citovat
#018888
avatar
Tady je kousek makra jak kopírovat vyfiltrovaná data jinam.

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

List1.Range("A1:D500").SpecialCells(xlCellTypeVisible).Copy Destination:=List2.Range("A1")citovat
icon #018889
eLCHa
Tak to já se musím pochválit, protože jsem to pochopil.
Ale vytvářet si soubor nebudu, takže vytvořte ukázkový soubor se dvěma listy, v jednom budou data s filtrem a ve druhém tabulka, do které se vloží.
Dejte to sem a nebude dlouho trvat a budete to mít.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje