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