G
Guest
i am trying to set up a user form where a first name and last name are
entered. The first name must be inserted under column a and last name under
column b.
Here is the code that i am using:
Private Sub CommandButton1_Click()
Dim ans As String
Dim time As String
Sheets("sheet1").Activate
ans = Application.WorksheetFunction.CountA(Range("a:a")) + 1
Cells(ans, 1) = TextBox1.Text
TextBox1.Text = ""
time = Application.WorksheetFunction.Count(Range("b:b")) + 2
Cells(time, 1) = TextBox2.Text
TextBox2.Text = ""
End Sub
This throws both under column a
entered. The first name must be inserted under column a and last name under
column b.
Here is the code that i am using:
Private Sub CommandButton1_Click()
Dim ans As String
Dim time As String
Sheets("sheet1").Activate
ans = Application.WorksheetFunction.CountA(Range("a:a")) + 1
Cells(ans, 1) = TextBox1.Text
TextBox1.Text = ""
time = Application.WorksheetFunction.Count(Range("b:b")) + 2
Cells(time, 1) = TextBox2.Text
TextBox2.Text = ""
End Sub
This throws both under column a