Coding Hapus data pada VBA Excel

Coding Hapus data pada VBA Excel

Koding Cara Hapus Data Pada VBA Excel


Seperti terlihat pada gambar diatas, 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 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.

Baca Juga  Template Jadwal Shift

Tinggalkan Komentar

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Need Help? Chat with us