Hai Liem, Coba ndak usah pakai *Select*-*Select*-an, langsung to nde poin ajah... kelamaan select malah keburu terbang yang mo dipake.
Untuk cara menggunakan object (terutama dalam Excel) pada pemrograman, sila jalan-jalan kesini bagian 'Cara menggunakan object' <http://b-excel.blogspot.com.au/2013/07/belajarvba-006-object-dalam-excel.html> . dim wbkA as workbook, wbkB as workbook set wbkB = thisworkbook set wbkA = workbooks("nama workbook A yang sudah dibuka") 'atau gunakan Workbooks.Open filenamelengkap wbka.sheets("sheet sumber data di wbk A").range("alamat yang akan di-copy").copy wbkb.sheets("sheet target di wbk B").range("f3").end(xldown).offset(1).pastespecial xlpastevalues Wassalam, Kid. 2014-08-27 12:52 GMT+10:00 Liem Suliem [email protected] [belajar-excel] <[email protected]>: > > > pak agus.. > nah itu pak agus masalahnya.. > gambaran manualnya begini pak > saya buka 2 workbok A dan B. > saya kopi B2:B10 yang ada di worbok A(ini memang yang saya ingin manual) > lalu saya pindah ke wrkbook B saya pilih cell F3 saya tekan > ctrl+shift+tanda panah bawah...lalu saya pilih satu cell dibawahnya > lalu saya paste spesial. > > nah yang ingin saya wakilkan ke makro adalah proses > pilih cell F3 saya tekan ctrl+shift+tanda panah bawah...lalu saya pilih > satu cell dibawahnya > lalu saya paste spesial value. > > tapi sepertinya waktu jalankan sekrip, proses kopi di workbok A sudah > tidah aktip. > Pada Rabu, 27 Agustus 2014 9:35, "Nang Agus [email protected] > [belajar-excel]" <[email protected]> menulis: > > > > Dear Pak Liem, > > Cekrip yang dibuat sudah betul pak, tapi si Excel bingung, disuruh > mem-Paste special dengan masakan yang paling enak, tetapi bahan yang > untuk masak belum ada. belikan dulu dong pak! > Tambahkan cekrip Kopi di atasnya baru si excel bis kerja. > > Saya pernah dipesen sama Mr. Kid, sebaiknya cekrip tersebut disingkat > menjadi: > Range("F3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues > > Salam > NangAgus > > On 8/27/14, Liem Suliem [email protected] [belajar-excel] > <[email protected]> wrote: > > pak hk dan mr.kid > > > > > > Sub Macro4() > > Range("f3").End(xlDown).Offset(1).Select > > Selection.PasteSpecial Paste:=xlPasteValues > > End Sub > > > > > > memilih cell akir +1 setelah data sudah bisa, akan tetapi ketika mau > > menambahkan sekrip paste spesial masih debug. > > (karena keterbatasan pengetahuan saya) > > > > > > jadi ceritanya begini saya punya 2 worbook A dan B lha isi workbook A itu > > datanya per tanggal > > misal A1 berisi 28 agt 2014 B2:K10 berisi data > > A12 berisi 29 agt 2014 B14:K30 berisi data > > > > > > nah maksud saya ingin copi data B2:B10 secara manual dan saya pastekan ke > > workbook B dengan bantuan si makro tersebut. > > begitu juga seterusnya saya ingin lagi mengulang kopi B14:B30 secara > manual > > lalu saya pastekan lagi di workbok B dibawahnya data yang sudah ada. > (kedua > > workbook dalam keadaan terbuka) > > > > > > (maksudnya biar workbook B bisa berkaidah data yang baik) > > > > > > > > > > salam > > liem > > > > > > > > > > > > > > > > > > > > > > Pada Rabu, 27 Agustus 2014 6:39, "'Mr. Kid' [email protected] > > [belajar-excel]" <[email protected]> menulis: > > > > > > > > > > > > > > Hai Liem, > > > > > > Misal F3 adalah range awal. Data kontinyu sampai F10. Ingin cell aktif di > > F11 (1 cell dibawah cell terakhir data kontinyu) > > Range("f3").end(xldown).offset(1).activate > > *** ganti activate dengan copy (jika ingin copy cell), pastespecial > > xlpastevalues (jika ingin paste special values), dsb > > > > > > Bagaimana kalau coba jalan-jalan lihat-lihat tentang range mulai dari > sini. > > > > > > > > > > > > > > Wassalam, > > Kid. > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > 2014-08-26 19:58 GMT+10:00 Liem Suliem [email protected] > > [belajar-excel] <[email protected]>: > > > > > > > >> > >>dh dear master saya coba rekam makro dengan bunyi seperti dibawah.. > >>yang ingisaya tanyakan bagaimana bunyi sekrip untuk memilih atau select 1 > >> cel dibawahnya setelah dilakukan xldown > >>misal saya lakukan xldown F3:F10 tapi setelah saya lakukan xldown saya > >> ingin cell terplih adalah 1 cell dibawahnya yaitu F11 > >>mohon arahan skripnya seperti apa.. > > > >> > >> > >> > >>Sub Macro4() > >> Range("F3").Select > >> Range(Selection, Selection.End(xlDown)).Select > >>End Sub > >> > >> > >>salam > >> > > > >> > >>liem > >> > > > > > > > > > >
