Copy Down to last Row

gheyman

Well-known Member
Joined
Nov 14, 2005
Messages
1,744
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

Square and cube roots
The =SQRT(25) is a square root. For a cube root, use =125^(1/3). For a fourth root, use =625^(1/4).

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
46,650
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
46,650
Office Version
  1. 365
Platform
  1. Windows
You're welcome
 

Watch MrExcel Video

Forum statistics

Threads
1,109,501
Messages
5,529,240
Members
409,857
Latest member
KailuaTown
Top