Entering an IF formula into an adjacent cell with VBA

[angelo328]

Dear all
It's been a long time since I sought help from your goodselves and I have forgotten so much that even this seemingly easy task is alluding me. I have scoured the boards to see if I can canabalise code for my purpose but with little success. So here goes - please go easy on me and thanks in advance for your help.

It's that time of the year that I am trying to balance my bank statement. The problem is that my bank lumps the credit and debit amounts into one column. What I am trying to do with VBA is to seperate the amounts into seperate adjacent columns using an IF formula. So far I have the relevant formula for credit =IF($F1<0,$F1,"") and for debit =IF($F1>=0,$F1,"").

Many thanks in advance and a happy new year to all.


Angelo
PS I propose to use this code each month with other code that will seperate transaction codes e.g. DD, CHQ etc

 

[Fluff]

How about

Sub angelo328()
   With Range("G1", Range("F" & Rows.Count).End(xlUp).Offset(, 2))
      .Formula = Array("=IF($F1<0,$F1,"""")", "=IF($F1>0,$F1,"""")")
   End With
End Sub

 

[angelo328]

Fluff, you genius.

 

[Fluff]

You're welcome & thanks for the feednack