MS Excel

Téma: presun dat+transpozice

Zaslal/a misiacik 21.8.2011 16:09

Zdravím,
potreboval by som pomoc pri tvorbe makra.

Potrebujem jednorázovo preniesť údaje z veľkého počtu zošitov (z1.xlsx, z2.xlsx,...) do riadkov jedného samostatného zošita (a0.xlsx).
V každom zošite sa hárok volá rovnako a kopíruje sa presne ten istý rozsah - B1:B12 Hárok1. T.j. B1:B12 zošitu z1 = A1:L1 v zošite a0, B1:B12 zošitu z2 = A2:L2 v zošite a0 atď.

Ďakujem.

Zaslat odpověď >

RomanNTA(22.8.2011 12:33)#005842

Sub Kopirovat_a_transponovat()

Dim SetOfSesity
Dim SesitIt
Dim Sesit As Workbook
Dim Act As Workbook

SetOfSesity = Array("1.xls", "2.xls", "3.xls", "4.xls")
Set Act = ActiveWorkbook
i = 1
For Each SesitIt In SetOfSesity
Workbooks.Open SesitIt
'Debug.Print SesitIt.Name
Range("B1:B12").Copy
Act.Activate
Range("A" & i).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
i = i + 1
Workbooks(SesitIt).Close False
Next SesitIt

End Sub
citovat

misiacik(22.8.2011 18:08)#005846

Ďakujem, funguje skvele.citovat

Uživatelské menu

Nejste přihlášen(a)

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.