Auto-indent based on the value of another column?

[ridug]

Hey all,

I have a CSV sitemap that I'm formatting and one of the requests is to indent the Page Name column "X" amount of times based on the value of another column. The other column contains the "Level", which is simply a number between 1 and 6, and based on that is the number of indents the Page Name should receive. E.g.:

- 2=1 indent, 3=2 indents, etc..

Is there a way for me to speed this process up semi/fully automatically? Would greatly appreciate any input

Thank you!

 

[Micron]

Having 1 for no indent makes no sense to me. If it were zero then something like this should work (I just used a loop from 1 to 9 with 9 rows as a test, in col's J & K)

Sub IndentCell()
Dim i As Integer

For i = 1 To 9
 Range("J" & i).IndentLevel = Range("K" & i)
Next

End Sub

 

[ridug]

Having 1 for no indent makes no sense to me. If it were zero then something like this should work (I just used a loop from 1 to 9 with 9 rows as a test, in col's J & K)

Sub IndentCell()
Dim i As Integer

For i = 1 To 9
 Range("J" & i).IndentLevel = Range("K" & i)
Next

End Sub

View attachment 87665

Thanks Micron, that worked perfectly after a bit of tinkering! And yes, the formatting's a little questionable on the level-side...will speak with the person that delivered this to me (or just do a quick replace myself)

 

[Micron]

If changing the levels would be a bit of work, an option is to subtract 1 in the code from whatever level you have.