Tiga cara menghapus entri data pada excel - Yang namanya pekerjaan rutinitas seorang bagian administrasi tidak akan luput dari database, sudah sampai disini saja basa basinya untuk kali ini saya akan membagikan Tiga cara menghapus entri data pada excel. Coba baca ulasan pada artikel sebelumnya tentang cara membuat entri data dan cara edit entri data

Tiga cara menghapus entri data pada excel silahkan ikuti tutorialnya dibawah ini atau kalau anda tidak suka basa basi langsung saja download file sampelnya dibagian bawah artikel ini :

Siapkan workbook baru, simpan workbook tadi dalam format XLSM (Nama File.xlsm), hapus saja semua sheet kecuali sheet1, kemudian buat database sebagaimana data seperti digambar ini



Buat juga tombol Commandbuttton seperti digambar ini


Masuk kejendela VBE dengan menekan tombol ALT+F11 ingat tekan ALT terlebih dahulu baru F11, jangan ditekan bersamaan
Tutorial kali ini akan menggunakan kontrol Commandbuttton, Textbox, Combobox dan kontrol listbox, jadi tidak ada salahnya jika anda melihat artikel terdahulu saya yang membahas tentang cara menggunakan kontrol Combobox dan Kontrol listbox

Untuk cara menghapus entri data pada excel cara pertama silahkan buat design form sebagaimana gambar dibawah ini


Untuk cara menghapus entri data pada excel cara kedua silahkan buat design form sebagaimana gambar dibawah ini


Untuk cara menghapus entri data pada excel cara ketiga silahkan buat design form sebagaimana gambar dibawah ini


Namun jika anda malas membuat design form-nya silahkan download file latihanya dibawah ini


Untuk menghapus entri data pada excel cara pertama gunakan kode macro dibawah ini
Private Sub CommandButton1_Click()
Set Dt = Sheets("Sheet1")
Set SelRecord = Dt.Cells(TextBox1.Value)

Set SelRecord = Dt.Range("A3:A100"). _
Find(TextBox1.Value, LookIn:=xlValues)
Range(SelRecord, SelRecord.Offset(0, 7)).Delete Shift:=xlUp

End Sub

Untuk menghapus entri data pada excel cara kedua gunakan kode macro dibawah ini
Private Sub UserForm_Activate()
Set Dt = Sheets("Sheet1")
On Error Resume Next
Dim iPA As Range
Dim NoDupes As New Collection

Set Status = Dt.Range("A3", Dt.Range("A3").End(xlDown))
ComboBox1.Clear
For Each iPA In Status
NoDupes.Add iPA.Value, CStr(iPA.Value)
Next iPA
For Each Hasil In NoDupes
ComboBox1.AddItem Hasil
Next Hasil
End Sub


Dan juga kode macro ini

Private Sub CommandButton1_Click()
Set Dt = Sheets("Sheet1")
Set SelRecord = Dt.Cells(ComboBox1.Value)
Set SelRecord = Dt.Range("A3:A100"). _
Find(ComboBox1.Value, LookIn:=xlValues)
Range(SelRecord, SelRecord.Offset(0, 7)).Delete Shift:=xlUp
Call UserForm_Activate
End Sub

Untuk menghapus entri data pada excel cara ketiga gunakan kode macro dibawah ini
Private Sub UserForm_Activate()
Set Dt = Sheets("Sheet1")
On Error Resume Next
Dim iPA As Range
Dim NoDupes As New Collection

Set Status = Dt.Range("A3", Dt.Range("A3").End(xlDown))
ListBox1.Clear
For Each iPA In Status
NoDupes.Add iPA.Value, CStr(iPA.Value)
Next iPA
For Each Hasil In NoDupes
ListBox1.AddItem Hasil
Next Hasil
End Sub

Dan juga kode macro ini

Private Sub CommandButton1_Click()
Set Dt = Sheets("Sheet1")
Set SelRecord = Dt.Cells(ListBox1.Value)
Set SelRecord = Dt.Range("A3:A100"). _
Find(ListBox1.Value, LookIn:=xlValues)

Range(SelRecord, SelRecord.Offset(0, 7)).Delete Shift:=xlUp
Call UserForm_Activate
End Sub

Terakhir letakan kode macro ini di area Sheet1
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Private Sub CommandButton2_Click()
UserForm2.Show
End Sub
Private Sub CommandButton3_Click()
UserForm3.Show
End Sub

Tutup jendela VBE lalu klik setiap tombol yang anda buat sebelumnya.

Cara menghapus melalui cara kedua dan ketiga cukup mudah, anda tinggal pilih data yang akan dihapus lalu klik tombol "Hapus", masalahnya ada pada cara pertama, anda harus mengetikan data yang sama antara kolom textbox1 dengan kolom worksheet A baru klik tombol "hapus".

Sedikit tambahan penjelasan

Coba anda perhatikan kode macro yang saya warnai merah, atau lihat kode macro dibawah ini

Set SelRecord = Dt.Range("A3:A100").Find(TextBox1.Value, LookIn:=xlValues)
Set SelRecord = Dt.Range("A3:A100").Find(ListBox1.Value, LookIn:=xlValues)
Set SelRecord = Dt.Range("A3:A100").Find(ComboBox1.Value, LookIn:=xlValues)

Baik cara pertama, cara kedua dan cara ketiga semunya mengacu pada kolom A, Kolom A merupakan kunci dari keberhasilan operasi ini, jadi dengan kata lain nilai dari setiap kolom yang ada pada kolom A tidak boleh kembar, ini hukumnya wajib.
Range("A3:A100") Jika database yang anda buat sudah mencapai 1000 maka ganti menjadi Range("A3:A1000") dan seterusnya.

Demikianlah Tiga cara menghapus entri data pada excel, semoga bermanfaat aamiin
No comments