What is a simple Code for Userform?

Michael Cavaggioni 1

im adding a userform into my spreadsheet and want to add a click button. very new to code::: what code would i write to simply add text written into the userform into my spreadsheet. thank you all in advance

Erin Ding-MSFT 4,456 Reputation points

2021-03-30T01:15:40.463+00:00

@Michael Cavaggioni
Based on your description, your issue is more related to code, I will modify the tag. Thanks for your understanding.

1 answer

Viorel 112.1K Reputation points

2021-03-30T05:29:16.62+00:00
Go to your userform designer, insert the TextBox and CommandButton (dragging from Toolbox), and then double click the added button to go to Click handler. Then enter a code like this:

Private Sub CommandButton1_Click() Dim ws As Worksheet Set ws = ActiveSheet ws.Range("A1").Value = TextBox1.Text End Sub

(Adjust the names if your controls are called differently). This example copies the text from textbox to A1 cell of current worksheet.
Please sign in to rate this answer.
Michael Cavaggioni 1 Reputation point

2021-03-30T12:41:11.653+00:00

@Viorel - thank you so much. unfortunately its not doing anything. nothing enters into spreadsheet. no error messages either

here is a screens hoot of my sheet with command box

Viorel 112.1K Reputation points

2021-03-30T13:04:44.763+00:00

Maybe the code is not good. Show some details. Which code is executed when you press "ADD"?

Michael Cavaggioni 1 Reputation point

2021-03-30T13:07:57.89+00:00

thank you for your reply @Viorel
nothing executes when i run the macro

Viorel 112.1K Reputation points

2021-03-30T13:19:58.157+00:00

This picture contains two dropdown lists. Instead of “Label1”, select the name of your ADD button, probably “CommandButton1”. Then go to second dropdown list and select “Click”. This should add the code that is executed on button click. Initially it is empty. Try inserting this test code:

MsgBox "Button clicked" Dim ws As Worksheet Set ws = ActiveSheet ws.Range("A2").Value = "Some text"

Show your new code if the button still does not work.

Michael Cavaggioni 1 Reputation point

2021-03-30T14:11:31.737+00:00

its gettuing there...lol...thank you so much - really wish i knew howe to code like this.

so now the text is being replaced but not with what i enter in the box - see screen shot below as well as code used

Viorel 112.1K Reputation points

2021-03-30T14:21:11.623+00:00

Use another line:

ws.Range("A2").Value = TextBox1.Text

where TextBox1 is the name of your textbox.

Michael Cavaggioni 1 Reputation point

2021-03-30T17:52:23.857+00:00

YOU ARE A GENIUS...SEEMS TO BE WORKING
IF I MAY - HOW DO I NOW ADD MULTIPLE BOXES IN THE SAME FORM AND ENSURE THE CODE WORKS - THROUGHOUT
Sign in to comment