How to make Textbox and CommandButton in Userform to transfer data is always displayed on the worksheet all the time?

[Kenor]

Hi all,

Anybody could help me?
How to make userform that i create to transfer data by insert the Row number in Textbox and click CommandButton is always displayed on the worksheet all the time?

 

[Logit]

See if this meets your needs ...

Option Explicit
Private Sub btnCancel_Click()
    Unload Me
End Sub

Private Sub btnOK_Click()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim newRow As Long
    
    newRow = Application.WorksheetFunction.CountA(ws.Range("A:A")) + 1
    
    'The next two lines can be expanded as many times as needed for all the entry fields in your project
    
    ws.Cells(newRow, 1).Value = Me.txtFirstName.Value
    ws.Cells(newRow, 2).Value = Me.txtSurname.Value
    
End Sub
Sub CommandButton1_Click()
    Selection.EntireRow.Delete
End Sub

Download example workbook : Simple Database.xlsm

 

[handri]

See if this meets your needs ...

Option Explicit
Private Sub btnCancel_Click()
    Unload Me
End Sub

Private Sub btnOK_Click()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim newRow As Long
   
    newRow = Application.WorksheetFunction.CountA(ws.Range("A:A")) + 1
   
    'The next two lines can be expanded as many times as needed for all the entry fields in your project
   
    ws.Cells(newRow, 1).Value = Me.txtFirstName.Value
    ws.Cells(newRow, 2).Value = Me.txtSurname.Value
   
End Sub
Sub CommandButton1_Click()
    Selection.EntireRow.Delete
End Sub

Download example workbook : Simple Database.xlsm

hi,

How do if i need to implement without ok button.

just enter than the data will capture in excel table.

thanks

 

[Logit]

Add the following to the UserForm code :

Private Sub txtSurname_AfterUpdate()
    btnOK_Click
End Sub

Delete the OK button from the UserForm.