VBA to copy data from textbox to another worksheet

[adityatandel]

I have a VB code for a button so that on clicking it, a blank text box appears. Once the user fills in data in the text box, I would like to create a command button like a "Submit" button that on clicking will send data from that text box to another worksheet at the bottom most empty row, first column. Could anyone help me with this?

 

[winger]

This should get you on the right track. You need to have a file in the same directory named “other_workbook.xls” or change the code to the name of the workbook to where you want to add the contents of the textbox to the last empty row in column A

Here is a link http://ptliving.net/d3/

Click on the link “2 attachments” and download “save to another workbook.xls”

Good luck!

winger

 

[winger]

Got distracted and forgot to include the code in my reply.

here ya go!

Option Explicit

Private Sub cmdOK_Click()

Workbooks.Open ("other_workbook.xls")

ActiveWorkbook.Sheets("Sheet1").Activate
Range("A1").Select


    Do
        If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
        End If
        Loop Until IsEmpty(ActiveCell) = True
    
    ActiveCell.Value = TextBox1.Value

End Sub

winger