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

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