Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
move within ss by active cell position, NOT by cell names
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
move within ss by active cell position, NOT by cell names
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 BEEJAY wrote: 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
move within ss by active cell position, NOT by cell names
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 "John Fuller" wrote: 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 BEEJAY wrote: 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Active cell position for macro | Excel Worksheet Functions | |||
In macros, an instruction that will return the position of the Active Cell | Excel Programming | |||
Why does cursor move position in a cell I'm trying to edit? | Excel Discussion (Misc queries) | |||
Macro to move first name to last position in cell | Excel Programming | |||
Active Cell Position Using Go To Or Hyperlink | Excel Programming |