Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
TextBox Coding Help
Sorry but I am just a newbie to Visual basic.
I have a worksheet (Sheet 1) into which I have created a User form with 2 text boxes (TextBox1, TextBox2) and 1 command button (CommandButton1). In the results of these boxes need to go into specific cells. Eg. TextBox1 into A1 and TextBox2 into A3 when the command button is clicked. So... found in help the coding below that I placed into declarations of Sheet 1 in the file called Test.xlt. It does not display the form when I create a new document based on Test.xlt and I do not know how to get the coding to place the results in a cell. If you could also direct me to either a good beginner VBA site for Excel or a good book for a rank beginner, I would be grateful! Private Sub UserForm_Initialize() TextBox1.Text = "From TextBox1!" TextBox2.Text = "Hello " CommandButton1.Caption = "Cut and Paste" CommandButton1.AutoSize = True End Sub Private Sub CommandButton1_Click() TextBox2.SelStart = 0 TextBox2.SelLength = TextBox2.TextLength TextBox2.Cut TextBox1.SetFocus TextBox1.SelStart = 0 TextBox1.Paste TextBox2.SelStart = 0 End Sub So how do I modify the above??? Help! Thanks! Shauna |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
TextBox Coding Help
I don't have time to get into your question but this should be valuable
for one aspect you mentioned: http://www.mvps.org/dmcritchie/excel/getstarted.htm |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
TextBox Coding Help
OK, with a little persistence I got it working when I am
viewing the userform and I click Run Sub, but I am not sure how to get it to display the UserForm when your File menu, New, and choose the template - generating a new workbook? Private Sub UserForm_Initialize() Load UserForm1 'Position 2 is center of screen, postion 3 top left corner UserForm1.StartUpPosition = 2 UserForm1.Show CommandButton1.Caption = "OK" End Sub Private Sub CommandButton1_Click() 'Insert text from textboxes into cells With ActiveDocument Worksheets("Sheet1").Range("A1") = TextBox1.Text Worksheets("Sheet1").Range("A3") = TextBox2.Text End With UserForm1.Hide End Sub Thanks! Shauna -----Original Message----- Sorry but I am just a newbie to Visual basic. I have a worksheet (Sheet 1) into which I have created a User form with 2 text boxes (TextBox1, TextBox2) and 1 command button (CommandButton1). In the results of these boxes need to go into specific cells. Eg. TextBox1 into A1 and TextBox2 into A3 when the command button is clicked. So... found in help the coding below that I placed into declarations of Sheet 1 in the file called Test.xlt. It does not display the form when I create a new document based on Test.xlt and I do not know how to get the coding to place the results in a cell. If you could also direct me to either a good beginner VBA site for Excel or a good book for a rank beginner, I would be grateful! Private Sub UserForm_Initialize() TextBox1.Text = "From TextBox1!" TextBox2.Text = "Hello " CommandButton1.Caption = "Cut and Paste" CommandButton1.AutoSize = True End Sub Private Sub CommandButton1_Click() TextBox2.SelStart = 0 TextBox2.SelLength = TextBox2.TextLength TextBox2.Cut TextBox1.SetFocus TextBox1.SelStart = 0 TextBox1.Paste TextBox2.SelStart = 0 End Sub So how do I modify the above??? Help! Thanks! Shauna . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Calculate Textbox value based on another textbox value.doc | Excel Discussion (Misc queries) | |||
Calculate Textbox value based on another textbox value | Excel Discussion (Misc queries) | |||
How to fix the coding? | Excel Worksheet Functions | |||
coding | Excel Discussion (Misc queries) | |||
UserForm TextBox to ActiveSheet TextBox over 256 characters | Excel Programming |