How to input data to multiple tables with input box

Question

I wrote a script to ask for user input. I know how to write the script to enter it into one cell or enter it into every empty cell at the end of the row. What I don't know is how to write it so that the user input value is inputted in one cell on two separate sheets. Can someone help me re-write this code to do that?

Sub AddText()
Dim myRange As String
myRange = Application.inputbox("Enter Item Number", "1")
Range("S1").Value = myRange
End Sub

Scott Holtzman · Accepted Answer · 2017-09-15 15:20:13Z

1

Qualify the range with the worksheet object associated with it (this is also best practice, no matter what you're doing). I also changed the variable name to make more sense because its best practice to have meaningful and clear variable names (and a Range usually refers to one more spreadsheet cells, not a string value.

Sub AddText()

    Dim sInput as String
    sInput = Application.inputbox("Enter Item Number", "1")

    Worksheets("Sheet1").Range("S1").Value = sInput
    Worksheets("Sheet2").Range("S1").Value = sInput

End Sub

answered Sep 15, 2017 at 15:20

Scott Holtzman

27.3k5 gold badges42 silver badges76 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

ChrisM · Accepted Answer · 2017-09-15 15:20:02Z

1

Sheets("Sheet1").Range("S1").Value = myRange
Sheets("Sheet2").Range("S1").Value = myRange

answered Sep 15, 2017 at 15:20

ChrisM

1,6026 gold badges23 silver badges29 bronze badges

1 Comment

Lando Over a year ago

So simple... Thanks ChrisM!

Collectives™ on Stack Overflow

How to input data to multiple tables with input box

2 Answers 2

Comments

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related