Does anyone know a quick way to get the relative position (row and
column) of the selected cell within a table? I've tried a few
different items, but to no avail:

tmpRow = Selection.ListObject.Listrow
tmpRow = Selection.ListObject.ListRows.Index
tmpRow = Selection.ListObject.Range.Row
and others ...

I know it's got to be simple, but any help would be appreciated.

Thanks in advance,

TB

depending on where you want to count as the top left cell, something
along these lines:Sub blah()
Set xxx = ActiveSheet.ListObjects(1)
Set yyy = Intersect(Selection, xxx.DataBodyRange)
If Not yyy Is Nothing Then
rw = Selection.Row - xxx.DataBodyRange.Row + 1
cl = Selection.Column - xxx.DataBodyRange.Column + 1
MsgBox Cells(rw, cl).Address
End If
End Sub


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: http://www.thecodecage.com/forumz/member.php?userid=558
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=128166

I don't have access to v2007 just now, but something like

rowOffset = ActiveCell.Row - ActiveSheet.ListObjects(1).Row
colOffset = ActiveCell.Column - ActiveSheet.ListObjects(1).Column


"p45cal" wrote:


depending on where you want to count as the top left cell, something
along these lines:Sub blah()
Set xxx = ActiveSheet.ListObjects(1)
Set yyy = Intersect(Selection, xxx.DataBodyRange)
If Not yyy Is Nothing Then
rw = Selection.Row - xxx.DataBodyRange.Row + 1
cl = Selection.Column - xxx.DataBodyRange.Column + 1
MsgBox Cells(rw, cl).Address
End If
End Sub


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: http://www.thecodecage.com/forumz/member.php?userid=558
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=128166