move within ss by active cell position, NOT by cell names

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
 
J

John Fuller

This will select the cell 7 cells to the right of the upper left cell
in the currently selected range (the A1 reference refers to the upper
left cell in the currently selected range, not the acutal cell A1):
ActiveCell.Offset(0, 7).Range("A1").Select
 
G

Guest

I now understand (some of) the offset stuff.
I am now stuck on getting the formula worked out.

' Go to column C, end, Insert TOTALS: >>>> THIS ONE WORKS
Range("C1").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "TOTALS"

' Move RIGHT 8 Cells to "K" >>>>THIS ONE WORKS
ActiveCell.Offset(0, 8).Range("A1").Select
ActiveCell.FormulaR1C1 = "%"

' Move LEFT 1 Cell to "J"
ActiveCell.Offset(0, -1).Range("A1").Select

THIS is where I am now stuck.
Range("A1").Formula = "=((Offset(0,-1)-Offset(0, -3))/Offset(0,-3)-1"
Should work as: Range("J?").Formula = "=(+I?-G?)/G?-1
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top