TextBox value increase +1 or -1 with Command Buttons

[Gal403]

Hello,

I recently received assistance from the community on how to code two separate command buttons to give a TextBox a value of +1 or -1. Thank you. The code suggested are:

Private Sub CommandButton2_Click()
If Me.TextBox75.Value = 0 Then
    Me.TextBox1.Value = 0
Else
    Me.TextBox75.Value = Me.TextBox75.Value - 1
End If
End Sub

and

Private Sub CommandButton3_Click()
Dim oldvalue As Double
oldvalue = Me.TextBox75.Value
Me.TextBox75.Value = oldvalue + 1
End Sub

However, as I continue to deign the UserForm1 I have more than a dozen Textboxes that require a set of command buttons to do the same +/- event. Not only does the form start looking cluttered but coding can get tedious. My question is: can someone suggest a code(s) that will allow one set of command buttons - commandbutton (+1) and commandbutton2 (-1) - that will affect more than one textbox1-12 WHEN the textbox "gets focus" from a mouse event (click).

Thank you - Gal403

[jolivanes]

See attached

Private Sub CommandButton1_Click()
    Dim i As Long
    For i = 1 To 12
        Controls("TextBox" & i).Value = Controls("TextBox" & i).Value + 1
    Next i
End Sub

Private Sub CommandButton2_Click()
    Dim i As Long
    For i = 1 To 12
        Controls("TextBox" & i).Value = Controls("TextBox" & i).Value - 1
    Next i
End Sub

Private Sub UserForm_Initialize()
    Dim i As Long
    For i = 1 To 12
        Controls("TextBox" & i).Value = 0
    Next i
End Sub

[Gal403]

Wow! That was fast, Jolivanes. The sample is pretty cool. However, I guess I didn't describe my situation clearly. Using the sample file you created what I desire is to have only one of the textboxes, when selected by a mouse click(), to either get a -1 or +1 when the respective commandbutton is pressed. The way it's coded now it appears that ALL textboxes are affected by the click of the -1 or +1 command button. Is it possible to create a code with only one set of command buttons that will focus on a single textbox?

[xlbiznes]

Hi,

Here is another one. Hope this helps.

[Gal403]

This sample is AMAZING! Thank you, 0 xlbiznes. It's exactly what I want the code to do. Give me a few days to analyze this and if I have any more question I'll post it on this thread. Very nice !