Form
 

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

Form
 

Hi Darren,
Make a fix In line
Cells(time, 1) = TextBox2.Text
to
Cells(time, 2) = TextBox2.Text

Regards,
Stefi

€žDarren€� ezt Ã*rta:

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

Form
 

Hi Darren,

Try:

'=============
Private Sub CommandButton1_Click()
Dim rng1 As Range
Dim rng2 As Range

With Sheets("Sheet1") '<<==== CHANGE
Set rng1 = .Cells(Rows.Count, "A").End(xlUp)(2)
Set rng2 = .Cells(Rows.Count, "B").End(xlUp)(2)
End With

rng1.Value = Me.TextBox1.Value
rng2.Value = Me.TextBox2.Value

End Sub
'<<=============


---
Regards,
Norman



"Darren" wrote in message
...
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