Hi,
Is there any way to check the Level of Indentation in a cell through macro ?

If so Please help me out Thanks in Advance
Muk

Range("A1").IndentLevel will give you the values 0,1,2,3...


If this post helps click Yes
--------------
Jacob Skaria


"Muk" wrote:

Hi,
Is there any way to check the Level of Indentation in a cell through macro ?

If so Please help me out Thanks in Advance
Muk

Hi Jacob,

I saw your post for getting the indent level on a particular cell, but I must admit this wasn't enough information for me to create a macro that will return the information I want.

I would like to get the indent level property from one column of cells say, range("B1:B500"), and show then in another column ("A1:A500"). I am no VB programmer, but I do have some rudimentary understanding of the syntax.

Anymore detail would be appreciated

Thanks,
Pat

On Monday, March 23, 2009 2:01 AM Mu wrote:

Hi,
Is there any way to check the Level of Indentation in a cell through macro ?

If so Please help me out Thanks in Advance
Muk


On Monday, March 23, 2009 2:18 AM JacobSkari wrote:

Range("A1").IndentLevel will give you the values 0,1,2,3...


If this post helps click Yes
--------------
Jacob Skaria


"Muk" wrote:

pat martin explained :
Hi Jacob,

I saw your post for getting the indent level on a particular cell, but I must
admit this wasn't enough information for me to create a macro that will
return the information I want.

I would like to get the indent level property from one column of cells say,
range("B1:B500"), and show then in another column ("A1:A500"). I am no VB
programmer, but I do have some rudimentary understanding of the syntax.

Anymore detail would be appreciated

Thanks,
Pat

In a standard module...

Option Explicit

Sub GetIndentLevels()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("B1:B500")
With c.Offset(, -1)
.NumberFormat = "General": .Value = c.IndentLevel
End With 'c.Offset(, -1)
Next 'c
Application.ScreenUpdating = True
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc

Sub test()
For Each cell In Range("B1:B500")
cell.Offset(0, -1).Value = cell.IndentLevel
Next
End Sub


Gord Dibben Microsoft Excel MVP

On Tue, 30 Aug 2011 20:45:23 GMT, pat martin
wrote:

Hi Jacob,

I saw your post for getting the indent level on a particular cell, but I must admit this wasn't enough information for me to create a macro that will return the information I want.

I would like to get the indent level property from one column of cells say, range("B1:B500"), and show then in another column ("A1:A500"). I am no VB programmer, but I do have some rudimentary understanding of the syntax.

Anymore detail would be appreciated

Thanks,
Pat

On Monday, March 23, 2009 2:01 AM Mu wrote:

Hi,
Is there any way to check the Level of Indentation in a cell through macro ?

If so Please help me out Thanks in Advance
Muk


On Monday, March 23, 2009 2:18 AM JacobSkari wrote:

Range("A1").IndentLevel will give you the values 0,1,2,3...


If this post helps click Yes
--------------
Jacob Skaria


"Muk" wrote: