I have this code on a Submit button and the button is named SubmitButton3, after I press Submit the form disappears and no data is logged in my columns. Any Ideas?
Private Sub SubmitButton3_Click()
Dim NextEmptyRow As Integer
NextEmptyRow = Range("B10005").End(xlUp).Row + 1
Worksheets("Register").Cells(NextEmptyRow, 2).Value = "Survey"
Worksheets("Register").Cells(NextEmptyRow, 3).Value = SurveyForm.Date.Text
Worksheets("Register").Cells(NextEmptyRow, 4).Value = SurveyForm.Name.Text
Worksheets("Register").Cells(NextEmptyRow, 5).Value = SurveyForm.Time3.Text
SurveyForm.Hide
End Sub
Private Sub SubmitButton3_Click()
Dim NextEmptyRow As Integer
NextEmptyRow = Range("B10005").End(xlUp).Row + 1
Worksheets("Register").Cells(NextEmptyRow, 2).Value = "Survey"
Worksheets("Register").Cells(NextEmptyRow, 3).Value = SurveyForm.Date.Text
Worksheets("Register").Cells(NextEmptyRow, 4).Value = SurveyForm.Name.Text
Worksheets("Register").Cells(NextEmptyRow, 5).Value = SurveyForm.Time3.Text
SurveyForm.Hide
End Sub