|
Array
Hello,
I had some VBA code that i have tried to condense into an Array but with no success, can anyone help? BEFORE.... Sheets("Summary").Select Sheets("Tab1").Rows("2:100").Copy lastrow = Sheets("Summary").Range("A65000").End(xlUp).Row Sheets("Summary").Range("A" & lastrow + 1).PasteSpecial Application.CutCopyMode = False Sheets("Tab2").Rows("2:100").Copy lastrow = Sheets("Summary").Range("A65000").End(xlUp).Row Sheets("Summary").Range("A" & lastrow + 1).PasteSpecial Application.CutCopyMode = False Sheets("Summary").Select AFTER... Sheets("Summary").Select For Each Sheet In Array("Tab1", "Tab2") Rows("2:100").Copy lastrow = Sheets("Summary").Range("A65000").End(xlUp).Row Sheets("Summary").Range("A" & lastrow + 1).PasteSpecial Application.CutCopyMode = False Next Sheet Sheets("Summary").Select It just doesnt work? Can anyone spot my error(s) ?? Thanks |
Array
Hi,
Try this Sub after() Dim sh As Worksheet For Each sh In Worksheets(Array("Tab1", "Tab2")) sh.Rows("2:100").Copy lastrow = Sheets("Summary").Cells(Rows.Count, "A").End(xlUp).Row Sheets("Summary").Range("A" & lastrow + 1).PasteSpecial Application.CutCopyMode = False Next sh End Sub Mike "NPell" wrote: Hello, I had some VBA code that i have tried to condense into an Array but with no success, can anyone help? BEFORE.... Sheets("Summary").Select Sheets("Tab1").Rows("2:100").Copy lastrow = Sheets("Summary").Range("A65000").End(xlUp).Row Sheets("Summary").Range("A" & lastrow + 1).PasteSpecial Application.CutCopyMode = False Sheets("Tab2").Rows("2:100").Copy lastrow = Sheets("Summary").Range("A65000").End(xlUp).Row Sheets("Summary").Range("A" & lastrow + 1).PasteSpecial Application.CutCopyMode = False Sheets("Summary").Select AFTER... Sheets("Summary").Select For Each Sheet In Array("Tab1", "Tab2") Rows("2:100").Copy lastrow = Sheets("Summary").Range("A65000").End(xlUp).Row Sheets("Summary").Range("A" & lastrow + 1).PasteSpecial Application.CutCopyMode = False Next Sheet Sheets("Summary").Select It just doesnt work? Can anyone spot my error(s) ?? Thanks |
| All times are GMT +1. The time now is 04:47 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com