Bu,
File nya nga ada ? (nga bisa di download) Thu, Aug 28, 2014 at 2:02 PM Tapi untuk email : Wed, Aug 27, 2014 at 11:02 AM Filenya tersedia. Salam. Lukman 2014-08-28 14:02 GMT+07:00 Liem Suliem [email protected] [belajar-excel] <[email protected]>: > > > pak agus.. alhamdulilah > sukses pak maksih pak, dan semua teman2..yang berkenan membantu.. > berikut saya sertakan file yang sudah solved > > liem > > > Pada Kamis, 28 Agustus 2014 13:12, "Nang Agus [email protected] > [belajar-excel]" <[email protected]> menulis: > > > > Pak Liem, > > Dicoba cekrip begini pak. > > Private Sub CommandButton2_Click() > Dim pileku As String > Dim celladd As String > pileku = InputBox(Prompt:="Ketikkan Nama file", _ > Title:="Masukkan Nama File", Default:="A.xlsx") > Windows(pileku).Activate > Sheets("sheet1").Range("b2").End(xlDown).Offset(1).Select > celladd = ActiveCell.Offset(-1, 12).Address(False, False) > Sheets("sheet1").Range("B3:" & celladd).Copy > Windows("B.xlsm").Activate > Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues > Windows(pileku).Activate > Sheets("sheet1").Range("B34:N47").Copy > Windows("B.xlsm").Activate > Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues > End Sub > > Untuk cell N47 belum saya buat, coba diganti. > Salam > > NangAgus > > > 2014-08-27 14:51 GMT+07:00 Liem Suliem [email protected] > [belajar-excel] <[email protected]>: > > > sudah saya coba beginii tapi yang tercopi hanya data B yang paling bawah > > Private Sub CommandButton2_Click() > Dim pileku As String > pileku = InputBox(Prompt:="Ketikkan Nama file", _ > Title:="Masukkan Nama File", Default:="A.xlsx") > Windows(pileku).Activate > Sheets("sheet1").Range("B3:N3").End(xlDown).Copy > > Windows("B.xlsm").Activate > Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues > Windows(pileku).Activate > Sheets("sheet1").Range("B34:N34").End(xlDown).Copy > > Windows("B.xlsm").Activate > Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues > > End Sub > salam > liem > > > Pada Rabu, 27 Agustus 2014 14:10, "Liem Suliem [email protected] > [belajar-excel]" <[email protected]> menulis: > > > > makasih pak agus.. sesuai yang dimaksud.. tapi ada kendala sedikit > untuk bunyi yang ini > > Sheets("sheet1").Range("B3:N16").Copy > kan data tidak selalu sampai N16 atau bahkan lebih dari N16 bisa nggak > kalo yang di copy itu > B3:N3 lalu di xldown baru di kopy. > > untuk yang dari pak kid belum saya coba > > salam > liem > > > Pada Rabu, 27 Agustus 2014 12:19, "Nang Agus [email protected] > [belajar-excel]" <[email protected]> menulis: > > > > Dear Pak Liem! > Coba Macronya dicoba dahulu seperti ini: > > Private Sub CommandButton2_Click() > Dim pileku As String > pileku = InputBox(Prompt:="Ketikkan Nama file", _ > Title:="Masukkan Nama File", Default:="A.xlsx") > Windows(pileku).Activate > Sheets("sheet1").Range("B3:N16").Copy > Windows("B.xlsm").Activate > Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues > Windows(pileku).Activate > Sheets("sheet1").Range("B34:N47").Copy > Windows("B.xlsm").Activate > Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues > > End Sub > > > Salam > NangAgus > > On 8/27/14, Liem Suliem [email protected] [belajar-excel] > <[email protected]> wrote: > > 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 > >>>> > >>> > >>> > >>> > >> > >> > >> > > > > > > > > > > > > > > >
