Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Index of Cells in a selection
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Index of Cells in a selection
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" skrev i en meddelelse ... 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Index of Cells in a selection
Ranges don't really have indexes. Are the cells contiguous?
What are you actually trying to do? -- Regards, Tom Ogilvy "Rod" wrote in message ... 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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Index of Cells in a selection
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? -- Regards, Tom Ogilvy "Leo Heuser" wrote in message ... 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" skrev i en meddelelse ... 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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Index of Cells in a selection
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 "Tom Ogilvy" skrev i en meddelelse ... 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? -- Regards, Tom Ogilvy "Leo Heuser" wrote in message ... 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. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
cells selection | Excel Worksheet Functions | |||
Copy Selection - Transpose Selection - Delete Selection | Excel Discussion (Misc queries) | |||
First row in Selection range (first index of a cell) EXCEL VBA | Excel Worksheet Functions | |||
How do I shade cells during selection? | Excel Worksheet Functions | |||
Index of cells in a selection | Excel Programming |