rows........again (resolved - thank God!)

[sykes]

Hi Guys
I'm trying to select a whole row, based on a value in a cell.
e.g. if the cell's value is 6, I want to select row 8, cell value 7, select row 9 etc etc.
It's simple I know, but driving me bonkers

Sykes

_________________
....and the meek shall inherit the earth...
(but not the mineral rights!)
This message was edited by sykes on 2002-05-24 07:56

 

[kkknie]

Assuming the selected row is always the input value + 2, this would work:<PRE>
Dim iInput As Integer

iInput = Sheets("Sheet1").Range("A1").Value

Cells(iInput + 2, 1).EntireRow.Select</PRE>

If the row to select is something different, you could use a select case construct.

K
This message was edited by kkknie on 2002-05-24 06:52

 

[Von Pookie]

<pre>
Sub SelectRows()

If Range("A1") = "6" Then
Rows("8:8").Select
ElseIf Range("A1") = "7" Then
Rows("9:9").Select
End If
End Sub</pre>






Although kkknie's may be better for what you're trying to do...


_________________<font color=red>~*</font><font color=blue>Kristy</font><font color=red>*~</font>

"Catapultam habeo. Nisi pecuniam omnem mihi dabis, ad caput tuum saxum immane mittam."

</img>
This message was edited by Von Pookie on 2002-05-24 06:53

 

[Legacy 3507]

Or just one line of code :-

Rows(ActiveCell.Value + 2).Select

 

[sykes]

You're far too clever for your own good.....all three of you!!

Many thanks, as always

Sykes

 

[Mark W.]

BTW, a non-macro solution would be to define a Named range (e.g., Sheet1!row) as refers to...

=OFFSET(Sheet1!$A$1,Sheet1!$A$1+1,,1,255)

Now you can enter 6 into cell A1, press Control+G, and enter "row" as the Go To Reference and press [ Enter ].
This message was edited by Mark W. on 2002-05-24 11:05