Dear be-Exceler,
Beberapa waktu yang lalu pernah ada pertanyaan:"Bagaimana memilih beberapa
sheet sekaligus kecuali satu sheet tertentu dengan macro".Untuk contoh kasus
saya buat lima sheets dimana satu sheet tertentu tsb bernama "TES" sebagai
ganti Sheet3
Jika digunakan rekaman (macro recording) maka codenya seperti
ini:Sheets(Array("Sheet1", "Sheet2", "Sheet4", "Sheet5")).Select
Karena jumlah sheet bisa banyak maka saya buat macro seperti ini:Sub
All_x_Tes() Dim sh As Worksheet Dim shNames As Variant For Each sh In
ThisWorkbook.Worksheets If sh.Name <> "TES" Then shNames =
shNames & sh.Name & """, """ End If Next shNames = Left(shNames,
Len(shNames) - 4) Sheets(Array(shNames)).SelectEnd Sub
Ketika saya jalankan keluar message :Run-time error '9':Subscript out of range
Ketika saya debug maka code ini diberi warna
kuning:Sheets(Array(shNames)).Select
Jika disorot warna kuningnya maka akan tampakshNames = "Sheet1", "Sheet2",
"Sheet4", "Sheet5" sehingga kalau digabung menjadi:Sheets(Array("Sheet1",
"Sheet2", "Sheet4", "Sheet5")).Select
Pertanyaannya (bukan quiz):Dimana salahnya ?
Terima kasih.
Salam,HK
