OutlineLevel and Integer Variable issue

[jurgenC!]

hi all,

trying to code a routine which loops through each cell in a column and
based on the Ident Level of that cell, set the OutlineLevel of the same
Row. however after assigning the Ident Level to a Integer Variable, i am
unable to set the OutlineLevel based on the Integer Variable (all is
well if the OutlineLevel is set as a number):

Do While iStartD <= iEndD
iIdent = Worksheets(oSht.name).Range("B" &
iStartD).IndentLevel
If iIdent > 8 Then iIdent = 8
Worksheets(oSht.name).Rows(iStartD).Rows. _
OutlineLevel = iIdent
iStartD = iStartD + 1
Loop

this will work (but not what i need):
Do While iStartD <= iEndD
iIdent = Worksheets(oSht.name).Range("B" &
iStartD).IndentLevel
If iIdent > 8 Then iIdent = 8
Worksheets(oSht.name).Rows(iStartD).Rows. _
OutlineLevel = 2
iStartD = iStartD + 1
Loop

any help is mostly appreciated

cheers...

...jurgenC!

 

[Guest]

Jurgen

I found the following set the level ok. The only problem was when the indent level was 0. It gave an error so make sure that the indent level is > 0.

Tony

Sub fff()
Range("a11").Select
While Not IsEmpty(ActiveCell)
iIdent = ActiveCell.IndentLevel
If iIdent > 8 Then iIdent = 8
If iIdent > 0 Then Rows(ActiveCell.Row).Rows.OutlineLevel = iIdent
ActiveCell.Offset(1, 0).Select
Wend

End Sub

----- jurgenC! wrote: -----

hi all,

trying to code a routine which loops through each cell in a column and
based on the Ident Level of that cell, set the OutlineLevel of the same
Row. however after assigning the Ident Level to a Integer Variable, i am
unable to set the OutlineLevel based on the Integer Variable (all is
well if the OutlineLevel is set as a number):

Do While iStartD <= iEndD
iIdent = Worksheets(oSht.name).Range("B" &
iStartD).IndentLevel
If iIdent > 8 Then iIdent = 8
Worksheets(oSht.name).Rows(iStartD).Rows. _
OutlineLevel = iIdent
iStartD = iStartD + 1
Loop

this will work (but not what i need):
Do While iStartD <= iEndD
iIdent = Worksheets(oSht.name).Range("B" &
iStartD).IndentLevel
If iIdent > 8 Then iIdent = 8
Worksheets(oSht.name).Rows(iStartD).Rows. _
OutlineLevel = 2
iStartD = iStartD + 1
Loop

any help is mostly appreciated

cheers...

...jurgenC!

 

[jurgenC!]

hi Tony,

you sure hit the nail on the head - that solved the issue
thanks a million!

cheers...

...jurgenC!