www.Berkreasi.Net

Hapus Semua Sheet Kecuali Sheet Aktif

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.

• Sebelumnya
• Berikutnya