Is it possible to enter text into an excel userform from a commandbutton on the same userform?

Question

I am attempting to make an excel userform appear to behave more like an independent app than a userform. I would rather program an app but because of company IT rules that is not an option.

See image. Is it possible to enter data into an active textbox on the form by using a commandbutton on the included key pad?

Image of userform:

The form is not coded yet.

Thanks

Answer 1

Depending on what you want to do. Actually, once you click on the button to enter data on the button, the textbox would not be active any more. Anyhow, if you do not need the activetextbox, but another one, you may use the following code:

Let's say that you have a button btnOpenFile and a Label lblInformation . You want, once you click on the button, to get "ALE ALE" in the lblInformation .

The most simple code to achieve this is probably this one:

Private Sub btnOpenFile_Click()

    me.lblInformation = "ALE ALE"

End Sub

Put it inside the UserForm.

Answer 2

Something like this in support of my comment

Private tb As MSForms.TextBox

Private Sub CommandButton1_Click()
    tb.Value = tb.Value & CommandButton1.Caption
End Sub

Private Sub CommandButton2_Click()
    tb.Value = tb.Value & CommandButton2.Caption
End Sub

Private Sub CommandButton3_Click()
    tb.Value = tb.Value & CommandButton3.Caption
End Sub

Private Sub CommandButton4_Click()
    tb.Value = tb.Value & CommandButton4.Caption
End Sub

Private Sub TextBox1_Enter()
    Set tb = Me.TextBox1
End Sub

Private Sub TextBox2_Enter()
    Set tb = Me.TextBox2
End Sub