Improve VBA

[Kazdima]

Hello,

would you please improve the macro? The issue arises when I have numbers in both columns (A and B) in Debit and Credit.
For example In Debit 1,000 and in Credit 1,200. So, in column A should be (200) after running a Macro.

Sub MoveCredits_v3()
With Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row)
.Value = Evaluate(Replace(Replace("if(#="""","""",if(#=0,-^,#))", "#", .Address), "^", .Offset(, 1).Address))
.Offset(, 1).Clear '<- Optional to clear Credit column
End With
End Sub

 

[Fluff]

At the moment that formula is effectively this
=IF(A2="","",IF(A2=0,-B2,A2))
What should it be?

 

[Kazdima]

Hello Fluff,
Do you know how to improve my Macro to get a required result?

 

[RoryA]

Please take a minute to read the forum rules (again) on cross-posting, and then add the required link(s) to your post(s) in other forums. Thanks.

 

[Fluff]

Do you know how to improve my Macro to get a required result?

Not unless you answer my question.
Also please note what RoryA has said.

 

[Kazdima]

HI Rory A,

I hope my posting is now correct?

This is a link to the thread ,which Peter helped me earlier :

https://www.mrexcel.com/forum/excel-questions/1067549-formula-macros-put-numbers-one-column-into-one-2.html#post5127652

<tbody>
</tbody>

 

[RoryA]

No, I mean your posts on other forums. (which should be clear if you read the rules, as I asked. )

 

[Kazdima]

It is also posted on https://chandoo.org/forum/threads/i...cel-questions-1095997-improve-vba-html.41578/

 

[Fluff]

Thanks for the link, now would you mind answering my question?

 

[Kazdima]

I did not understand your question. I explained in my initial posting what I am looking for. Your formula does not combine two columns into one. Like I wrote, if you have in column A (debit) and in Column B (Credit), you formula puts number into column A and doesn ot pick up number from column B.
e.g. COlumn A=1000. Column B=(1200). So, after VBA use or formula, in COlumn A should be (200), not (1,200).