Code to input data from a text box into a workbook

**Chatters** · 01-25-2013, 06:57 PM

I'm want to build a graphical user interface to enable data entry to be made easier at work. I will probably be able to work out everything I need after finding out the first bit.

Basically I'm just looking for how to input data from a text box on a gui into a cell in a different workbook when the user clicks an add button.

If somebody could give me an example of this code then I think I'd be able to do most of the database.

**scott.s.fower** · 01-25-2013, 07:50 PM

here's a great guide on user forms, you can modify the code to put the input data into a different workbook, I would put together an example, but it takes a while for me since i'm still new at forms

http://www.fontstuff.com/ebooks/free/fsUserForms.pdf

attached is an example workbook with a form that i made from the instruction from the link above
user form test.xlsm

**Chatters** · 01-26-2013, 09:18 AM

Many thanks
I will have a look and see what I can do.

**smuzoen** · 01-25-2013, 07:59 PM

This is very basic but it may get you started - I have attached a workbook for you. You will need to have the second workbook open to have the value entered.

Private Sub CommandButton1_Click()
Dim wb2 As Workbook, ws2 As Worksheet
Set wb2 = Workbooks("ReceivingWorkbook.xlsx")
Set ws2 = wb2.Worksheets("Sheet1")
ws2.Range("A1") = TextBox1.Value
Unload UserForm1
End Sub

This code can be behind a button on a Userform so when the user hits the button the value is entered into the workbook called ReceivingWorkbook. As I said previously this workbook needs to be open. For it to be robust you really should programmatically check if the workbook is open and if not then open the workbook. As I say this is very basic but will get you going.