| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Textbox 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 -- kk |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Textbox value insert in two cells
sheet5.range("a1").value = textbox1.text
(where sheet5 is the code name for that worksheet.) kk wrote: 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 -- kk -- Dave Peterson |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Textbox value insert in two cells
Set LastRow = Sheet2.Range("a100").End(xlUp)
LastRow.Offset(1, 0).Value = TextBox1.Text Wrksheeys("Sheet5").Range("A1").Value = TextBox1.Text -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "kk" wrote in message ... 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 -- kk |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Textbox value insert in two cells
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 -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Bob Phillips" wrote in message ... Set LastRow = Sheet2.Range("a100").End(xlUp) LastRow.Offset(1, 0).Value = TextBox1.Text Wrksheeys("Sheet5").Range("A1").Value = TextBox1.Text -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "kk" wrote in message ... 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 -- kk |
|
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Textbox value insert in two cells
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. -- kk "Bob Phillips" wrote: 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 -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Bob Phillips" wrote in message ... Set LastRow = Sheet2.Range("a100").End(xlUp) LastRow.Offset(1, 0).Value = TextBox1.Text Wrksheeys("Sheet5").Range("A1").Value = TextBox1.Text -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "kk" wrote in message ... 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 -- kk |
|
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Textbox value insert in two cells
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!!!!! -- kk "kk" wrote: 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. -- kk "Bob Phillips" wrote: 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 -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Bob Phillips" wrote in message ... Set LastRow = Sheet2.Range("a100").End(xlUp) LastRow.Offset(1, 0).Value = TextBox1.Text Wrksheeys("Sheet5").Range("A1").Value = TextBox1.Text -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "kk" wrote in message ... 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 -- kk |
|
#7
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Textbox value insert in two cells
The same thing as you did befo
Set LastRow = Sheet5.Range("a100").End(xlUp) LastRow.Offset(1, 0).Value = TextBox1.Text Make sure that 100 is large enough! kk wrote: 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. -- kk "Bob Phillips" wrote: 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 -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Bob Phillips" wrote in message ... Set LastRow = Sheet2.Range("a100").End(xlUp) LastRow.Offset(1, 0).Value = TextBox1.Text Wrksheeys("Sheet5").Range("A1").Value = TextBox1.Text -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "kk" wrote in message ... 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 -- kk -- Dave Peterson |
|
#8
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Textbox value insert in two cells
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 -- kk "Dave Peterson" wrote: The same thing as you did befo Set LastRow = Sheet5.Range("a100").End(xlUp) LastRow.Offset(1, 0).Value = TextBox1.Text Make sure that 100 is large enough! kk wrote: 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. -- kk "Bob Phillips" wrote: 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 -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Bob Phillips" wrote in message ... Set LastRow = Sheet2.Range("a100").End(xlUp) LastRow.Offset(1, 0).Value = TextBox1.Text Wrksheeys("Sheet5").Range("A1").Value = TextBox1.Text -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "kk" wrote in message ... 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 -- kk -- Dave Peterson |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Automaticaly update a textbox from filtered cells | Excel Discussion (Misc queries) | |||
| Control Toolbox Textbox and Linked Cells | Excel Discussion (Misc queries) | |||
| Can't insert cells | Excel Discussion (Misc queries) | |||
| Insert copied cells | Excel Worksheet Functions | |||
| Insert spreadsheet in Excel textbox or comment box | Excel Discussion (Misc queries) | |||
Hybrid Mode
