Edit Data Melalui UserForm VBA Excel

Perhatikan gambar format gif dibawah..!! 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.

Tombol edit pada aplikasi sangat dibutuhakn untuk memperbaiki kesalahan data yang di input. Setiap aplikasi diharuskan untuk menempatkan tombol edit data. 

Admin sangat menyarankan bagi yang sedang mempelajari kode Vba Excel agar membuat file contoh penerapan kode. Dengan membuat file contoh penerapan kode akan mempercepat memahami penggunaan dan fungsi dari kode yang diterapkan

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..!!

Berbagi :