ini saya coba lampirkan file yang sudah saya dumi kan.
Pada Rabu, 27 Agustus 2014 10:11, "Nang Agus [email protected] [belajar-excel]" <[email protected]> menulis: Dear Pak Liem. Bagaimana apabila perintah copynya masih di VBA tapi perintah tempat ngopinya yang manual. Misalnya Range yang akan dikopi diketik pada workbook A Sheet1 Range A1. atau dapat pula diketikkan di userform yang kita buat. Range tersebut kita gunakan untuk acuan Kopi. Kira-kira begini cekripnya: Range(sheet1.range(A1).value).copy Wasalam NangAgus On 8/27/14, Liem Suliem [email protected] [belajar-excel] <[email protected]> wrote: > 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 >>> >> >> >> > > >
Contoh.rar
Description: Binary data
