VB Form to populate spreadsheet.

  • Thread starter Thread starter Glenn Robertson
  • Start date Start date
G

Glenn Robertson

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.
 
Hello Glenn
To get the next available row:
Dim FirstEmptyRow As Long
FirstEmptyRow = Range("A65536").End(xlUp)(2).Row

HTH
Regards
Pascal
 
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)
 
see my response.

--

HTH

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

how do i tell it to populate this row
 
Back
Top