I'd like to find if a selected cell is within a group. Is this possibl
from VBA

--
BlindGuardia
-----------------------------------------------------------------------
BlindGuardian's Profile: http://www.excelforum.com/member.php...fo&userid=2420
View this thread: http://www.excelforum.com/showthread.php?threadid=37813

Hi Ron,

In my case, I have several rows that have been grouped in an outline
i.e. a grey bar appears on the left with "+" and "-" characters that
allow me to expand and collapse the rows which belong to the group. The
visibility of these can change by setting the Tools -- Options... --
View (tab) -- Outline symbols (checkbox).

What I want to know is if my selection is currently within one of those
rows which is in a group. I have not been able to find anything using
Excel/VBA help to discover a property that seems to indicate whether a
cell is part of a group or not. The nearest I've seen is IndentLevel
but that always returns 0.

Thanks for taking the time to respond.


--
BlindGuardian
------------------------------------------------------------------------
BlindGuardian's Profile: http://www.excelforum.com/member.php...o&userid=24202
View this thread: http://www.excelforum.com/showthread...hreadid=378137

IF you mean is the active cell selected part of a NAMED RANGE or another
group of somehow defined cells, then yes Look up vba help for the
INTERSECT property
--
When you lose your mind, you free your life.


"Ron Coderre" wrote:


A Group?
Do you mean is the active cell part of a selection of several cells?

Regards,
Ron


--
Ron Coderre
------------------------------------------------------------------------
Ron Coderre's Profile: http://www.excelforum.com/member.php...o&userid=21419
View this thread: http://www.excelforum.com/showthread...hreadid=378137

You can use the Intersect method to determine whether a cell is
in another range of cells. For example,

Dim Rng As Range
Set Rng = Range("A1")
If Not Application.Intersect(Rng, Range("A1:A10")) Is Nothing
Then
' Rng is in A1:A10
Else
' Rng is not in A1:A10
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"BlindGuardian"

wrote in message
news:BlindGuardian.1qf9yd_1118426712.4717@excelfor um-nospam.com...

I'd like to find if a selected cell is within a group. Is this
possible
from VBA?


--
BlindGuardian
------------------------------------------------------------------------
BlindGuardian's Profile:
http://www.excelforum.com/member.php...o&userid=24202
View this thread:
http://www.excelforum.com/showthread...hreadid=378137

I think this may work for you: OutlineLevel

It will return 2, or more, if grouped in an outline. 1 if not
outlined.


Sub Test()

Dim IsGrouped As Boolean

IsGrouped = (ActiveCell.Rows.OutlineLevel 1)

MsgBox "Grouped: " & IsGrouped

End Sub



Does that help?

Ron


--
Ron Coderre
------------------------------------------------------------------------
Ron Coderre's Profile: http://www.excelforum.com/member.php...o&userid=21419
View this thread: http://www.excelforum.com/showthread...hreadid=378137

Previously when I tried

ActiveCell.OutlineLevel

I kept getting an error that it could not retrieve the property from
the object. Now I see that OutlineLevel is a property that must be
applied for a Rows object.

Thanks very much for your help, Ron.


--
BlindGuardian
------------------------------------------------------------------------
BlindGuardian's Profile: http://www.excelforum.com/member.php...o&userid=24202
View this thread: http://www.excelforum.com/showthread...hreadid=378137

You're very welcome. I'm glad that worked for you. Thanks for updating
me

Regards,
Ron


--
Ron Coderre
------------------------------------------------------------------------
Ron Coderre's Profile: http://www.excelforum.com/member.php...o&userid=21419
View this thread: http://www.excelforum.com/showthread...hreadid=378137

Ron has pointed me in the right direction

--
BlindGuardia
-----------------------------------------------------------------------
BlindGuardian's Profile: http://www.excelforum.com/member.php...fo&userid=2420
View this thread: http://www.excelforum.com/showthread.php?threadid=37813