VBA to change a formula in a cell with a command button?

[Robert_G]

I have this code started in C12 and continues down to C31......

=IF(ROW()<$D$4+12,$F$4-((($F$4-($F$4/$B$4))/($D$4-1))*(ROW()-12)),"")

There's a few things going on here but essentially the value will "turn down" in division based on a value in B4 and Full Scale in F4.

I was thinking how valuable it would be with a click of a command button to now have it Multiply, "Turn Up" the value in F4 if needed. The formula would be the exact same formula except where I highlighted the formula it would now multiply instead of divide.

Anyone have an idea what might be the best way for this to be done or written in VBA?

 

[Roderick_E]

Ok create a sheet button and change the text to read: Click for turn up
Then create the macro and assign it to the button.

Sub clickformulatoggle()
lastrow = ActiveSheet.Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
If ActiveSheet.Buttons(Application.Caller).Text = "Click for turn down" Then
'divide
ActiveSheet.Buttons(Application.Caller).Text = "Click for turn up"
Range("C12").Formula = "=IF(ROW()<$D$4+12,$F$4-((($F$4-([B]$F$4/$B$4[/B]))/($D$4-1))*(ROW()-12)),"""")"
Else
'multiply
ActiveSheet.Buttons(Application.Caller).Text = "Click for turn down"
Range("C12").Formula = "=IF(ROW()<$D$4+12,$F$4-((($F$4-([B]$F$4*$B$4[/B]))/($D$4-1))*(ROW()-12)),"""")"
End If
'autofill
Range("C12").AutoFill Destination:=Range("C12:C" & lastrow), Type:=xlFillDefault
End Sub

It will change the text of the button when pressed and will also drag down the formula to the last row dynamically.

 

[Robert_G]

It worked better than I came up with. Thanks