Macro Excel | Cara Membuat Sheet Baru dengan Menggunakan Tombol CommanButton

Bagaimana membuat sheet baru menggunakan VBA? Seperti apa juga Script VBA yang harus dituliskan untuk membuat sheet baru? Kali ini saya akan berbagai tulisan cara membuat sheet baru dengan menggunakan tombol CommandButton.

TAHAP 1
Langkah pertama adalah silakan buat sebuah Worksheet baru, saya yakin Anda sudah tahu caranya. Kemudian silakan buat satu buah CommandButton dengan cara klik menu Developer kemudian pilih Insert

TAHAP 2
Setelah CommandButton dibuat silakan ganti teks "CommandButton1" menjadi tulisan "Buat Sheet" Jika terjadi muncul jendela View Macro abaikan saja. Kemudian untuk menulis script VBA buat sheet silakan masuk ke VBA editor dengan cara menekan tombol combinasi ALT+F11 kemudian buat satu buah module

TAHAP 3
Setelah modul dibuat silakan ketikan script VBA dibawah ini pada Module1

Sub BuatSheetBaru()
    Dim ws As Worksheet
    Dim NamaSheetBaru As String

    NamaSheetBaru = "SheetBaru" 'Nama sheet baru
    For Each ws In Worksheets
        If ws.Name = NamaSheetBaru Or NamaSheetBaru = "" Or _
                                       IsNumeric(NamaSheetBaru) Then
            MsgBox "Sheet '" & NamaSheetBaru & "' Sudah ada", vbInformation
            Exit Sub
        End If
    Next
    Sheets.Add Type:="Worksheet"
    With ActiveSheet 'Berpindah ke sheet terakhir
        .Move After:=Worksheets(Worksheets.Count)
        .Name = NamaSheetBaru
    End With
End Sub

TAHAP 5
Langkah ke-5 silakan masuk kembali ke jendela Worksheet kemudian klik kanan pada tombol Buat Sheet lalu silakan pilih Asign Macro Anda akan melihat sebuah jendela Asign Macro kemudian pilih BuatSheetBaru

TAHAP 6
Tahap 6 ini merupakan tahap terakhir untuk menguji apakah VBA yang diketikan sudah benar dan berhasil? Jika berhasil maka apabila di klik tombol "Buat Sheet" maka sheet baru akan muncul dengan nama SheetBaru pada akhir Sheet.

Berhasil.
Sebuah sheet baru telah berhasil dibuat dengan ditunjukan oleh anak panah warna hijau pada gambar diatas. Jika tidak berhasil silakan komentar dibawah.
Selamat mencoba...!

Tweet