KODE MACRO HAPUS DATA SHEET MELALUI LISTBOX EXCEL

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

Private Sub CommandButton1_Click()
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 :

https://www.mtsbmtumbrasanom.id/2019/01/kode-macro-hapus-data-sheet-melalui.html

Semoga artikel ini bermanfaat bagi kita semua. AAMIIINN

"Kami Selalu Berusaha Memberikan Yang Terbaik Dan Original Untuk Anda"
Jabat Erat@Hak Cipta 2015

Subscribe to receive free email updates:

0 Response to "KODE MACRO HAPUS DATA SHEET MELALUI LISTBOX EXCEL"