Copy Down to last Row

gheyman

Well-known Member
Joined
Nov 14, 2005
Messages
1,758
Office Version
  1. 365
Platform
  1. Windows
How Do I get the formula to go down to the last Row?


Code:
 lastrow = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
    lastcol = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column + 1 'after last populated col
    lastcol2 = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column 'after last populated col

        nowdate = Now()
            For X = 1 To lastrow
                Cells(1, lastcol) = nowdate
                Cells(2, lastcol2 + 1).FormulaR1C1 = "=SUMIF('54_TPL_01_02'!C7,RC1,'54_TPL_01_02'!C12)"
                
            Next X


And then PAste Special Value the formula. I need it to be values after the formula Calcs
 
Last edited:

Some videos you may like

Excel Facts

Shade all formula cells
To shade all formula cells: Home, Find & Select, Formulas to select all formulas. Then apply a light fill color.

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
48,404
Office Version
  1. 365
Platform
  1. Windows
How about
Code:
nowdate = Now()
Cells(1, LastCol) = nowdate
Range(Cells(2, lastcol2 + 1), Cells(lastrow, lastcol2 + 1)).FormulaR1C1 = "=SUMIF('54_TPL_01_02'!C7,RC1,'54_TPL_01_02'!C12)"
 

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
48,404
Office Version
  1. 365
Platform
  1. Windows
You're welcome
 

Watch MrExcel Video

Forum statistics

Threads
1,114,472
Messages
5,548,237
Members
410,824
Latest member
Bobmn4
Top