G
Guest
Complete code to work on various sheets, each having exact same columns, but
varying number of rows.
All cells in Columns A thru I have data
J and K columns are empty, at this point
How to move from a given point (active cell), to another cell without
referencing actual cell row locations ( K?), or (J?)
' Go to column C, end, Insert TOTALS '>>> this one works
Range("C1").Select
Selection.End(xlDown).Select
ActiveCell.FormulaR1C1 = "TOTALS"
' Move right 7 Cells, to "J"
Range ("J?").Select
Range("J?").Formula = "=(+I201-G201)/G201-1
' Move RIGHT 8 Cells to "K"
Range("K?").Select
ActiveCell.FormulaR1C1 = "%"
' Select the bottom used cells and format
Range("C?:K?").Select
Selection.Font.Bold = True
Selection.Font.Size = 12
With Selection
.HorizontalAlignment = xlCenter
End With
End Sub
varying number of rows.
All cells in Columns A thru I have data
J and K columns are empty, at this point
How to move from a given point (active cell), to another cell without
referencing actual cell row locations ( K?), or (J?)
' Go to column C, end, Insert TOTALS '>>> this one works
Range("C1").Select
Selection.End(xlDown).Select
ActiveCell.FormulaR1C1 = "TOTALS"
' Move right 7 Cells, to "J"
Range ("J?").Select
Range("J?").Formula = "=(+I201-G201)/G201-1
' Move RIGHT 8 Cells to "K"
Range("K?").Select
ActiveCell.FormulaR1C1 = "%"
' Select the bottom used cells and format
Range("C?:K?").Select
Selection.Font.Bold = True
Selection.Font.Size = 12
With Selection
.HorizontalAlignment = xlCenter
End With
End Sub