Wah...mantab Mr. Kid,,,, semoga ilmu yang sdh diberikan ke milis ini menjadi amal jariayah buat Mr. Kid ... amin
Regards Hendra ________________________________ Dari: Mr. Kid <[email protected]> Kepada: [email protected] Dikirim: Minggu, 30 Desember 2012 12:45 Judul: Re: [belajar-excel] Select Method of Range Failed 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 >> >> > > >
