ki re
asked on
Indent Based On Corresponding Cell content
ASKER
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A:A"), Target) Is Nothing Then
If IsNumeric(Target.Value) Then
If Target.Value >= 0 Then
Target.Offset(0, 1).IndentLevel = Target.Value
End If
End If
End If
End Sub
Instead of target value here i want excel can recognize the content
If Not Intersect(Range("A:A"), Target) Is Nothing Then
If IsNumeric(Target.Value) Then
If Target.Value >= 0 Then
Target.Offset(0, 1).IndentLevel = Target.Value
End If
End If
End If
End Sub
Instead of target value here i want excel can recognize the content
Can you attach the workbook an I'll take a look
ASKER
Your cell references are wrong. I need to go out but I'll look at this later for you
ASKER
Thank you
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
The code that I provided works when testing
INDENT.xlsm