Data Entry Form Inserting New Row Outside of Table

[Niccii]

Hello!

I've created a Data Entry form that I want to insert a new row at the top of of a table.

The code I'm using was copied from another site and, while it is indeed adding a new row, it's doing so in the cells below the table instead of inside which is negating the table formatting altogether.

I'm hoping you can help me change this code to operate as such. I'll attach screenshots to hopefully better illustrate what I'm looking to do.

Thanks!

Private Sub cmdAdd_Click()
    'Copy input values to sheet.
    Dim IRow As Long
    Dim ws As Worksheet
    Set ws = Projects

    IRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    With ws
        .Cells(IRow, 1).Value = Me.txtJobNumber.Value
        .Cells(IRow, 2).Value = Me.txtProjectName.Value
        .Cells(IRow, 3).Value = Me.txtDueDate.Value
        .Cells(IRow, 4).Value = Me.cboStatus.Value
        .Cells(IRow, 6).Value = Me.txtClientName.Value
        .Cells(IRow, 7).Value = Me.txtAddress.Value
        .Cells(IRow, 8).Value = Me.txtCity.Value
        .Cells(IRow, 9).Value = Me.txtState.Value
        .Cells(IRow, 10).Value = Me.txtZip.Value
        .Cells(IRow, 11).Value = Me.txtCounty.Value
        .Cells(IRow, 12).Value = Me.txtProjState.Value
        .Cells(IRow, 13).Value = Me.txtJobDescription.Value
        .Cells(IRow, 14).Value = Me.cboEngineer.Value
        .Cells(IRow, 15).Value = Me.cboSurvey.Value
        .Cells(IRow, 16).Value = Me.cboDraftsman.Value

    End With

Capture.PNG

[sintek]

Hi Niccii

I want to insert a new row at the top of of a table.

You have not uploaded a sample file but this will give you an idea...

Option Explicit

Sub AddToFirstRowofTable()
Dim ws As Worksheet
Set ws = Sheets("Projects")
With ws
  With .ListObjects("Table1") ' Change Table1 to name of your table
    .ListRows.Add (1) ' the (1) depicts first row
    .DataBodyRange(1, 1) = " NewValue1"
    .DataBodyRange(1, 2) = " NewValue2"
    '.DataBodyRange(1, 1).Resize(, 2) = Array("NewValue1", "NewValue2") 'or this can be used to populate above two values
  End With
End With
End Sub

[Niccii]

Sintek, how silly of me, I hadn't thought to connect the workbook!

I've attached it now if you'd like to take a look at it.
(At least I tried to, it won't let me post it until I've made a few posts)

I did attempt to add your code, but I'm not entirely sure how to make it fit in with the cmdAdd_Click code.

I tend to overreach for my skill set, but I guess that's how we learn, right?

Private Sub cboStatus_DropButtonClick()
    'Populate control.
    Me.cboStatus.AddItem "New Project"
    Me.cboStatus.AddItem "In Survey"
    Me.cboStatus.AddItem "On Deck"
    Me.cboStatus.AddItem "In Work"
    Me.cboStatus.AddItem "In Review"
    Me.cboStatus.AddItem "In Engineering"
    Me.cboStatus.AddItem "CANCELLED"
    
End Sub
Private Sub cboEngineer_DropButtonClick()
    'Populate control.
    Me.cboEngineer.AddItem "BL"
    Me.cboEngineer.AddItem "DL"
    Me.cboEngineer.AddItem "JB"
    Me.cboEngineer.AddItem "JH"
    Me.cboEngineer.AddItem "LM"
    Me.cboEngineer.AddItem "SC"
    Me.cboEngineer.AddItem "SM"
    Me.cboEngineer.AddItem "SO"

End Sub
Private Sub cboDraftsman_DropButtonClick()
    'Populate control.
    Me.cboDraftsman.AddItem "ED"
    Me.cboDraftsman.AddItem "LRH"
    Me.cboDraftsman.AddItem "MP"
    
End Sub
Private Sub cboSurvey_DropButtonClick()
    'Populate control.
    Me.cboSurvey.AddItem "AR"
    Me.cboSurvey.AddItem "DL"
    Me.cboSurvey.AddItem "JL"
    Me.cboSurvey.AddItem "MP"
    
End Sub

Private Sub cmdAdd_Click()
    'Copy input values to sheet.
    Dim IRow As Long
    Dim ws As Worksheet
    Set ws = Projects

    IRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    With ws
    .Cells(IRow, 1).Value = Me.txtJobNumber.Value
    .Cells(IRow, 2).Value = Me.txtProjectName.Value
    .Cells(IRow, 3).Value = Me.txtDueDate.Value
    .Cells(IRow, 4).Value = Me.cboStatus.Value
    .Cells(IRow, 6).Value = Me.txtClientName.Value
    .Cells(IRow, 7).Value = Me.txtAddress.Value
    .Cells(IRow, 8).Value = Me.txtCity.Value
    .Cells(IRow, 9).Value = Me.txtState.Value
    .Cells(IRow, 10).Value = Me.txtZip.Value
    .Cells(IRow, 11).Value = Me.txtCounty.Value
    .Cells(IRow, 12).Value = Me.txtProjState.Value
    .Cells(IRow, 13).Value = Me.txtJobDescription.Value
    .Cells(IRow, 14).Value = Me.cboEngineer.Value
    .Cells(IRow, 15).Value = Me.cboSurvey.Value
    .Cells(IRow, 16).Value = Me.cboDraftsman.Value
    End With
    
    'Clear input controls.
    Me.cboStatus.Value = ""
    Me.txtJobNumber.Value = ""
    Me.txtProjectName.Value = ""
    Me.txtDueDate.Value = ""
    Me.txtClientName.Value = ""
    Me.txtAddress.Value = ""
    Me.txtCity.Value = ""
    Me.txtState.Value = ""
    Me.txtZip.Value = ""
    Me.txtCounty.Value = ""
    Me.txtProjState.Value = ""
    Me.cboEngineer.Value = ""
    Me.cboSurvey.Value = ""
    Me.cboDraftsman.Value = ""
    Me.txtJobDescription.Value = ""
        
End Sub
Private Sub cmdClose_Click()
    'Close UserForm.
    Unload Me
    
End Sub

Private Sub Label1_Click()

End Sub

[sintek]

Private Sub cmdAdd_Click()
Dim ws As Worksheet
Set ws = Sheets("Project Tracking")
With ws
    With .ListObjects("Table1")
        .ListRows.Add (1)
        .DataBodyRange(1, 1) = Me.txtJobNumber.Value
        .DataBodyRange(1, 2) = Me.txtJobNumber.Value
        'etc for rest of columns
    End With
End With
End Sub

[Niccii]

Hmm, it's still not adding at the top of the checklist, so the data set is listed backwards to what I'd prefer... it may just work for the time being. I'm not sure how much I want to fight it.

[sintek]

What do you mean...

Hmm, it's still not adding at the top of the checklist

What checklist...
Explain in detail where you want the data to be added...Perhaps you should upload a before and after sheet with your expected results depicted...
The code provided will add your new data to row 3 of your Table...every time you press the button