Macro help - move indented data from A to

[Ekguy39]

Hello,

I am looking for a macro that will Insert column to left of B and move indented data from A to new column (which will now be the new B)

any help wouldbe great.

Regards,

 

[steve the fish]

Try this, you need to change the sheet name to suit:

With Sheets("Sheet1")
    .Columns("B:B").Insert shift:=xlToRight
    For Each c In .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)
        If c.IndentLevel > 0 Then
            c.Offset(, 1) = c.Value
        End If
    Next
End With

 

[Ekguy39]

Thanks for the macro, its greatly appreciated.

is there a way to cut the data from column A instead of copy?

Try this, you need to change the sheet name to suit:

With Sheets("Sheet1")
    .Columns("B:B").Insert shift:=xlToRight
    For Each c In .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)
        If c.IndentLevel > 0 Then
            c.Offset(, 1) = c.Value
        End If
    Next
End With

 

[steve the fish]

So theres no indent in B you mean?

 

[Ekguy39]

So that the indented data is moved to the new column and no longer in column A

 

[steve the fish]

Try this:

With Sheets("Sheet1")
    .Columns("B:B").Insert shift:=xlToRight
    For Each c In .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)
        If c.IndentLevel > 0 Then
            c.Offset(, 1) = c.Value
            c.ClearContents
        End If
    Next
End With

 

[Ekguy39]

That works perfectly. Thank you for your help