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
> >>>>
> >>>
> >>>
> >>>
> >>
> >>
> >>
> >
> >
> >
>
>
>
>
>
>
