Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Textbox filling cells
Is there a way to modify this code where the cells that are populated with
the Textbox1.Text are cells A1 through A8 Private Sub CommandButton1_Click() Dim LastRow As Object Set LastRow = ActiveSheet.Range("a65536").End(xlUp) LastRow.Offset(1, 0).Value = TextBox1.Text MsgBox "One Passenger Added" response = MsgBox("Do you want to enter another Passenger?", _ vbYesNo) If response = vbYes Then TextBox1.Text = "" TextBox1.SetFocus Else Unload Me End If End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Textbox filling cells
See if this does what you ask, only does cells A1 to A8 and doesn't ask the
questions since you said you wanted them for sure. Still unloads. Private Sub CommandButton1_Click() For i = 1 to 8 Cells(i,1)= TextBox1.Text Next Unload Me End Sub -- -John Please rate when your question is answered to help us and others know what is helpful. "jnf40" wrote: Is there a way to modify this code where the cells that are populated with the Textbox1.Text are cells A1 through A8 Private Sub CommandButton1_Click() Dim LastRow As Object Set LastRow = ActiveSheet.Range("a65536").End(xlUp) LastRow.Offset(1, 0).Value = TextBox1.Text MsgBox "One Passenger Added" response = MsgBox("Do you want to enter another Passenger?", _ vbYesNo) If response = vbYes Then TextBox1.Text = "" TextBox1.SetFocus Else Unload Me End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Filling in blank cells with information from cells above it | Excel Discussion (Misc queries) | |||
Filling cells | Excel Programming | |||
Filling cells | Excel Programming | |||
Filling cells | Excel Programming | |||
Filling a textbox with text in another cell | Excel Programming |