Cara menghapus data dengan Userform

Cara menghapus data dengan Userform - Pada artikel sebelumya telah saya jelaskan tentang cara input entri data kedalam excel dengan userform, bagi anda yang tertinggal bagaimana cara membuat input entri data kedalam excel dengan userform silahkan klik tautanya disini. Supaya adil saya akan berikan pula cara menghapus hasil input tadi dengan userform, tepatnya ada beberapa cara untuk menghapus data pada excel dengan userform

Cara menghapus data pada excel dengan userform

Saya akan mulai Cara menghapus data pada excel dengan userform dengan bagian yang termudah supaya ada mampu memahami dengan baik bagaimana logika Cara menghapus data pada excel dengan userform

1 Menghapus satu sel saja, kode macro yang dipakai tentu sederhana, misal saya akan menghapus nilai pada sel A1, kode macronya adalah

SUb Hapus_Sel_1
Range("A1").ClearContents
End Sub

2 Menghapus lebih dari satu sel , kode macro yang dipakai tentu masih sederhana, misal saya akan menghapus nilai pada sel A1 sampai A19, kode macronya adalah

SUb Hapus_Sel_2
Range("A1:A19").ClearContents
End Sub

Atau menghapus nilai dari sel A1 sampai D100 maka kodde macronya adalah

SUb Hapus_Sel_3
Range("A1:D100").ClearContents
End Sub

3 menghapus keseluruhan sel , kode macronya adalah

SUb Hapus_Sel_4
Cells.Delete
End Sub

Cara menghapus data pada excel dengan userform

Diatas adalah contoh menghapus nilai pada sel yang target selnya telah ditulis dengan bentuk kode macro, bagaimana sekarang jika yang akan kita hapus merupakan nilai dari sel yang berbeda beda, contoh kasus anda mempunyai data tabel dari sel A1 sampai D1000 (seribu), namun yang akan dihapus kadang hanya data dari baris sel A10 sampai D10, dan besuknya lagi anda ingin menghapus data dari sel A55 sampai D55. Untuk melakukan pekerjaan tersbut diperlukan sebuah tabel data yang rapi dan yang paling penting ada satu kolom yang mewakili kolom lainya, mungkin ini bisa juga disebut dengan Primary key, apa itu Primary key ?? Primary key adalah suatu nilai dalam basis data yang digunakan untuk mengidentifikasi suatu baris dalam tabel. Nilai dari primary key adalah unik

Supaya langsung kepoin utama , saya akan berasumsi bahwa anda mempunyai tabel data sebagaimana tabel data dalam gambar dibawah ini



Langsung saja masuk kejendela VBE atau VBA, Buat sebuah form dengan satu kontrol Textbox atau menggunakan combobox atau menggunakan Listbox ( saya menganjurkan untuk menggunakan listbox ) dan satu kontrol commandbutton, lihat yang telah saya buat ini



Karena saya menggunakan Kontrol listbox maka saya perlu memanggil data yang menjadi Primary key atau pada contoh kasus ini adalah data pada kolom A ( cara menampilkan data kedalam listbox lihat disini )

Private Sub UserForm_Initialize()
brs = Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row
Data = "A3:A" & brs
ListBox1.ColumnCount = 1
ListBox1.RowSource = Data
End Sub

Jika sudah berhasil menampilkan data kedalam listbox sekarang ketikan kode macro dibawah ini kedalam commandbutton

Private Sub CommandButton1_Click()
Set Wt = Sheet1
Set si = Wt.Cells(ListBox1.ListIndex, 1)
Set si = Sheets("sheet1").Range("A1:A1000").Find(ListBox1.Value, LookIn:=xlValues)
Range(si, si.Offset(0, 5)).Delete Shift:=xlUp
End Sub

Jika anda tidak menggunakan listbox akan tetapi menggunakan Textbox atau combobox maka ganti saja kode ini
Set si = Wt.Cells(ListBox1.ListIndex, 1)
Set si = Sheets("sheet1").Range("A1:A1000").Find(ListBox1.Value, LookIn:=xlValues)

Download - Cara menghapus data dengan Userform

#Membobolpasswordsheetdenganmacro #ExcelPro #Macro #VBA #MacroExcel #ExcelVba #BelajarExcel #BelajarMacro #BelajarVBA #KelasExcel #RumahExcel
ExcelPro, Excel Pro, Macro, VBA, #MacroExcel, ExcelVba, BelajarExcel, BelajarMacro, BelajarVBA, KelasExcel, RumahExcel

Demikianlah Cara menghapus data dengan Userform Semoga artikel kali ini bermanfaat , jika anda kesulitan download file sampel silahkan hubungi kami dengan mengisi kolom komentar dibawah, gabung di grup Excel Pro facebook follow IG kami atau Like fanpage Excel Pro

Masih ada beberapa Cara menghapus data dengan Userform yang lebih mudah, silahkan baca artikel lanjutan dari artikel ini pada link ini

Download - 423 Sampel Excel VBA dijmain mahir VBA

 Order Aplikasi Murah dengan design premium Info Disini