Dynamically Activating Cell

Ed S. · Mar 27th, 2002, 09:00 AM

I locate a cell and save the positions:
SaveRow = ActiveCell.Row
SaveCol = ActiveCell.Column

If in Row 3, Col B - the values returned will be SaveRow - 3 ; SaveCol 2 (not B)

The difficulty is returning to, or positioning to, Row/Column Cell using the saved values.

What is the technique to select or activate a cell when the values are dynamically maintained? (Column is a numeric value.)

LarryJ · Mar 27th, 2002, 09:17 AM

How about this?

Dim wks As Worksheet

Set wks = ActiveSheet
wks.Cells(3, 2).Activate

Of course, the numbers 3 and 2 can be replaced by variables containing these numbers.

Tom Schreiner · Mar 27th, 2002, 10:30 AM

Hi
SaveRow = ActiveCell.Row
SaveCol = ActiveCell.Column

Save your data into Cell B3 as follows:

SavePlace = Activecell.row & "," & activecell.column

The string variable will then =
SavePlace = "3,2"

Now use this syntax to activate the cell

Assuming the cell is on the activesheet

cells(SavePlace).activate
or
cells(SavePlace).select

Tom

[ This Message was edited by: TsTom on 2002-03-27 09:32 ]

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 27th, 2002, 09:00 AM	#1
Ed S. Board Regular Join Date: Mar 2002 Posts: 90	I locate a cell and save the positions: SaveRow = ActiveCell.Row SaveCol = ActiveCell.Column If in Row 3, Col B - the values returned will be SaveRow - 3 ; SaveCol 2 (not B) The difficulty is returning to, or positioning to, Row/Column Cell using the saved values. What is the technique to select or activate a cell when the values are dynamically maintained? (Column is a numeric value.)

Mar 27th, 2002, 09:17 AM	#2
LarryJ Board Regular Join Date: Mar 2002 Location: Houston, TX Posts: 60	How about this? Dim wks As Worksheet Set wks = ActiveSheet wks.Cells(3, 2).Activate Of course, the numbers 3 and 2 can be replaced by variables containing these numbers.

Mar 27th, 2002, 10:30 AM	#3
Tom Schreiner Board Regular Join Date: Mar 2002 Location: Cincinnati, Ohio, USA Posts: 6,824	Hi SaveRow = ActiveCell.Row SaveCol = ActiveCell.Column Save your data into Cell B3 as follows: SavePlace = Activecell.row & "," & activecell.column The string variable will then = SavePlace = "3,2" Now use this syntax to activate the cell Assuming the cell is on the activesheet cells(SavePlace).activate or cells(SavePlace).select Tom [ This Message was edited by: TsTom on 2002-03-27 09:32 ]