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

What is =ROMAN(40) in Excel?
The Roman numeral for 40 is XL. Bill "MrExcel" Jelen's 40th book was called MrExcel XL.

Fluff

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

Watch MrExcel Video

Forum statistics

Threads
1,114,356
Messages
5,547,459
Members
410,793
Latest member
sauravg
Top