Contoh Vba Ubah Database

Tentu anda sudah melihat tampilan database excel di atas bukan. Bagaimana menurut anda...?
Sederhana dan mudah untuk mengelola sebuah data, itulah impian kita.
Format VBA di atas anda bisa membuatnya dengan kode di bawah ini :

Private Sub CommandButton1_Click()
Set Macro = Sheets("Sheet1")
Set EditMacro = Macro.Range("no")
Set c = EditMacro.Find(TextBox1.Value, _
        LookIn:=xlValues)
c.Offset(0, 1).Value = TextBox1.Value
c.Offset(0, 1).Value = TextBox2.Value
c.Offset(0, 2).Value = TextBox3.Value
c.Offset(0, 3).Value = TextBox4.Value
c.Offset(0, 4).Value = TextBox5.Value
c.Offset(0, 0).Value = TextBox6.Value
MsgBox "Ubah Data Sukses Tersimpan"
End Sub
Private Sub TextBox1_Change()
Set Macro = Sheets("Sheet1")
On Error Resume Next
Set EditMacro = Macro.Range("no")
Set c = EditMacro.Find(TextBox1.Value, _
        LookIn:=xlValues)
TextBox2.Value = c.Offset(0, 1).Value
TextBox3.Value = c.Offset(0, 2).Value
TextBox4.Value = c.Offset(0, 3).Value
TextBox5.Value = c.Offset(0, 4).Value
TextBox6.Value = c.Offset(0, 0).Value
End Sub

Dan ini contoh filenya, semoga bermanfaat.

Download disini