Tombol Hapus UserForm VBA Excel

Tombol Hapus UserForm VBA Excel - Menghapus data di Excel merupakan hal yang termudah dapat dilakukan. Untuk menghapus semua data dapat dilakukan dengan cara menekan tombol shortcut Ctrl + A selanjutnya gunakan tombol Delete.

Menghapus data pada baris, kolom ataupun cell tertentu pada Excel juga dapat dilakukan dengan mudah. Kita dapat menghapus data pada baris, kolom ataupun pada cell dengan cara menyeleksi atau memilih data yang akan dihapus selanjut gunakan tombol Delete.

Tugas hapus menghapus data memang lebih mudah dilakukan dari pada membuat data itu sendiri. 

Tombol Hapus UserForm VBA Excel 

Pada kesempatan ini admin akan mencoba berbagi mengenai cara membuat tombol hapus data melalui UserForm Vba Excel. 

Kita akan menempatkan beberapa kode pada sebuah tombol dan akan menjalankan perintahnya untuk menghapus data ketika pengguna menggunakannya.

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.

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 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 admin yang belajar otodidak cara membuat aplikasi dengan menggunakan VBA Excel.

Semoga menjadi referensi buat anda yang membutuhkan dan dapat dikembangkan kembali berdasarkan kemampuan masing-masing.

Penjelesan yang admin sampaikan dalam artikel ini dengan judul Tombol Hapus UserForm VBA Excel terdapat banyak kekurangan dan kurangnya penjelesan secara detail yang mungkin akan membuat bingung pembaca.

Jika ada hal-hal yang tidak jelas mohon dapat disampaikan pertanyaan pada kolom komentar yang tersedia di bawah artikel ini. Sampaikan juga saran serta kritikan yang membangun untuk admin sehingga admin dapat membangun sebuah blog yang lebih baik.

Jika artikel ini dirasakan ada manfaat dan berguna bagi pengguna dan pengembang aplikasi berbasis Excel mohon dapat dibagikan ke teman-teman lainnya melalui media sosial.

Berbagi :