VBA EXCEL HAPUS DATA SHEET MELALUI LISTBOX EXCEL
Memberikan hasil yang maksimal dan kepuasan terhadap pengunjung termasuk prioritas kami sehingga ini akan sangat detail dan singkat. Kami harap Anda meluangkan waktu beberapa menit untuk membaca penjelasan kami dibawah ini secara cermat.
Maksud dari judul diatas adalah Menghapus Data Yang Ada Di Sheet Melalui ListBox Excel.
Adapun alur Menghapus Data Sheet Melalui ListBox Excel sebagai berikut :
1. Anda mempunyai database di sheet1
2. Kemudian database tersebut tampil di listbox userform
3. Setelah Database Tampil Di ListBox, Database dihapus sesuai yang dipilih melalui Tombol
Oke, setelah jelas alurnya, kita buat objek satu per satu. Praktikkan !!
1. Buatlah data di sheet1 range A1:B10 dengan format (Nama Pegawai dan Jabatan)
2. Selanjutnya buatlah "Name Manager" dengan
Nama : kode
Refers To : =OFFSET(Sheet1!$A$1;1;0;COUNTA(Sheet1!$A:$A)-1;1)
Sehingga akan seperti gambar dibawah ini
3. Setelah itu tinggalkan bagian WorkSheet, sekarang silahkan Anda masuk ke VBA dengan cara tekan Alt+F11 atau pada Menu Tab "Developer" pilih "Visual Basic" Lihat Gambar dibawah
4. Buatlah 1 buah userform, didalam userform buatlah 2 buah Label, 3 buah TextBox 1 buah ListBox dan 2 buah CommandButton
5. Ganti Label 1 menjadi "Nama Pegawai" Label 2 "Jabatan" CommandButton1 "Hapus" dan CommandButton2 "Keluar" Lihat gambar dibawah
6. Klik 2 kali Userform dan masukan Kode Macro dibawah ini
Set dtitem = Sheets("Sheet1")
Set KeyRangeA = dtitem.Range("kode")
Set c = KeyRangeA.Find(TextBox1.Value, _
LookIn:=xlValues)
c.Offset(0, 1).Delete Shift:=xlUp
c.Offset(0, 2).Delete Shift:=xlUp
c.Offset(0, 3).Delete Shift:=xlUp
c.Offset(0, 4).Delete Shift:=xlUp
c.Offset(0, 5).Delete Shift:=xlUp
c.Offset(0, 0).Delete Shift:=xlUp
ThisWorkbook.Save
Call tampilitem
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub ListBox1_Click()
If ListBox1.ListIndex > 0 Then
TextBox1.Value = ListBox1.List(ListBox1.ListIndex, 1)
End If
End Sub
Private Sub TextBox1_Change()
Set dtitem = Sheets("Sheet1")
On Error Resume Next
Set KeyRangeA = dtitem.Range("kode")
Set c = KeyRangeA.Find(TextBox1.Value, _
LookIn:=xlValues) 'primer key
TextBox2.Value = c.Offset(0, 1).Value
TextBox3.Value = c.Offset(0, 2).Value
End Sub
Private Sub UserForm_Activate()
Set dtitem = Sheets("Sheet1")
If dtitem.FilterMode Then
dtitem.ShowAllData
End If
If dtitem.Range("A2").Value = "" Then
MsgBox "Database item kosong"
Exit Sub
End If
Call tampilitem
End Sub
Sub tampilitem()
Set dtitem = Sheets("Sheet1")
ListBox1.Clear
With ListBox1
.AddItem
.ColumnCount = 3
.BoundColumn = 3
.List(.ListCount - 1, 0) = "Nomor"
.List(.ListCount - 1, 1) = "Nama"
.List(.ListCount - 1, 2) = "Jabatan"
.ColumnWidths = 30 & ";" & 100 & ";" & 40
End With
With dtitem
Set rgTampil = dtitem.Range("kode"). _
SpecialCells(xlCellTypeVisible)
For Each sTampil In rgTampil
With ListBox1
.AddItem sTampil.Value
.List(.ListCount - 1, 0) = sTampil.Row - 1
.List(.ListCount - 1, 1) = sTampil.Value
.List(.ListCount - 1, 2) = sTampil.Offset(0, 1).Value
End With
Next sTampil
End With
ListBox1.SetFocus
End Sub
7. Selesai, dan sekarang silahkan jalankan dengan menekan tombol F5 atau dengan tombol RUN pada VBA
Jika Anda melakukan langkah diatas dengan benar dan penempatan kode macro juga benar maka, kode macro tersebut akan berjalan sesuai intruksi yang Anda buat.
8. Jika sudah, silahkan simpan dengan nama Hapus Data Sheet Melalui ListBox Userform Excel Untuk Type atau extensinya pilih ExcelMacro-EnableWorkbook atau extensi yang dapat menjalankan kode macro seperti .xlsm, .xlsb dan lain-lain
PRIORITAS KAMI
Kami sangat memperhatikan hasil maksimal dan kepuasan bagi pengunjung sehingga selain artikel diatas, kami juga menyediakan sampel file gratis tanpa proteck untuk pemahaman yang mendalam.
Apabila Anda merasa bahwa artikel ini bagus dan layak untuk dibagikan maka silahkan share ke sosial media yang Anda punya, bisa lewat Facebook, Google Plus, Whatsapp, Telegram dll.
Link Artikel Ini :
Semoga artikel ini bermanfaat bagi kita semua. AAMIIINN
"Kami Selalu Berusaha Memberikan Yang Terbaik Dan Original Untuk Anda"
Jabat Erat@Hak Cipta 2015
1 comment for "KODE MACRO HAPUS DATA SHEET MELALUI LISTBOX EXCEL"