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-19-2020, 09:03 PM

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

.
This macro will do what you are seeking :

Code:

Option Explicit

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

Attached Files

Indent Cell Text Based On Other Cell Value.xlsm (15.3 KB, 9 views)

Reply With Quote