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!

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

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!

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

hi Tony,

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

cheers...

...jurgenC!



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!