add simple formula to cell in vba

**firefightnlife** · 03-08-2012, 10:36 AM

just trying to insert code to a cell in vba and not in cell on spreadsheet as i would like to change the value and have it automatically calculated. formula i would like is =b4*b3, my code is not working

Sub insertformula()
Dim A As Range
Dim B As Range


Set A = Range("B4")
Set B = Range("B3")


B.Value = B.Value * A.Value

End Sub

**Richard Buttrey** · 03-08-2012, 10:45 AM

Hi,

I'm not quite clear what you're asking. If all you want to do is have vba enter a formula for you then

Range("your_range") = "=B4*B3"

If you want your range to be the result of B4 * B3 then

Range("Your_range") = Range("A4") * Range("B3")

Regards

**firefightnlife** · 03-08-2012, 10:56 AM

found error in code but still does not work
actual code:

Sub insertformula()
Range("b4") = Range("b4") * Range("B3")
End Sub

**firefightnlife** · 03-08-2012, 10:54 AM

new code still not working

Sub insertformula()
Range("b4") = Range("A4") * Range("B3")
End Sub

**Richard Buttrey** · 03-08-2012, 06:24 PM

Please upload a workbook or a representative cut down copy, anonymised if necessary. It is always easier to advise if we can see your request in its context.

Show a before and after situation and if it's not blindingly obvious how you have arrived at your results some explanatory notes as well.