Edit Data Melalui UserForm VBA Excel

Perhatikan gambar format gif diatas..!! begitu maksud dari posting ini. Edit Data melalui UserForm VBA Excel mengubah data yang terdapat dalam database. Edit data dilakukan untuk mengubah informasi yang ada dalam database dikarena kesalahan atau untuk melengkapi data yang benar. Ikuti langkah-langkah untuk membuat tombol edit data melalui UserForm VBA Excel.

Langkah-langkah Edit Data Melalui UserForm VBA Excel :

• Buka Visual Basic File Aplikasi Data (download di Posting Tombol Simpan VBA Excel)
• Buat 1 buah CommandButton ubah Name "CmdEdit" ubah Caption "EDIT" Melalui Properties
• Klik Kanan pilih View Code CmdEdit masukkan kode dibawah ini 

Private Sub CmdEdit_Click()
Dim Ws As Worksheet: Set Ws = Worksheets("DB")
Dim C As Range
Dim Baris As Long
If TxtNoInduk.Value = "" Then
MsgBox "Double Klik Untuk Pilih Data Yang Akan Di Edit", 16, "Aplikasi Data"
Exit Sub: End If
If MsgBox(" Anda Mau Ngedit Data : " & TxtNamaSiswa.Value, vbYesNo + 48, "Komfirmasi") = vbYes Then
Set C = Ws.Range("B4:B1000").Find(TxtNoInduk.Value, LookIn:=xlValues)
If Not C Is Nothing Then
Baris = C.Row
With Ws
.Cells(Baris, 2).Value = TxtNoInduk.Value
.Cells(Baris, 3).Value = TxtNamaSiswa.Value
.Cells(Baris, 4).Value = IIf(Me.OptLaki.Value = True, "Laki-Laki", "Perempuan")
.Cells(Baris, 5).Value = TxtAlamat.Value

End With
End If
Call ListDB
MsgBox "Data Telah DiRubah...", 64, "Aplikasi Data"
Else
Call CmdBatal_Click
MsgBox "Batal Edit Ya...", 64, "Aplikasi Data"
End If
End Sub

• Selesai..!! Jalankan Aplikasinya dengan menekan F5..!!