√ Edit Data Melalui UserForm VBA Excel

Edit Data Melalui UserForm VBA Excel

Written By Silmi Kaffah Tuesday, December 22, 2015 38 Comments

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

38 Responses to "Edit Data Melalui UserForm VBA Excel"

Pardat .pNovember 7, 2016 at 11:49 AM
Mantap bang....
tolong bang, copy data terpilih di workbook menggunakan drag antar listbox..
(listbox1 = sheet1 kita drag ke listbox2 sehingga data dipilih tercopy ke sheet2)
mksh....
DEBBY VELADecember 1, 2016 at 12:01 PM
ada file nya gak? untuk belajar
Athaya LaundryFebruary 9, 2017 at 7:07 PM
Selamat malam bang... Artikel nya sungguh sangat menarik.. Mau tanya bang, misalnya ada data pegawai dan data gajinya, bagaimana membuatnya output.nya menjadi 1 (digabung)
MTs Nurul HudaApril 25, 2017 at 1:05 PM
Mantaf Jiwa! Boleh minta file nya bang?
saya pgn belajar neh... :)
MTs Nurul HudaApril 25, 2017 at 1:07 PM
file yang komplitnya dengan edit & cari data nya.
maksih gan atas kebaikannya... jazakallah
SMK Muhammadiyah GebangJune 14, 2017 at 2:08 AM
Private Sub SaveInputPembayaran_Click()
Dim Ws As Worksheet
Dim C As Range
Dim Baris As Long
If KelasCB.Value = "K1" Then
Set Ws = Worksheets("K1")
ElseIf KelasCB.Value = "K2" Then
Set Ws = Worksheets("K2")
End If
If NISTB.Value = "" Then
MsgBox "Double Klik Untuk Pilih Data Yang Akan Di Input", 16, "Aplikasi SPP"
Exit Sub: End If
If MsgBox(" Anda Input Pembayaran SPP & UBS : " & NamaTB.Value, vbYesNo + 48, "Komfirmasi") = vbYes Then
Set C = Ws.Range("B2:B37").Find(NISTB.Value, LookIn:=xlValues)
If Not C Is Nothing Then
Baris = C.Row
With Ws
.Cells(Baris, 10).Value = IIf(Me.Juli_Cb.Value = True, Sheet7.Range("B11").Value, "")
.Cells(Baris, 11).Value = tglBulanJuli.Value
.Cells(Baris, 12).Value = IIf(Me.Agustus_Cb.Value = True, Sheet7.Range("B11").Value, "")
.Cells(Baris, 13).Value = tglBulanAgustus.Value
End With
End If
MsgBox "Data Telah DiRubah...", 64, "Aplikasi SPP"
Else
Call CmdBatal_Click
MsgBox "Anda Telah Membatalkan Input Pembayaran", 64, "Aplikasi SPP"
End If

Yang berhasil cuman baris ke 10 bang, baris ke 11-13 gak masuk datanya... gmn yah? mohon pencerahannya
End Sub
Nurwahidin DIENSeptember 13, 2017 at 12:56 AM
salam hormat kepada suhu,
Kami adakesulitan di cmd ini, permasalahannya klo edit dari Checkbox dengan banyak vaian rumus nya gmana yah pak? klo di vontoh kan ad optionbutton dengan dufarian, nak klo yang pake chekbox dengan 3-6 varian gmana yah pak, terimakasih seelumnya.
AnonymousOctober 1, 2017 at 8:07 PM
Assalamu'alaikum,..
Pak ini ndak bisa edit NIS yak?? padahal edit NIS juga pentingm barangkali salah entri NIS,.. heheh
AnonymousOctober 3, 2017 at 8:09 AM
oh, makasih pak. Brarti kita buat acuan yang aja ya pak, contoh no. urut atau no register gitu,.. makasih banyak master (y)
Totalindo GroupNovember 29, 2017 at 4:56 PM
Sore Bang,,kalau data lebih dari 1 baris, misalnya faktur penjualan tuh..kan lbh dari 1 item barang..jd kalau mau edit sama dengan contoh diatas..gimana bang?
AnonymousJanuary 8, 2018 at 3:17 PM
Nama file untuk tutorial ini apa Gan? saya nyari di email gak ketemu2. Mohon pencerahannya. Tks
Mustopa Ibrahim AkbarFebruary 21, 2018 at 5:25 PM
mantaaap,,,bisa belajar nih gaan...
o'niel n.March 1, 2018 at 11:02 AM
angka 64 dan 16 itu apa ya???
Taufik GermMarch 22, 2018 at 8:07 PM
Cara membuat userformnya gimana ya gan itu yg di share kan cuma kode editnya..

Pengen membuat userformnya yg seperti itu
deni hidayatJune 2, 2018 at 2:28 AM
min, tombol edit maupun hapus di saya kok g bisa berfungsi, padahal saya udah lakukan klik 2x pada list
Pajri_fikomOctober 1, 2018 at 8:09 PM
mas saya sudah buat label keluar terus g mana ngeditnya lagi ga bisa masuk ke VBA pada excel yang dikerjaain
Mezran AsienkJanuary 25, 2019 at 3:53 PM
ma'af min.. numpang nanya. Efek mouse move userform kalau dalam frame gimana ya? Biar saat mouse dluar frame warna kembali.
Mezran AsienkJanuary 25, 2019 at 3:54 PM
Boleh minta nomer WA gak min? email:misran.chat@gmail.com