Macro to move negative values to another column

[bridgfordkid]

Hi,

I have a long list of bank transaction which are all in the same column. I want to be able to move the negative values one space to the right so that debits and credits are in separate columns.

Could anyone assist with how to do this. It's been 20+ years since I wrote any basic code and I don't know where to start.

Thanks a lot.

 

[Fluff]

Hi & welcome to the board.
How about

Sub SplitNeg()
   Dim Ary As Variant
   Dim i As Long
   Ary = Range("C2", Range("C" & Rows.Count).End(xlUp))
   ReDim Preserve Ary(1 To UBound(Ary), 1 To 2)
   For i = 1 To UBound(Ary)
      If Ary(i, 1) < 0 Then
         Ary(i, 2) = Ary(i, 1)
         Ary(i, 1) = ""
      End If
   Next i
   Range("C2").Resize(UBound(Ary), 2).Value = Ary
End Sub

This will work on data in col C

 

[bridgfordkid]

Hey Fluff,

That worked perfectly. Thanks, it's most kind of you.

Cheers,

Pete

 

[Fluff]

Glad to help & thanks for the feedback.