Command Button with options

[billyshears]

I have a userform setup that allows me to type a value into one of 5 different text boxes.

When I hit the command button, the value in Cell A1 should be changed by the value I type into one of the text boxes.

I know how to code the value being changed if I only have one box, but now that I several boxes, do I need an if statement here? If Box1=0, then grab value from Box2, if Box1 and Box2 = 0, then box 3 type of thing?

Thank you in advance

 

[Norie]

Will only one textbox be filled?

Is it always A1 that should be changed?

 

[billyshears]

One textbox will be filled and A2 should always be changed

 

[Norie]

You could loop through the textboxes to get the value.

Private Sub CommandButton1_Click()
Dim ctl As MSForms.Textbox
Dim idx As Long

    For idx = 1 To 5
        If Me.Controls("Box" & idx).Value <> "" Then
            Set ctl = Me.Controls("Box" & idx)
        End If
    Next I
   
    If Not ctl Is Nothing Then
        Range("A1").Value = Range("A1").Value + Val(ctl)
    End If
End Sub
[/code[

 

[billyshears]

Hmm..that seems out of my league. Would this be an easier way...

I have a userform setup with two text boxes that can be filled in.

TextBox A will increase Cell A1 by whatever figure I enter into the textbox

TextBox B will increase Cell A2 by whatever figure I enter into the textbox

I want to be able to bring up the userform, type the figures into Text Boxes A and B, and hit one button to execute the commands and then exit out of the userform.

I can get one textbox to work by using the following:

Private Sub CommandButton_Click()
With Sheets("Sheet1").Range("A1")
.Value = .Value - Me.TextBoxA.Value
End With
End Sub