Cek Nama Worksheet Sudah Ada Atau Belum Dengan VBA

Cara cek nama worksheet apakah sudah ada atau belum menggunakan VBA memang tidaklah sulit karena membutuhkan logika yang cukup sederhana. Logikanya adalah kita definisikan terlebih dahulu nama worksheet yang akan dicari kemudian jika tidak ditemukan munculkan pesan " worksheet tidak ditemukan tetapi jika ditemukan munculkan pesan bahwa "worksheet ditemukan" Kira-kira seperti itu cukup sederhana. Untuk lebih mempermudah Anda dalam belajar VBA silakan Anda lanjutkan untuk membaca tulisan saya ini.

Langkah pertama untuk cek nama worksheet pada workbook yang aktif Anda bisa menggunakan UserForm ditambahkan dengan objek CommandButton, namun Anda juga bisa langsung membuat Button pada worksheet tersebut. Pada contoh yang akan saya buat adalah dengan menggunakan UserForm untuk mengendalikan atau sebagai interface dengan pengguna Ms. Excel.

Silakan buat 1 buah UserForm dan 1 buah CommandButton dan ganti Caption UserForm1 pada properties dengan tulisan " Cek Nama Worksheet" kemudian pada CommandButton1 silakan ganti Captionnya menjadi " Cek Nama Sheet". Setelah itu silakan Anda buat atau copykan script dibawah ini.

Private Sub CommandButton1_Click()
Dim sh As Worksheet
On Error Resume Next
   Set sh = ActiveWorkbook.Sheets("Database")
   If Err.Number <> 0 Then
      MsgBox "Sheet Database Tidak ditemukan"
      Err.Clear
      On Error GoTo 0
   Else
      MsgBox "Sheet Database Sudah ada"
   End If
End Sub

Coding diatas menggunakan Objek CommandButton dan prosedur klik untuk mengeksekusinya. Silakan anda jalankan dengan menekan tombol F5 pada keyboard atau Anda klik Icon Run yang berupa segitiga warna hijau kemudian klik tombol " Cek Nama Sheet" dan lihat hasilnyaa.

Gambar diatas adalah hasil dari coding yang telah dibuat diatas, apabila Anda klik tombol "Cek Nama Sheet" maka muncul pesan "Sheet Database Sudah ada" hal ini karena saya telah menyispkan nama worksheet "Database" perhatikan urutan nama worksheet pada gambar diatas. Apabila tidak terdapat nama worksheet "Database" maka munculah pesan "

Perhatikan perbedaan antara gambar yang pertama dan yang kedua untuk gambar pertama terdapat nama sheet "Database" sedangkan untuk gambar kedua tidak ada dan pesanpun berbeda untuk gambar pertama terlihat pesan " "Sheet Database Sudah Ada" sedangkan untuk gambar kedua tertulis pesan "Sheet Database Tidak Ditemukan".

Kira-kira begitu bagaimana cara cek nama worksheet apakah sudah ada atau belum dengan menggunakan script VBA semoga bermanfaat dan silakan kembangkan kreasimu untuk belajar lebih detail lagi mengenai coding-coding VBA.

Baca:
Koleksi Kode/Coding VBA Dasar yang Wajib Dipelajari

Tweet