N
NPell
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
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