How to input data into certain cells in excel sheet using VBA form?

[acousticlife81]

I am trying to create a form that allows the user to input data into certain fields. Here is the code for the Submit or Okay Button. The data needs to go from the form to cells B15:I15 AND then once entered add another entry to the next row C16:I16 and etc. Please if anyone can help it would be much appreciated.

'Here is the code!!!!!!!

Private Sub CommandButton2_Click()
Dim emptyRow As Long


'Make Sheet1 active
Sheet1.Activate


'Determine emptyRow
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1


'Transfer information
Cells(emptyRow, 1).Value = NameTextBox.Value
Cells(emptyRow, 2).Value = TaskTextBox.Value
Cells(emptyRow, 3).Value = AssignedByListBox.Value
Cells(emptyRow, 4).Value = StatusComboBox.Value
Cells(emptyRow, 5).Value = DateTextBox.Value


End Sub

 

[dmt32]

Hi
welcome to forum

see if this update to your code does what you want:

Private Sub CommandButton2_Click()
    Dim emptyRow As Long
    
    'Determine emptyRow
    emptyRow = Sheet1.Cells(Sheet1.Rows.Count, "B").End(xlUp).Row + 1
    If emptyRow < 15 Then emptyRow = 15
    
    
    'Transfer information
    Sheet1.Cells(emptyRow, 2).Resize(, 5).Value = Array(NameTextBox.Value, TaskTextBox.Value, _
                                                    AssignedByListBox.Value, StatusComboBox.Value, _
                                                    DateValue(DateTextBox.Value))
                                 
End Sub

Dave

 

[acousticlife81]

Thank you Dave works like a charm!