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 >>>>> >>>> >>>> >>>> >>> >>> >>> >> >> >> > > > > >
solved-Macro_select 1 cell dibawahnya xl down.rar
Description: Binary data
