Change entered number to negative

Hello,

I am using a User Form to enter data into a worksheet. I have radio buttons to select if the amount in a text box is either added or deducted. I would like to enter a plain number into the text box, and then when the data is put into the worksheet, it would automatically be positive or negative based on which radio button is checked.

So if I enter that 250 units were deducted, it would show up on the worksheet as -250. If there were 250 units added, it would show up as 250.

I can put a copy of the workbook on if anyone needs it.

Thanks for any help.

Try something like:

Private Sub CommandButton1_Click()
    Dim Tot As Long
    Tot = TextBox1.Value
    
    If OptionButton1 = True Then
    Range("A1") = Abs(Tot)
    ElseIf OptionButton2 = True Then
    Range("A1") = Abs(Tot) * -1
    End If
End Sub

Thanks for the help. Some simple math skills there would have helped me multiply by -1...

Thanks again.

Glad I could help.

This is the code that I used. Pretty simple.

If btnAdded.Value = True Then
    ActiveCell.Offset(0, 7).Value = txtAmount.Value
ElseIf btnDeducted.Value = True Then
    ActiveCell.Offset(0, 7).Value = (txtAmount.Value * -1)
End If

thanks again for the help.