(beginer) vba textbox to enter data in a cell

dantb · Mar 26th, 2002, 05:51 PM

Hi all, My question is After making a userform with textboxes, How to get the data that someone has entered in the textbox, to a cell in a excel spreadsheet. Say I had a textbox named (Test), and whatever the person put in that box,I wanted it to go to Sheet 2 Cell ("A6"). Thx Dan

Colo · Mar 26th, 2002, 05:55 PM

Hi. How about this...

'Write in UserForm Module
Private Sub TEST_AfterUpdate()
Sheets("Sheet2").Range("A6").Value = TEST.Text
End Sub

dantb · Mar 26th, 2002, 05:57 PM

Thank you so much Colo. Sometimes hard to find answers. Have a good evening. Dan

Dawson · Mar 26th, 2002, 06:07 PM

following up on this - can anyone tell me how to ensure that the textbox value is numeric and not alphabetic?

dantb · Mar 26th, 2002, 07:19 PM

If I could follow up on my question. I noticed every time I run the userform, It eraces the previous information entered. Any way of keeping the information viewable (when reopening the form), and giving the the User the option of changing the information If req. Thx Dan

Dave Hawley · Mar 26th, 2002, 07:20 PM

How about

Private Sub TEST_AfterUpdate()
If IsNumeric(Test) Then
Sheets("Sheet2").Range("A6").Value = Test.Value
Else
MsgBox "Numbers only please"
Test.SetFocus
End If
End Sub

dantb · Mar 26th, 2002, 07:24 PM

Thanks Again all Many thanks !. Have a good evening. Dan

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 26th, 2002, 05:51 PM	#1
dantb Board Regular Join Date: Mar 2002 Location: Arkansas Posts: 358	Hi all, My question is After making a userform with textboxes, How to get the data that someone has entered in the textbox, to a cell in a excel spreadsheet. Say I had a textbox named (Test), and whatever the person put in that box,I wanted it to go to Sheet 2 Cell ("A6"). Thx Dan

Mar 26th, 2002, 05:55 PM	#2
Colo MrExcel MVP Join Date: Mar 2002 Location: Kobe, Japan Posts: 1,420	Hi. How about this... 'Write in UserForm Module Private Sub TEST_AfterUpdate() Sheets("Sheet2").Range("A6").Value = TEST.Text End Sub

Mar 26th, 2002, 05:57 PM	#3
dantb Board Regular Join Date: Mar 2002 Location: Arkansas Posts: 358	Thank you so much Colo. Sometimes hard to find answers. Have a good evening. Dan

Mar 26th, 2002, 06:07 PM	#4
Dawson New Member Join Date: Mar 2002 Location: London Posts: 20	following up on this - can anyone tell me how to ensure that the textbox value is numeric and not alphabetic?

Mar 26th, 2002, 07:19 PM	#5
dantb Board Regular Join Date: Mar 2002 Location: Arkansas Posts: 358	If I could follow up on my question. I noticed every time I run the userform, It eraces the previous information entered. Any way of keeping the information viewable (when reopening the form), and giving the the User the option of changing the information If req. Thx Dan

Mar 26th, 2002, 07:20 PM	#6
Dave Hawley Banned Join Date: Feb 2002 Posts: 1,582	How about Private Sub TEST_AfterUpdate() If IsNumeric(Test) Then Sheets("Sheet2").Range("A6").Value = Test.Value Else MsgBox "Numbers only please" Test.SetFocus End If End Sub

Mar 26th, 2002, 07:24 PM	#7
dantb Board Regular Join Date: Mar 2002 Location: Arkansas Posts: 358	Thanks Again all Many thanks !. Have a good evening. Dan