Update Data

[josros60]

Hi,

have the code below for adding new vendors, how it can be modified that and add a new button in the form just for updating new information in existing verndor on any the textboxes.


Code for adding:

Private Sub CommandButton4_Click()
Dim lastrow As Long
lastrow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row + 1

Sheets("Sheet1").Cells(lastrow, 1).Value = Me.TextBox1.Value
Sheets("Sheet1").Cells(lastrow, 2).Value = Me.TextBox5.Value
Sheets("Sheet1").Cells(lastrow, 3).Value = Me.TextBox2.Value
Sheets("Sheet1").Cells(lastrow, 4).Value = Me.TextBox3.Value
Sheets("Sheet1").Cells(lastrow, 5).Value = Me.TextBox4.Value

MsgBox " Data sucessfully Add"

Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""



End Sub

 

[josros60]

Any help please?

 

[Marc L]

Hi,​

​

rather than a guessing challenge for some mind readers forums​

just be more explicit with an explanation at the level of what any Excel forum expects for …​

 

[josros60]

Sorry my English no that good the code I posted is for adding new vendors what I meant how to modify that code to update existing vendors with new information.

Thank you