Hai Hendra,
Bagaimana kalau bagian :
Sheets("Sheet2").Select
Columns("A:E").Select
diganti menjadi :
with Sheets("Sheet2")
.visible=xlsheetvisible
.unprotect "PWD"
'copas langsung
sheets("sheet1").range("a1:x17").copy
.range("a1").pastespecial xlpastevalues
'mau ke sheet2
.activate
.range("a1:e1").entirecolumn.select 'biasanya bisa dengan
columns juga
.protect "PWD" , userinterfaceonly:=true
'.visible=xlsheetveryhidden '-> jika ingin disembunyikan, aktifkan
baris ini dan ndak perlu aktifasi maupun select cell di sheet2
end with
Wassalam,
Kid.
2012/12/30 Agestha Hendra <[email protected]>
> **
>
>
> Wah,,terima kasih banyak Mbak/mas Jan Raisin,,,penjelasannya sangat
> menambah pengetahuan,,,
>
> Bisa minta tolong gimana VBA-nya : mengcopy suatu range di Sheet1 ---
> Paste Special Value ke sel A1 di Sheet2 (tapi Sheet2 terprotect dgn
> password : PWD) ---
> kemudian kembali memprotect Sheet2...
>
> Regards
> Hendra
> ------------------------------
> *Dari:* Jan Raisin <[email protected]>
> *Kepada:* [email protected]
> *Dikirim:* Minggu, 30 Desember 2012 8:16
> *Judul:* Re: [belajar-excel] Select Method of Range Failed
>
>
> Dear pak Hendra,
>
> Excel merupakan sebuah objek, di dalam Excel juga memiliki objek yang lain
> dengan hierarki yang bertingkat.
> Susunannya adalah begini:
>
> di dalam Excel ada objek yang namanya Workbook,
> di dalam Workbook ada objek yang namanya Worksheet (Sheet)
> di dalam Worksheet ada objek yang namanya Range, Chart, Shape, dll
>
> kalo dalam sehari-hari bisa dimisalkan sebagai:
> Excel adalah mbah Buyut (orang tua dari si mbah), punya anak namanya Mbah
> (Workbook)
> si Mbah yaitu orang tuannya bapak (Workbook) punya anak banyak, ada yang
> namanya Bapak (Sheet1), pakde (sheet2), bude (Sheet3) dll
> si Bapak (Worksheet) punya anak banyak, ada yang anak kandung/anak
> biologis (namanya Range) ada juga anak angkat (namanya Chart, Shape,
> Command Botton dll)
>
> Nah saat yang aktif adalah sheet1 (Bapak), lalu pasti ada anak bapak yang
> modenya juga aktif misal cell Aktif di A1 (ini adalah pak Hendra).
>
> Tidak sopan kan jika pak Hendra (cell aktif di sheet1) memanggil pakde
> (sheet2) dengan panggilan "Hei pakde, sini !" => sheet2.select
> lalu pak Hendra memanggil anaknya si pakde untuk diperintahkan mengerjakan
> sesuatu "Hei kamu Fulan, sini !" => Columns("A:E").select
>
> Walau pun masih di dalam 1 rumah yang sama akan lebih sopan jika
> memanggilnya melalui dari hierarki yang lebih tinggi.
> Kalo saat ini yang aktif adalah Bapak (sheet1) maka untuk memanggil
> anaknya si pakde harus melalui orang yang kedudukannya lebih tinggi yaitu
> melalui si pakde
>
> with sheet2 ' (permisi pakde, minta izin mau minta tolong sama si anu)
> ' ini yang pekerjaan yang diminta dilakukan
> end with
>
> kalau anaknya si pakde tidak mau membantu padahal sudah minta izin si
> pakde tentu saja si pakde sendiri yang akan akan menegur anaknya.
>
> atau kalau si bapak, pakde, pak Hendra (cell A1 di sheet 1), terus
> anak-anaknya pakde (colom A s/d colom E di sheet2) bekerja dalam 1
> perusahaan yang sama (perusahaan keluarga) maka bisa memanggil melalui
> orang yang memiliki jabatan lebih tinggi dari semuanya (contoh adalah
> melalui sebuah Modul, ini si Boss dalam perusahaan keluarga tadi).
>
> Jadi nanti semua perintah dikeluarkan secara resmi oleh si Bos (module)
> berdasarkan permintaan anaknya si bapak (range, cell, shape, command botton
> dll) melalui katabelece ( Call Module1, ini contoh katabelecenya).
>
> Satu hal kelebihan menggunakan VBA adalah kita tidak perlu memanggil suatu
> objek dengan perintah .Select, jadi kalau memungkinkan sebisa mungkin
> perintah.Select dihindari
>
> misal ada dari sheet1 akan mengcopy isi cell A1 sampai E5 lalu dipaste ke
> sheet1 mulai cell A1 maka bisa dilakukan dengan perintah:
>
> with sheet2
> .range("a1:e5").copy sheet1.range("a1")
> end with
>
> Hak Cipta atas dongeng ini ada pada mr KID xixixi :D
>
> Jika salah tolong dikoreksi, jika kurang tolong dilengkapi.
>
> Best Regard,
>
> -Ms. Jan Raisin-
>
>
> 2012/12/29 [email protected] <[email protected]>
>
> **
>
> Dear Be-exceler,..
>
> Misal kita berada di Sheet1, kemudian kita menjalankan macro :
>
> Sheets("Sheet2").Select
> Columns("A:E").Select
>
> mengapa terjadi erorr :
>
> "Select Method of Range Failed" dengan baris ke 2 : Columns("A:E").Select
> tersorot,..
>
> bagaimana caranya menghindari erorr tsb..?
>
> Trima kasih
> Regards
> Hendra
>
>
>
>
>
>
