Kali ini admin akan berbagi bagaimana menghapus semua sheet yang ada pada lembar kerja kita kecuali sip yang aktif.
Kode hari ini akan sangat berguna apabila kita memiliki banyak sheet tapi kita ingin menghapusnya kecuali sheet yang sedang kita kerjakan atau sheet yang sedang aktif.
Peringatan. Sebelum menjalankan kode ini pastikan tidak ada sheet penting yang akan kita hapus karena saat kita menghapus menggunakan kode vba maka tombol undo tidak akan berfungsi lagi.
Berikut adalah kode untuk menghapus semua kecuali yang sedang aktif.
Sub HapusSemuaKecualiSheetAktif() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name <> ThisWorkbook.ActiveSheet.Name Then Application.DisplayAlerts = False ws.Delete Application.DisplayAlerts = True End If Next ws End Sub
Download File Contoh
Hapus Semua Sheet Kecuali Sheet Aktif - OK.zip
Semoga bermanfaat,
Salam ALMaS.
Kantor berkreasi.net
Alamat :
Pens Sky Venture - Sukolilo Surabaya
Karangrejo Tmur 17 Surabaya
Email : Alamat email ini dilindungi dari robot spam. Anda memerlukan Javascript yang aktif untuk melihatnya.
Alamat email ini dilindungi dari robot spam. Anda memerlukan Javascript yang aktif untuk melihatnya. Form Kontak : Klik Disini
WA : 085 331 270 386 im3 (CS / Ali)
Bank BNI
No.rek. 0865254338
Atas nama BERKREASI MULTITECH. CV
Bank BRI Cab. Wonokromo
No.rek. 0976 01 004629 50 8
Atas nama IMAS KHASANAH
Dr. Nugroho Eko Putro, M.Pd.
Iqbal F. Rakhmat, SE., MM., M.Kom
Budi Prasetya, ST., MM.
Amien sawedi, S.Pd.
Muhammad Risal Maros, M.Pd.
Didik P Wicaksono, M.Pd.
Wayan Mulyana, M.Pd.
Ali, M.Pd.