Menambah Worksheet Baru

Contoh Kode VBA berikut dapat digunakan untuk menambah beberapa sheet baru dengan berbagai model pilihan sesuai kebutuhan.

Menambah beberapa worksheet di posisi depan.

'Menambah beberapa worksheet dengan posisi paling depan Sub TambahWsPosisiDiDepan() Dim i As Integer, jmlTambahWs As Integer, wsbaru As Worksheet jmlTambahWs = 5 'jumlah sheet yang du dapat disesuaikan dengan kebutuhan With ActiveWorkbook.Worksheets For i = jmlTambahWs To 1 Step -1 Set wsbaru = .Add(before:=.Parent.Worksheets(1)) wsbaru.Name = "Sheet Baru " & i Next End With End Sub

Menambah beberapa worksheet dengan posisi setelah sheet terakhir.

'Menambah beberapa worksheet dengan posisi setelah sheet terakhir Sub TambahWsSetelahWsAkhir() Dim i As Integer, jmlTambahWs As Integer, wsbaru As Worksheet jmlTambahWs = 5 'jumlah sheet yang du dapat disesuaikan dengan kebutuhan With ActiveWorkbook.Worksheets For i = 1 To jmlTambahWs Set wsbaru = .Add(after:=.Parent.Worksheets(.Count)) wsbaru.Name = "Sheet Baru " & i Next End With End Sub

Menambah beberapa worksheet setelah sheet active.

'Menambah beberapa worksheet setelah sheet active Sub TambahWsSetelahWsAktif() Dim i As Integer, jmlTambahWs As Integer, wsAwal As Worksheet Dim wsbaru As Worksheet jmlTambahWs = 5 Set wsAwal = ActiveSheet With ActiveWorkbook.Worksheets For i = 1 To 10 Set wsbaru = .Add(after:=wsAwal) wsbaru.Name = "Sheet Baru " & i Set wsAwal = wsbaru Next End With End Sub

Menambah beberapa worksheet setelah sheet dengan nama tertentu.

'Menambah beberapa worksheet setelah sheet dengan nama tertentu Sub TambahWsSetelahWsTertentu() Dim i As Integer, jmlTambahWs As Integer, wsAwal As Worksheet, wsbaru As Worksheet Dim namaWsAwal As String namaWsAwal = "Ws Awal" ' nama "Ws Awal" bisa disesuaikan kebutuhan Set wsAwal = ActiveWorkbook.Worksheets(namaWsAwal) jmlTambahWs = 5 With ActiveWorkbook.Worksheets For i = 1 To 10 Set wsbaru = .Add(after:=wsAwal) wsbaru.Name = "Sheet Baru " & i Set wsAwal = wsbaru Next End With End Sub

Catatan: Contoh kode di atas akan terjadi error pada saat dieksekusi apabila tidak ada nama sheet "Ws Awal". Supaya tidak terjadi error maka harus dipastikan variable namaWsAwal  merujuk ke nama sheet yang valid.

Ada koreksi / saran / request contoh VBA lainnya ? Silakan tinggalkan pesan di komentar.

Salam..