Membuat Tombol Edit Data Melalui UserForm VBA Excel

Di Tulis : Oemah Belajar | ,

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


⬆
Top