Save button for resave edited entry

[harimao]

Hai expert there
my save button can only saving new entry, so how can coding as updating edited entry too?

Picture_in_userform.xls

drive.google.com

Thanks

 

[dmt32]

Hi,
share the coding you have to save new entry - plenty here to offer suggestions how it could be modified to do what you want

Dave

 

[Logit]

You'll need a separate button for an EDIT SAVE.

Try this macro :

Sub SveEdit
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets(“Your Worksheet”)

    ‘find first empty row in database
    iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

    ‘copy the data to the worksheet
    ws.Cells(iRow, 1).Value = Me.TextBox1.Value
    ws.Cells(iRow, 2).Value = Me.TextBox5.Value
    ws.Cells(iRow, 3).Value = Me.TextBox7.Value
    ws.Cells(iRow, 4).Value = Me.TextBox8.Value
    ws.Cells(iRow, 5).Value = Me.TextBox9.Value
End Sub

NOTE : the above is a suggestion ... you will need to edit some portions to match your project.