Dear Pak Liem,
Coba ganti cekript
pileku = Application.GetOpenFilename()
menjadi :
pileku = Application.GetOpenFilename()
Workbooks.Open pileku
Tanpa cekrip yang kedua, hanya akan mengambil path file secara lengkap,
tetapi belum membuka file.
Jangan lupa fileku adalah path lengkap, harus dipotong dahulu menjadi file
name untuk membuka antar workbook. untuk mengambil nama workbook saja bisa
digunakan split.
Kira-kira cekripttc nya adalah sebagai berikut:
Private Sub CommandButton2_Click()
Dim pileku As String
Dim celladd As String
Dim splitlist As Variant
pileku = Application.GetOpenFilename(Title:="Tulung Bikak Setunggal File
Mawon", _
FileFilter:="Excel Files *.xls* (*.xls*),")
splitlist = VBA.Split(pileku, "\")
aduhh = splitlist(UBound(splitlist, 1))
Workbooks.Open pileku
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(aduhh).Activate
Sheets("sheet1").Range("b33").End(xlDown).Offset(1).Select
celladd = ActiveCell.Offset(-1, 12).Address(False, False)
Sheets("sheet1").Range("B34:" & celladd).Copy
Windows("B.xlsm").Activate
Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
End Sub
Semoga tidak ada kesalahan.
Salam
NangAgus
2014-08-29 16:34 GMT+07:00 Liem Suliem [email protected]
[belajar-excel] <[email protected]>:
>
>
> dear master
> dari yang sudah solved kemarin saya berusaha mengedit agar bisa browse
> file jadwalnya, jadi tidak ketik nama file
> mohon bantuan lagi, saya sudah coba seperti dibawah.. perpaduan hasil
> gogling dan dari milis tapi ya memang bisanya cuma edit2 ya ujung2 nya
> mentok.
>
> Private Sub CommandButton3_Click()
>
> Dim pileku As String
> Dim celladd As String
> pileku = InputBox(Prompt:="Ketikkan Nama file", _
> Title:="Masukkan Nama File", Default:="Jadwal HO Tanggal.xlsx")
> pileku = Application.GetOpenFilename()
> Windows(pileku).Activate
> Sheets("Rincian").Range("C10").End(xlDown).Offset(1).Select
> celladd = ActiveCell.Offset(-1, 15).Address(False, False)
> Sheets("Rincian").Range("C10:" & celladd).Copy
> Windows("Monitoring Jadwal.xlsm").Activate
> Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial
> Paste:=xlPasteValues
> Windows(pileku).Activate
> Sheets("Rincian").Range("C55").End(xlDown).Offset(1).Select
> celladd = ActiveCell.Offset(-1, 15).Address(False, False)
> Sheets("Rincian").Range("C55:" & celladd).Copy
> Windows("Monitoring Jadwal.xlsm").Activate
> Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial
> Paste:=xlPasteValues
> End Sub
>
> salam
> liem
>
>
> Pada Kamis, 28 Agustus 2014 17:05, "lkm jktind [email protected]
> [belajar-excel]" <[email protected]> menulis:
>
>
>
> 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
> >>>>
> >>>
> >>>
> >>>
> >>
> >>
> >>
> >
> >
> >
>
>
>
>
>
>
>
>
>
>
>
>
