How to write a macro for command button

**charlie.duke2** · 01-12-2010, 05:56 AM

Hi,

I am attempting to set up two command buttons under the headings of series and parallel. If the series command button is hit I would like the contents of cell D3 to be displayed in G3, and if the parallel button is hit I would like the following calculation to be achieved in G3: (1-(1-D3^2)).

If possible I would also prefer only one command button to be pressed at any one time,

Hope you can help,

Regards,

Charlie

**charlie.duke2** · 01-12-2010, 06:04 AM

Would a toggle button maybe be a better option? If so what code would I use for it?

Thanks,

Charlie

**Palmetto** · 01-12-2010, 08:30 AM

Here is code for the buttons:

Option Explicit

Sub Parallel()

    If Not Range("D3").Value = vbNullString Then
        Range("G3").Formula = "=(1-(1-D3^2))"
    Else
        MsgBox "Cell D3 is empty - please enter a value", vbExclamation
        Exit Sub
    End If

End Sub
Sub Series()

    If Not Range("D3").Value = vbNullString Then
        Range("G3") = Range("D3")
    Else
        MsgBox "Cell D3 is empty - please enter a value", vbExclamation
        Exit Sub
    End If

End Sub