Private Sub EDIT1_Click()
On Error Resume Next
Dim lastrow
Dim X1 As String
Set ws = Worksheets("SPROPR")
ws.Activate
lastrow = ws.Range("T" & Rows.Count).End(xlUp).Row
X1 = Jenis_Unit.text
For baris4 = 1 To lastrow
If Cells(baris4, 2).text = X Then
ws.Cells(baris4, 20).Value = Me.ID_Unit.Value
ws.Cells(baris4, 21).Value = Me.Jenis_Unit.Value
ws.Cells(baris4, 22).Value = Me.Merek.Value
ws.Cells(baris4, 23).Value = Me.Cabin.Value
ws.Cells(baris4, 24).Value = Me.No_Mesin.Value
ws.Cells(baris4, 25).Value = Me.No_Seri.Value
ws.Cells(baris4, 26).Value = Me.Lokasi1.Value
Call MsgBox("Data Telah Update", vbInformation, "Update Data")
End If
Next baris4
Jenis_Unit.SetFocus
Me.ID_Unit.Value = ""
Me.Jenis_Unit.Value = ""
Me.Merek.Value = ""
Me.Cabin.Value = ""
Me.No_Mesin.Value = ""
Me.No_Seri.Value = ""
Me.Lokasi1.Value = ""
End Sub
Mohon bantu koreksi jika ada yg salah