| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Prevent cell/array references from changing when altering/moving thecell/array | Excel Discussion (Misc queries) | |||
| Populate an array that is a subset of a larger array? | Excel Worksheet Functions | |||
| Array: Counting multiple values within array | Excel Worksheet Functions | |||
| meaning of : IF(Switch; Average(array A, array B); array A) | Excel Worksheet Functions | |||
| combining cells and array from different sheets into an array to pass to IRR() | Excel Discussion (Misc queries) | |||
Linear Mode
