VB Form to populate spreadsheet.
 

Hi,

I am trying to find the best command I can use in visual
basic to do the following.
I have a user form with some textboxes and combo boxes.
txtname, txtpol, txtaddress etc.
I want a macro that when pushed will take this info and
put it into my spreasheet on row 1.
txtname = A1
txtpol = A2 etc.
But if another case is entered i need vb to populate the
next free row rather than insert the info over info
currently there.

VB Form to populate spreadsheet.
 

Hello Glenn
To get the next available row:
Dim FirstEmptyRow As Long
FirstEmptyRow = Range("A65536").End(xlUp)(2).Row

HTH
Regards
Pascal

"Glenn Robertson" a écrit dans le
message de ...
Hi,

I am trying to find the best command I can use in visual
basic to do the following.
I have a user form with some textboxes and combo boxes.
txtname, txtpol, txtaddress etc.
I want a macro that when pushed will take this info and
put it into my spreasheet on row 1.
txtname = A1
txtpol = A2 etc.
But if another case is entered i need vb to populate the
next free row rather than insert the info over info
currently there.

VB Form to populate spreadsheet.
 

Hi Glenn,

Here is the code

Dim cLastRow As Long

cLastRow = Cells(Rows.Count, "A").End(xlUp).Row
If cLastRow = 1 And Cells(cLastRow, "A") = "" Then
Else
cLastRow = cLastRow + 1
End If
With UserForm1
Cells(cLastRow, "A").Value = txtname.Text
Cells(cLastRow + 1, "A").Value = txtpol.Text
Cells(cLastRow + 2, "A").Value = txtaddress.Text
'etc.
End With

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Glenn Robertson" wrote in message
...
Hi,

I am trying to find the best command I can use in visual
basic to do the following.
I have a user form with some textboxes and combo boxes.
txtname, txtpol, txtaddress etc.
I want a macro that when pushed will take this info and
put it into my spreasheet on row 1.
txtname = A1
txtpol = A2 etc.
But if another case is entered i need vb to populate the
next free row rather than insert the info over info
currently there.

VB Form to populate spreadsheet.
 

how do i tell it to populate this row
-----Original Message-----
Hello Glenn
To get the next available row:
Dim FirstEmptyRow As Long
FirstEmptyRow = Range("A65536").End(xlUp)(2).Row

HTH
Regards
Pascal

"Glenn Robertson" a
écrit dans le
message de ...
Hi,

I am trying to find the best command I can use in visual
basic to do the following.
I have a user form with some textboxes and combo boxes.
txtname, txtpol, txtaddress etc.
I want a macro that when pushed will take this info and
put it into my spreasheet on row 1.
txtname = A1
txtpol = A2 etc.
But if another case is entered i need vb to populate the
next free row rather than insert the info over info
currently there.


.

VB Form to populate spreadsheet.
 

see my response.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

wrote in message
...
how do i tell it to populate this row
-----Original Message-----
Hello Glenn
To get the next available row:
Dim FirstEmptyRow As Long
FirstEmptyRow = Range("A65536").End(xlUp)(2).Row

HTH
Regards
Pascal

"Glenn Robertson" a
écrit dans le
message de ...
Hi,

I am trying to find the best command I can use in visual
basic to do the following.
I have a user form with some textboxes and combo boxes.
txtname, txtpol, txtaddress etc.
I want a macro that when pushed will take this info and
put it into my spreasheet on row 1.
txtname = A1
txtpol = A2 etc.
But if another case is entered i need vb to populate the
next free row rather than insert the info over info
currently there.


.