Macro to copy contents of one cell into another keeping original values

[jtt2]

Anyone know how to modify this macro so that B20 shows its original value. For example, if A1=1000 and B20=500, I want to see the answer as 1,500 but if I click on the cell I want to see =1000+500?



Code:
Sub MyFormulaAdder()

Dim d As Double
d = Range("A1").Value

Range("A1").Formula = "=" & d & "+B20"

End Sub

 

[Joe4]

You only need one line of code:

Sub MyFormulaAdder()
    Range("A1").Formula = "=" & Range("A1").Value & "+" & Range("B20").Value
End Sub

 

[jtt2]

You only need one line of code:

Sub MyFormulaAdder()
    Range("A1").Formula = "=" & Range("A1").Value & "+" & Range("B20").Value
End Sub

You only need one line of code:

Sub MyFormulaAdder()
    Range("A1").Formula = "=" & Range("A1").Value & "+" & Range("B20").Value
End Sub

OMG AMAZING, thank you so much! It worked perfectly, I have another question now. How do I loop it down the column excluding rows with SUBTOTAL?

 

[Joe4]

I suggest you show us a small sample of your data and expected result, so we can see how things are all laid out.

MrExcel has a tool called “XL2BB” that lets you post samples of your data that will allow us to copy/paste it to our Excel spreadsheets, so we can work with the same copy of data that you are. Instructions on using this tool can be found here: XL2BB Add-in

Note that there is also a "Test Here” forum on this board. This is a place where you can test using this tool (or any other posting techniques that you want to test) before trying to use those tools in your actual posts.

 

[jtt2]

OMG AMAZING, thank you so much! It worked perfectly, I have another question now. How do I loop it down the column excluding rows with SUBTOTAL?

I have some cells that have references other tabs in the workbook, is there a way to keep the reference in the cell when you add them together in this macro?

 

[Joe4]

I have some cells that have references other tabs in the workbook, is there a way to keep the reference in the cell when you add them together in this macro?

Please provide an example of exactly what you are trying to do.

 

[jtt2]

<

AUA LLC Draw Request #12 9-5-23 test.xlsm
	F	G
44	31,805.50	875.00
Draw Schedule

Cell Formulas
Range	Formula
F44	F44	='Close Draw'!U64+'Close Draw'!U65
G44	G44	='Draw # 12'!E53

>

 

[Joe4]

Please walk us through an example, providing is with BEFORE and AFTER images, so we can see exactly what you are starting with and what you want for your end result.

 

[jtt2]

I would like to add cell G44 to F44 so that cell F44 is now ='Close Draw'!U64+'Close Draw'!U65+Draw # 12'!E53

 

[Joe4]

Try this:

Sub MyFormulaAdder()
    
    Dim frm As String
    
'   Get formula from cell G44
    frm = Range("G44").Formula
    
'   Add formula from cell G44 to end of formula in F44
    Range("F44").Formula = Range("F44").Formula & "+" & Mid(frm, 2, Len(frm) - 1)
    
End Sub