Microsoft Office Forums - View Single Post - [Solved] Code for Indent if criteria is true

Thread: [Solved] Code for Indent if criteria is true

View Single Post

Old

02-20-2020, 08:14 AM

Logit

Logit is offline

Logit uses Windows 10

Windows 10 Logit uses Office 2007

Logit uses Office 2007

Office 2007

Expert

Join Date: Jan 2017

Posts: 533

Logit is a jewel in the rough

Logit is a jewel in the rough

Logit is a jewel in the rough

Default

Code:

Sub IndentB()
Dim i As Range

For Each i In Sheets("Sheet1").Range("E4:E15")
    If i.Value > 0 Then
        i.Offset(0, -3).InsertIndent -2 ' Offset selection from column E
    End If
Next i

End Sub

Reply With Quote