How to Fill Data Entry via Userform in Table 1 ???????

[krunal123]

Option Explicit

Private Sub cmdSave_Click()
Dim LR As Integer, Master As Worksheets
Set Master = ThisWorkbook.Worksheets("Master")

LR = Master.Cells(Rows.Count, "A").End(xlUp).Row

If LR = 2 And Cells(LR, "A").Value = "" Then
LR = LR
Else
LR = LR + 1
End If

Master.Cells(LR, "A").Value =ID.Value
Master.Cells(LR, "B").Value = Name.Value
Master.Cells(LR, "C").Value = GENDER.Value
Master.Cells(LR, "D").Value = Address.Value
Master.Cells(LR, "E").Value = CONTACTNo.Value
Master.Cells(LR, "F").Value = DEPARTMENT.Value

End Sub

 

[dmt32]

Hi

If you are posting your record to an Excel Table then the code needs a different approach

See if this update does what you want

Private Sub cmdSave_Click()
    Dim tblMaster     As ListObject
    Dim NewRecord   As ListRow
  
    Set tblMaster = ThisWorkbook.Worksheets("Master").ListObjects(1)
  
    'Add New row to the table
    Set NewRecord = tblMaster.ListRows.Add(AlwaysInsert:=True)
  
     With NewRecord
        .Range(1).Value = Me.ID.Value
        .Range(2).Value = Me.txtName.Value
        .Range(3).Value = Me.Gender.Value
        .Range(4).Value = Me.Address.Value
        .Range(5).Value = Me.ContactNo.Value
        .Range(6).Value = Me.Department.Value
    End With

    MsgBox "New Record Added To Table", 64, "Record Added"

End Sub

Note that I have renamed your control Name to txtName.

Name object is a member of the Names collection for the Application, Workbook, and Worksheet objects and using it as a control name may give rise to conflicts – to avoid this, you can use a common naming convention for your controls by prefixing them with their data type.

You can read more here: User Form object naming conventions

Hope Helpful

Dave

 

[krunal123]

Hi

If you are posting your record to an Excel Table then the code needs a different approach

See if this update does what you want

Private Sub cmdSave_Click()
    Dim tblMaster     As ListObject
    Dim NewRecord   As ListRow
 
    Set tblMaster = ThisWorkbook.Worksheets("Master").ListObjects(1)
 
    'Add New row to the table
    Set NewRecord = tblMaster.ListRows.Add(AlwaysInsert:=True)
 
     With NewRecord
        .Range(1).Value = Me.ID.Value
        .Range(2).Value = Me.txtName.Value
        .Range(3).Value = Me.Gender.Value
        .Range(4).Value = Me.Address.Value
        .Range(5).Value = Me.ContactNo.Value
        .Range(6).Value = Me.Department.Value
    End With

    MsgBox "New Record Added To Table", 64, "Record Added"

End Sub

Note that I have renamed your control Name to txtName.

Name object is a member of the Names collection for the Application, Workbook, and Worksheet objects and using it as a control name may give rise to conflicts – to avoid this, you can use a common naming convention for your controls by prefixing them with their data type.

You can read more here: User Form object naming conventions

Hope Helpful

Dave

Error Showing This ..................................... Not working this

 

[dmt32]

That is different to code I posted & means cannot find a control with that name

With NewRecord
        .Range(1).Value = Me.ID.Value
        .Range(2).Value = Me.txtName.Value
        .Range(3).Value = Me.Gender.Value
        .Range(4).Value = Me.Address.Value
        .Range(5).Value = Me.ContactNo.Value
        .Range(6).Value = Me.Department.Value
    End With

If you have renamed any of the controls you will need to update your code accordingly

Dave