Wednesday, December 16, 2015

Tombol Hapus UserForm VBA Excel

Seperti terlihat pada gambar dibawah, perintah hapus data yang di pilih dari UserForm. sebelumnya harus diperhatikan bahwa untuk memasukkan data dari ListBox ke Textbox sudah pernah kita bahas pada posting Tampilkan Data Dari ListBox Ke TextBox Dengan Double Klik. Data yang dipilih dengan double klik dari ListBox akan tampil ke TextBox. Selanjutnya kita akan menggunakan perintah hapus untuk menghapus data.  Posting ini merupakan kelanjutannya dalam membuat sebuah aplikasi dengan perintah dari UserForm VBA Excel. 


Langkah-langkah cara membuat Tombol Hapus Dari UserForm :
  • Buka Visual Basic File Aplikasi Data (Tombol Simpan VBA Excel)
  • Tambahkan Commandbutton pada UserForm, ganti (Name) menjadi "CmdHapus". Selanjutnya Klik kanan pada CmdHpus pilih View Code. Perhatikan gambar dibawah
  • Masukkan kode berikut ini untuk perintah hapus data
Private Sub CmdHapus_Click()
Dim Ws As Worksheet
Dim Kode As Variant
Dim Baris As Long
Dim C As Range
If TxtNoInduk.Text = "" Then
MsgBox "Double Klik Untuk Input Data Yang Akan Hapus..!!", 16, "Aplikasi Data"
Exit Sub: End If
If MsgBox("Anda Yakin Akan Menghapus Data : " & TxtNamaSiswa.Text, vbYesNo + 48, "Aplikasi Data") = vbYes Then
Set Ws = Worksheets("DB")
Kode = Me.TxtNoInduk.Value
With Ws.Range("B4:B1000")
Set C = .Find(Kode, LookAt:=xlWhole)
If Not C Is Nothing Then
Baris = C.Row
Ws.Cells(Baris, 1).Value = ""
Ws.Cells(Baris, 2).Value = ""
Ws.Cells(Baris, 3).Value = ""
Ws.Cells(Baris, 4).Value = ""
Ws.Cells(Baris, 5).Value = ""
C.EntireRow.Delete
End If
End With
MsgBox "Data Telah Di Hapus", 64, "Aplikasi Data"
Else
MsgBox "Hapus Data Telah Di Batalkan", , "Aplikasi Data"
End If
Call CmdBatal_Click
Call ListDB
End Sub
  • Selesai..!! Jalankan Aplikasinya...!! bila sudah mengikuti dengan benar tombol hapus data akan berfungsi sebagaimana mestinya.
Demikian sedikit penjelasan dari saya yang belajar otodidak cara membuat aplikasi dengan menggunakan VBA Excel. Semoga menjadi referensi buat anda yang membutuhkan.



2 komentar

pak, dari rangkaian postingan bapak tentang membuat form, edit hapus dan cari data dengan listbox..
apakah dari semua itu listboxnya diganti dengan listview.?
beda ga kode nya pak.?

BEDA..!! Bpk Chepy 1933 tinggal mengubah kebutuhan dari ListBox menjadi ListView. Penggunaan ListView juga memerlukan kodenya sendiri karena Properties dari ListView Jauh berbeda dengan ListBox... Untuk kode ListView saya masih terkendala mempostingnya karena Excel saya tu Error dengan ListView. Sudah saya konsultasi sama master vba namun bleom menemukan solusinya tentang OCX yang tidak mendukung.

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon