Hi,
Im trying to fill down formulas accross multiple rows, the end of the column may change, and I have that part working, I can select the first row, but then I get stuck filling down the formula to the last row of data.
hers a working code of filling across columns and selecting the row
Dim GRrepLastColumn, lastrowReport As Long
GRrepLastColumn = Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Range(ActiveCell, Cells(ActiveCell.row, GRrepLastColumn)).FillRight
Range("C3").Activate
ActiveCell.FormulaR1C1 = _
"=IF('GR Semi-Final'!RC[-1]=0,"""",'GR Semi-Final'!R2C[-1])"
GRrepLastColumn = Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Range(ActiveCell, Cells(ActiveCell.row, GRrepLastColumn)).FillRight
Range(ActiveCell, Cells(ActiveCell.row, GRrepLastColumn)).Select
after that fill down, autofill, causes and error, so Im stuck on how to get all my formulas to the bottom row.
Please could you help me complete this final bit
thanks for your help
Im trying to fill down formulas accross multiple rows, the end of the column may change, and I have that part working, I can select the first row, but then I get stuck filling down the formula to the last row of data.
hers a working code of filling across columns and selecting the row
Dim GRrepLastColumn, lastrowReport As Long
GRrepLastColumn = Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Range(ActiveCell, Cells(ActiveCell.row, GRrepLastColumn)).FillRight
Range("C3").Activate
ActiveCell.FormulaR1C1 = _
"=IF('GR Semi-Final'!RC[-1]=0,"""",'GR Semi-Final'!R2C[-1])"
GRrepLastColumn = Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Range(ActiveCell, Cells(ActiveCell.row, GRrepLastColumn)).FillRight
Range(ActiveCell, Cells(ActiveCell.row, GRrepLastColumn)).Select
after that fill down, autofill, causes and error, so Im stuck on how to get all my formulas to the bottom row.
Please could you help me complete this final bit
thanks for your help