Userform populate data in Column B, C, D and then repeat for next row

[tbush33]

Hello,

I am trying to create a form that allows users to enter a request and then it will populate the data into the worksheet. The issue is that I have data in column A that needs to stay there, so I need the data to go to the next cell in B. For example:

[TABLE="width: 500, align: center"]
<tbody>[TR]
[TD]RFA ID[/TD]
[TD]Requested By[/TD]
[TD]Date[/TD]
[TD]Description[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]John[/TD]
[TD]12/13[/TD]
[TD]yada yada[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]


In the table above I want the data from my user form to go to Columns labeled - Requested By, Date, & Description. Then for the next user to use the form, I would like it to enter their information into row 2, etc. Here is the code I have now, but it requires the cell to be selected:

Private Sub cmdSubmit_Click()

If txtName.Value = "" Then
    If MsgBox("Please enter name or type Anonymous") Then
    Exit Sub
    End If
End If
    
ActiveCell = txtName.Value
ActiveCell.Offset(0, 1) = DT1.Value
ActiveCell.Offset(0, 2) = txtDesc.Value


ActiveCell.Offset(1, 0).Select




Call resetForm


End Sub




Sub resetForm()


txtName.Value = ""
txtDesc.Value = ""
formRFA.txtName.SetFocus


End Sub

Any help on this matter would be much appreciated!!

Thanks,
Travis

 

[Max1616]

Try this:

Private Sub cmdSubmit_Click()
Dim lrow As Long
If txtName.Value = "" Then
    If MsgBox("Please enter name or type Anonymous") Then
    Exit Sub
    End If
End If
lrow = Cells(Rows.Count, 2).End(xlUp).Row
Cells(lrow, 2) = txtName.Value
Cells(lrow, 3) = DT1.Vaqlue
Cells(lrow, 4) = txtDesc.Value
Unload Me
End Sub

Let me know if you have questions!

 

[tbush33]

Thanks Max! It worked, but it replaced my headers. Is there anyway that it could find the next empty row?

 

[tbush33]

So the data populates COLUMNS B,C,D but do not find the first empty row. Instead it replaced my Headers. Any chance there is a solution for that?

 

[My Aswer Is This]

Try changing this line of code:

lrow = Cells(Rows.Count, 2).End(xlUp).Row

To this:

lrow = Cells(Rows.Count, 2).End(xlUp).Row+1

 

[Max1616]

Yes, use what My Answer Is This suggested!