Index of Cells in a selection

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hello, everyone

I am trying to write code to determine the index of the "active" cell in a selection of say, two cells. Can you direct me to the way of learning how to go about that

I appreciate your time

Rod
 
Hello Rod

Here's one way:

Sub FindIndex()
'Leo Heuser, 14 Nov. 2003
Dim Cell As Range

For Each Cell In Selection.Cells
If Cell.Address = ActiveCell.Address Then
MsgBox "Index = " & Cell.Row - Selection.Row + 1 _
& ", " & Cell.Column - Selection.Column + 1
Exit For
End If
Next Cell

End Sub


--
Best Regards
Leo Heuser

Followup to newsgroup only please.

Rod said:
Hello, everyone!

I am trying to write code to determine the index of the "active" cell in a
Click to expand...
selection of say, two cells. Can you direct me to the way of learning how
to go about that?
 
Ranges don't really have indexes. Are the cells contiguous?

What are you actually trying to do?

--
Regards,
Tom Ogilvy

Rod said:
Hello, everyone!

I am trying to write code to determine the index of the "active" cell in a
Click to expand...
selection of say, two cells. Can you direct me to the way of learning how
to go about that?
 
First, this is no criticism of Leo who offered an excellent intepretation of
a vague question and offered an excellent suggesgted solution.

To the Original Poster,
Just curious. That gives you something like the offset from the first cell
in the range.

For example, select F8, then hold down the control key and select C3, so C3
is the active cell. Then run the macro. Is that what you were asking for?
 
Thanks, Tom, but I'm afraid, this is a case,
where I didn't see the forest for the trees :-(

Sub FindIndex()

MsgBox "Index = " & ActiveCell.Row - Selection.Row + 1 _
& ", " & ActiveCell.Column - Selection.Column + 1

End Sub

does exactly the same.

LeoH
 
Back
Top