 |
 | Home | Contact Us | FAQ | Search & Site Map | Link to Us |
 | Sign In | Join | Other 45 Sites in Network |
| HomeDiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWordDirectoryUser Groups Related Topics Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ... |
MS Office Forum / Excel / General Excel Questions / March 2008Textbox value insert in two cells
How do modify the following code below so that the value in texbox1 will also be inserted in sheet5 cell "A1" Set LastRow = Sheet2.Range("a100").End(xlUp) LastRow.Offset(1, 0).Value = TextBox1.Text  Signaturekk sheet5.range("a1").value = textbox1.text (where sheet5 is the code name for that worksheet.) > How do modify the following code below so that the value in texbox1 will also > be inserted in sheet5 cell "A1" [quoted text clipped - 5 lines] > -- > kk SignatureDave Peterson Set LastRow = Sheet2.Range("a100").End(xlUp) LastRow.Offset(1, 0).Value = TextBox1.Text Wrksheeys("Sheet5").Range("A1").Value = TextBox1.Text Signature--- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) > How do modify the following code below so that the value in texbox1 will > also [quoted text clipped - 3 lines] > > LastRow.Offset(1, 0).Value = TextBox1.Text No idea what happened to my typing, it should be Set LastRow = Sheet2.Range("a100").End(xlUp) LastRow.Offset(1, 0).Value = TextBox1.Text Worksheets("Sheet5").Range("A1").Value = TextBox1.Text Signature--- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) > Set LastRow = Sheet2.Range("a100").End(xlUp) > [quoted text clipped - 8 lines] >> >> LastRow.Offset(1, 0).Value = TextBox1.Text Thanks guys But I need sheet5 to be the same as sheet2. In other words it looks for the last empty row both on sheet2 and sheet5 and inserts textbox1 value. Signaturekk > No idea what happened to my typing, it should be > [quoted text clipped - 15 lines] > >> > >> LastRow.Offset(1, 0).Value = TextBox1.Text Sorry about that I should have made it clear at first. I was meant to say last empty row, instead of inserting in cell A1. sorry!!!!! Signaturekk > Thanks guys > But I need sheet5 to be the same as sheet2. [quoted text clipped - 20 lines] > > >> > > >> LastRow.Offset(1, 0).Value = TextBox1.Text The same thing as you did before: Set LastRow = Sheet5.Range("a100").End(xlUp) LastRow.Offset(1, 0).Value = TextBox1.Text Make sure that 100 is large enough! > Thanks guys > But I need sheet5 to be the same as sheet2. [quoted text clipped - 43 lines] > > >> -- > > >> kk SignatureDave Peterson Thanks Dave, For some reason it does not work! This is part of the code I have. Any help would be great! Option Explicit Private Sub CommandButton1_Click() Dim LastRow As Object Application.EnableEvents = False Set LastRow = Sheet2.Range("a100").End(xlUp) LastRow.Offset(1, 0).Value = TextBox1.Text LastRow.Offset(1, 1).Value = TextBox2.Text If vbYes Then TextBox1.Text = "" TextBox2.Text = "" ComboBox1.Text = "" ComboBox2.Text = "" Else End If Set LastRow = Sheet5.Range("a100").End(xlUp) LastRow.Offset(1, 0).Value = TextBox3.Text LastRow.Offset(1, 1).Value = TextBox4.Text MsgBox "Do you want to enter another record?", vbYesNo If vbYes Then TextBox3.Text = "" TextBox4.Text = "" ComboBox3.Text = "" ComboBox4.Text = "" TextBox1.SetFocus Application.EnableEvents = True Call CommandButton99_Click Else End If End Sub Signaturekk > The same thing as you did before: > [quoted text clipped - 50 lines] > > > >> -- > > > >> kk I have no idea what your real purpose is, but maybe this does what you want: Option Explicit Private Sub CommandButton1_Click() Dim LastRow As Range Dim Resp As Long Application.EnableEvents = False Set LastRow = Sheet2.Range("a100").End(xlUp) LastRow.Offset(1, 0).Value = TextBox1.Text LastRow.Offset(1, 1).Value = TextBox2.Text Set LastRow = Sheet5.Range("a100").End(xlUp) LastRow.Offset(1, 0).Value = TextBox3.Text LastRow.Offset(1, 1).Value = TextBox4.Text Resp = MsgBox(Prompt:="Do you want to enter another record?", _ Buttons:=vbYesNo) If Resp = vbYes Then TextBox1.Text = "" TextBox2.Text = "" ComboBox1.Text = "" ComboBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" ComboBox3.Text = "" ComboBox4.Text = "" TextBox1.SetFocus Call CommandButton99_Click End If Application.EnableEvents = True End Sub > Thanks Dave, > For some reason it does not work! [quoted text clipped - 101 lines] > > > > Dave Peterson SignatureDave Peterson Here we go I shall try to explain it!! I have a userform with several textboxes and comboboxes. Textbox1 is titled �Name�. New users enter their names in textbox1 and then fill in all the other textboxes. The data is saved in sheets 2 in the next empty row, with the names in column �A�. I have run out of columns in sheet2 so I have added a new sheet (sheet5) with the same headings as sheet2. How do I get the name from textbox1 to load in sheet5 in the next empty row. The same as sheet2? Signaturekk > I have no idea what your real purpose is, but maybe this does what you want: > [quoted text clipped - 142 lines] > > > > > > Dave Peterson Why did your code use textbox3 and textbox4? Change them to what you want. > Set LastRow = Sheet5.Range("a100").End(xlUp) > LastRow.Offset(1, 0).Value = TextBox3.Text > LastRow.Offset(1, 1).Value = TextBox4.Text > Here we go I shall try to explain it!! > I have a userform with several textboxes and comboboxes. [quoted text clipped - 159 lines] > > > > Dave Peterson SignatureDave Peterson I have manage to sort it now. On my earlier post, I had the following code: > > Set LastRow = Sheet2.Range("a100").End(xlUp) > > LastRow.Offset(1, 0).Value = TextBox1.Text [quoted text clipped - 20 lines] > > ComboBox3.Text = "" > > ComboBox4.Text = "" I had inserted TextBox1.Text = "" In the wrong place. It should have gone after the message box. In effect I was clearing textbox1 before the data was entered in sheet5. It all works fine now. Signaturekk > Here we go I shall try to explain it!! > I have a userform with several textboxes and comboboxes. [quoted text clipped - 153 lines] > > > > > > > > Dave Peterson |
Reply to this Message |
 Sign In
 Join
 My Latest Posts My Monitored Threads My Blog My Photo Gallery My Profile My Homepage Start New Thread Enable EMail Alerts Rate this Thread
|
©2008 Advenet LLC Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.