Indenting Text Automatically

[A Taylor]

Hi there I am hoping to automate the indenting (Font/alignment/indent) of text in a column C only if there is a value in column E.

Is there any way that this can be done with VBA?

Thanks for any reply

 

[VoG]

Try

Sub AnIndent()
Dim LR As Long, i As Long
LR = Range("C" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    With Range("C" & i)
        .IndentLevel = IIf(.Offset(, 2).Value = "", 0, 1)
    End With
Next i
End Sub

 

[A Taylor]

Thank you so much for your time Peter,

I have run your code and it works for all the items I want to indent which is great , but it also works for some others that I dont - despite the cell in column e being empty.

Is there a quick tweak that you could do?

Thanks again,
Stewart

 

[A Taylor]

Sorry Peter I have sorted it - although the cells were blank after I pressed delete the cose worked perfectly - must have been some invisible data in the cells or something.

Thanks again for your time!
Regs,
Stewart