MS Excel

Téma: Makro - kopie řádků z listů

Zaslal/a ELcaTomas 7.1.2016 16:02

Zdravím,
potřeboval bych malou radu. Mám kód pro makro:

Sub kopiruj()
Dim ws1 As Worksheet: Set ws1 = Sheets("List2")
Dim ws2 As Worksheet: Set ws2 = Sheets("List1")

Dim LR As Long, i As Long, cols As Variant, MyArray() As Variant
cols = Array("A", "B", "C", "D")
With ws1
'poslední řádek
LR = .Range("A4:A" & .Range("A" & Rows.Count).End(xlUp).Row).Find("*", , xlValues, xlWhole, , xlPrevious).Row
For i = LBound(cols) To UBound(cols)
ReDim Preserve MyArray(0 To i)
MyArray(i) = .Cells(LR, cols(i))
Next i
End With

ws2.Range("A" & Rows.Count).End(3)(2).Resize(1, UBound(MyArray) + 1).Value = MyArray

End Sub

který nedělá nic jiného než, že zkopíruje z listu2 poslední řádky prvních 4 sloupců.

Potřeboval bych tento kód rozšířit i třeba na list3 (kopírování z listu3). Bohužel jsem nějak zaseknutý... Děkuji za pomoc. Ano, kód jsem nepsal samo. Díky

Zaslat odpověď >

elninoslov(8.1.2016 9:11)#029105

To Vaše makro mi príde zložité.
kopiruj2 - posledný riadok jedného listu
kopiruj3 - posledné riadky listov v poli

Za posledný riadok sa považuje posledný riadok v stĺpci A.

Příloha: rar

29105_kopiruj.rar (21kB, staženo 11x)

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.