Menghapus Sheet

Menghapus / delete sheet merupakan hal yang lumrah bagi pengguna excel dan sangat mudah dilakukan dengan cara manual. Delete sheet menggunakan makro / VBA tentunya tidak merugikan untuk dicoba. Jika hapus menghapus sheet ini merupakan kegiatan rutin, maka VBA merupakan pilihan yang tepat untuk diterapkan.

1.  Menghapus Sheet Yang Sedang Aktif

Ini merupakan prosedur delete sheet yang paling sederhana. Seperti halnya cara manual delete sheet yang sering dilakuin kebanyakan user.

Sub HapusSheetAktif() Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True End Sub

2.  Menghapus Semua Sheet Kecuali Sheet Yang Sedang Aktif

Jika kamu hanya memerlukan satu sheet saja, sedangkan sheet lainnya hanya berisi kumpulan data tidak berguna maka prosedur nomor 2 adalah pilihan yang tepat.

Sub HapusSemuaSheetKecualiSheetAktif() Dim Wb As Workbook, Sht Set Wb = ActiveWorkbook Application.DisplayAlerts = False For Each Sht In Wb.Sheets If Not Sht.Name = ActiveSheet.Name Then Sht.Delete End If Next Application.DisplayAlerts = True End Sub

3.  Menghapus Sebuah Sheet Tertentu

Kamu melihat bahwa ada sebuah sheet tidak berguna dan harus dihapus, maka gunakan prosedur ini. Mirip prosedur nomor 1, hanya saja tidak perlu mengaktifkan sheetnya terlebih dahulu.

Sub HapusSheetDgnNamaTertentu() Dim Wb As Workbook, Sht, namaShtHapus As String Set Wb = ActiveWorkbook namaShtHapus = "List 1" ' bisa diganti sesuai keperluan Application.DisplayAlerts = False For Each Sht In Wb.Sheets If Sht.Name = namaShtHapus Then Sht.Delete End If Next Application.DisplayAlerts = True End Sub

4.  Menghapus Beberapa Sheet Yang Memiliki Nama Depan Tertentu

Kamu bisa menandai sheet-sheet yang tidak diperlukan dengan ciri-ciri nama depan tertertentu. Ajib.. kamu bisa menghapusnya sekaligus.

Sub HapusSheetDgnNamaDepanTertentu() Dim Wb As Workbook, Sht Dim namaDepanShtHapus As String Set Wb = ActiveWorkbook namaDepanShtHapus = "List" ' bisa diganti sesuai keperluan Application.DisplayAlerts = False For Each Sht In Wb.Sheets If Left(Sht.Name, Len(namaDepanShtHapus)) = namaDepanShtHapus Then Sht.Delete End If Next Application.DisplayAlerts = True End Sub

5. Menghapus Satu Atau Lebih Sheet Paling Depan

Oh... Ternyata beberapa sheet paling depan tidak berguna. Tinggal hapus saja pake cara ini.

Sub HapusBeberapaSheetPalingDepan() Dim Wb As Workbook, Sht Dim i As Integer, jmlShtHapus As Integer, jmlShtTotal As Integer Set Wb = ActiveWorkbook jmlShtTotal = Wb.Sheets.Count On Error GoTo batal jmlShtHapus = InputBox("Input jumlah sheet yang akan dihapus") If jmlShtHapus > jmlShtTotal Then MsgBox "Inputan jumlah sheet yang akan dihapus tidak boleh " & Chr(10) _ & "melebihi jumlah sheet yang ada dalam workbook", vbOKOnly, "Ups ada masalah !!!" Exit Sub End If Application.DisplayAlerts = False For i = 1 To jmlShtHapus Wb.Sheets(i).Delete Next Application.DisplayAlerts = True Exit Sub batal: Exit Sub End Sub

6.  Menghapus Satu Atau Lebih Sheet Paling Belakang

Eh... yang ini malah beberapa sheet paling belakang yang hanya menambah beban memory, tapi tidak ada gunanya sama sekali. Lebih baik hapus saja deh dengan cara ini.

Sub HapusBeberapaSheetPalingBelakang() Dim Wb As Workbook, Sht Dim i As Integer, jmlShtHapus As Integer, jmlShtTotal As Integer Set Wb = ActiveWorkbook jmlShtTotal = Wb.Sheets.Count On Error GoTo batal jmlShtHapus = InputBox("Input jumlah sheet yang akan dihapus") If jmlShtHapus > jmlShtTotal Then MsgBox "Inputan jumlah sheet yang akan dihapus tidak boleh " & Chr(10) _ & "melebihi jumlah sheet yang ada dalam workbook", vbOKOnly, "Ups ada masalah !!!" Exit Sub End If Application.DisplayAlerts = False For i = 1 To jmlShtHapus Wb.Sheets(jmlShtTotal - i + 1).Delete Next Application.DisplayAlerts = True Exit Sub batal: Exit Sub End Sub

7.  Menghapus Semua Sheet Grafik

File excel ku ternyata ada banyak sheet grafik yang sudah kehilangan referensi sumber datanya. Daripada menuh-menuhin  memoy, lebih afdhol delete saja ah..

Sub hapusSemuaSheetGrafik() Dim Wb As Workbook Application.DisplayAlerts = False Set Wb = ThisWorkbook If Wb.Charts.Count > 0 Then Wb.Charts.Delete Else MsgBox "Tidak ada sheet grafik" End If Application.DisplayAlerts = True End Sub

Jika ada saran / koreksi terkait code VBA untuk menghapus sheet, jangan ragu untuk tinggalkan pesan / komentar.

Salam..

Code VBA Terkait:

Cara Menambah Worksheet Baru

Menyembunyikan dan Memunculkan Sheet