Continue on next row in same cell VBA

[Wes4444]

Hi,

I have a userfrom that opens up on the click of a cell and then enters data into the active cell and then the cell to the right on the click of the Finish button:

Private Sub FinishButton_Click()
Application.ScreenUpdating = False

If Defect_Box.ListIndex = -1 Then
Cancel = 1
MsgBox "Select Defect Type"
Defect_Box.SetFocus
Exit Sub
End If

If Location_Box.ListIndex = -1 Then
Cancel = 1
MsgBox "Select Defect Location"
Location_Box.SetFocus
Exit Sub
End If

ActiveCell = Defect_Box.Value
ActiveCell.Offset(0, 1).Value = Location_Box.Value
Unload Me
Application.ScreenUpdating = False

I want to add a button that will add the data and then shift down a row, but still in the same cell for the next entry to be added.

Is this actually possible and if so how would it be done?

Thanks in Advance.

Wes

 

[Wes4444]

Yep just added an IF statement and works a charm. Thanks for you help!

 

[My Aswer Is This]

Glad I was able to help you.

Yep just added an IF statement and works a charm. Thanks for you help!