Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy a row down a column for the same number of rows of data in another workshee
I am importing a file that varies in length from month to month into
Worksheet1. In worksheet2, I need to copy the formulas in Row A10 down the same number of rows in Worksheet1. I do not want a formula in Worksheet 2 referencing a empty row in Worksheet1. If there are 100 rows of data in Worksheet1 then I want copy the formula in 100 rows in Worksheet2 This is the code I have been playing with Sub CopyRow() ' ' CopyRow Macro ' Macro recorded 9/29/2006 by dfredrik ' ' Dim rng As Range Dim CurCell As Object Dim RowNum As Integer Dim CellsToLoop Dim Counter As Integer With Worksheets("GLFBCALO") Set rng = .Range(.Range("A2"), .Cells(Rows.Count, 1).End(xlUp)) End With Counter = 10 For Each CellsToLoop In rng.Cells Range("FormulaRow").Copy 'Selection.Copy Range("FormulaRow").Copy Set CurCell = Worksheets("Template").Cells(Counter, 1) CurCell.Paste ActiveSheet.Paste Counter = Counter + 1 Next End Sub In the above code the Worksheet1 is GLFBCALO and Worksheet2 is Template. Any help would be appreciated -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...mming/200609/1 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
copy formulas from one worksheet to an entirely different workshee | Excel Discussion (Misc queries) | |||
Copy a row down a column for the same number of rows of data in another workshee | Excel Programming | |||
How can I put an apostrophy next to a number on my Excel workshee. | Excel Discussion (Misc queries) | |||
Data from a number of rows and columns to one column | Excel Discussion (Misc queries) | |||
Copy Formula loop based on number of rows w/ data in a col B. | Excel Programming |