Copy Down to last Row

gheyman

Well-known Member
Joined
Nov 14, 2005
Messages
1,756
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
48,220
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,220
Office Version
  1. 365
Platform
  1. Windows
You're welcome
 

Watch MrExcel Video

Forum statistics

Threads
1,114,236
Messages
5,546,656
Members
410,753
Latest member
Ian R
Top