Help with my userform code

Joined
Jun 25, 2009
Messages
7
Reaction score
0
Hello,
The following code finds the first completely empty row, but I want it to insert the data on the same row as the first empty cell in column D. If anyone could help me with this I'd be elated.
Thanks,
Brian

Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("People")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

'check for a part number
If Trim(Me.txtName1.Value) = "" Then
Me.txtName1.SetFocus
MsgBox "Please enter new person."
Exit Sub
End If

'copy the data to the database
ws.Cells(iRow, 4).Value = Me.txtName1.Value
ws.Cells(iRow, 5).Value = Me.txtName2.Value
ws.Cells(iRow, 7).Value = Me.txtLOR.Value
ws.Cells(iRow, 2).Value = Me.txtRl.Value
ws.Cells(iRow, 10).Value = Me.txtGender.Value
ws.Cells(iRow, 8).Value = Me.txtbrthyear.Value

'clear the data
Me.txtName1.Value = ""
Me.txtName2.Value = ""
Me.txtLOR.Value = ""
Me.txtRl.Value = ""
Me.txtGender.Value = ""
Me.txtbrthyear.Value = ""
Unload Me
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top