Cara menghapus data dengan Userform lanjutan

Cara menghapus data dengan Userform lanjutan - Sebelumnya telah saya jelaskan cara menghapus data dengan Userform silahkan rujuk keisini . Dan untuk kesempatan kali ini saya akan menerangkan kembali cara lain menghapus data, cara ini lebih mudah dibandingkan dengan cara pertama, saya mengatakan lebih mudah karena pada cara pertama banyak ditemukan kesulitan salah satu kesulitan yang saya maksud adalah pada bagian kode macro ini Set si = Wt.Cells(ListBox1.ListIndex, 1), dengan cara yang kedua ini lebih mudah untuk langsung dipraktekan

Sebelumnya silahkan anda download terlebih dahulu file sampel ini , kemudian baca kembali cara menggunakan scrollbar lihat disini

Download - File latihan

 Buka file hasil download, perhatikan pada sheet1

 Masuk langsung kejendela VBE
 Insert Userform, seret tiga kontrol pada toolbox yaitu Label, commandbutton, dan scroll bar
 Perhatikan gambar Userform dibawah ini


 Masukan kode macro dibawah ini kedalam event Userform Activate

Private Sub UserForm_Activate()
Private Sub UserForm_Activate()
Set Ws = Sheets("Sheet1")
i = Ws.Cells(Ws.Rows.Count, "A").End(xlUp).Offset(0, 0).Row - 2
ScrollBar1.Min = 1
ScrollBar1.Max = i
ScrollBar1.Value = 1
Label1.Value = "Jumlah Record : " & i
End Sub

 Lalu ketikan kode macro dibawah ini kedalam Event ScrollBar1 Change

Private Sub ScrollBar1_Change()
Label1.Caption = "Nomor Record : " & ScrollBar1.Value
End Sub

 Yang terakhir masukan kode macro ini kedalam Event Tombol Hapus

Private Sub CommandButton1_Click()
Set ws = Sheets("Sheet1")
NoRecord = ScrollBar1.Value + 2
Set SelRecord = ws.Cells(NoRecord, 1)
Range(SelRecord, SelRecord.Offset(0, 5)).Delete Shift:=xlUp
ScrollBar1.Max = ScrollBar1.Max - 1
End Sub

 Sekarang coba jalankan kode macronya
 Untuk memilih data yang akan dihapus silahkan geser kekanan atau kekiri scroll bar
 Kode macro ini Range(SelRecord, SelRecord.Offset(0, 5)).Delete Shift:=xlUp angka 5 merupakan jumlah kolom, jika kolom berjumlah 10 maka ganti angka 5 menjadi 10

 Coba tambahkan kode macro ini untuk mengganti kode macro pada scrollbar1

Private Sub ScrollBar1_Change()
Set ws = Sheets("Sheet1")
NoRecord = ScrollBar1.Value + 2
Label1.Caption = "Nama : " & ws.Cells(NoRecord, 2).Value
End Sub

 Simpan dan selesai sudah
Follow IG Wasis Zain atau Like fanpage Excel Pro
Download Aplikasi buatan Excel Pro dan

Download - 423 Sampel Excel VBA dijmain mahir VBA

 Order Aplikasi Murah dengan design premium Info Disini