Bls: ]] XL-mania [[ Copy Paste Semua Sheet

kalo save nya menjadi file bagaimana bu ?

 

Sincerely yours,

Jhony Syarif

---

Dari: Rara Wilis <ra2wilis@gmail.com>
Kepada: XL-mania@yahoogroups.com
Dikirim: Rabu, 11 Juli 2012 17:01
Judul: Re: ]] XL-mania [[ Copy Paste Semua Sheet

Makro berikut ini cara kerjanya sbb:

1. Mengcopy SHEET(s) yg di-Select, di PASTE ke Workbook Baru (berisi 1 sheet)
2. Penyalinan datanya hanya dibatasi pada area yg ada datanya (bukan seluruh cells dlm sheet)
3. Methode penyalinan-data-nya = hanya di copy Values, Number Formattingnya dan Columns-Width nya
4. Sheet baru diberi nama sama dengan sheet yg dicopy
5. Workbook baru diberi nama dengan data yg ada di cell S2 pada sheet yg dicopy.
6. Workbook baru langsung disave & ditutup, untuk melanjutkan kerja copy paste sheet lain (jika ada)
7 Sheet yg diCopy & Paste menjadi Workbook : adalah sejumlah sheet yg anda SELECT
   (anda dapat men-Select 1 maupun banyak sheet sekaligus secara Multi Selection, maupun SEMUA Sheets; 

   tidak harus urut tetapi boleh "loncat-loncat"

Sebaiknya file ini disave di suatu FOLDER KHUSUS (apapun namanya)

karena workbook hasil-kerjanya akan di tampung di folder khusus tsb.

Btw..
Di dalam text makro yg diajukan, saya tidak tahu babar-blas : 'jalan ceritaknya'

Mengapa mau mengcopy Sheet COVER saja kok harus menselect SEMUA sheet yg ada lebih dulu

(baru kemudian dilepaskan lagi)

Boleh-kah kami diberi penjelasan  (mudah-mudahan ada tanggapan dari pak Jhony atau pun dari 

pemilik makro yg dikutip oleh pak Jhonny) 

tidak mau menyebutkan link-nya sih..!)

 

~Rara



2012/7/10 Jhony Xl <jhony.excel@yahoo.co.id>
>
> saya mau tanya saya pernah dapat macro seperti ini dari milist ini :
>
> Sub PALUE()
> Sheets(Array("COVER", "AP DETAIL CUR", "GL 08", "REPORT AP", "AP DETAIL",
> "Kurs", "GBP", "IDR", "USD", "SGD", "MYR", "EUR")).Select
>     Sheets("COVER").Activate
>     Cells.Select
>     Selection.Copy
>     Selection.PasteSpecial Paste:=xlPasteValues
>     Sheets("COVER").Select
>     ActiveWorkbook.SaveAs Filename:=Range("S2")
> End Sub
>
> ini berfungsi untuk paste file dgn beberapa sheet saja seperti "GL 08",
> "REPORT AP" dll,
> yang saya tanyakan bagaimana untuk copy paste file semua sheet ?
>
> Terima kasih sebelumnya
>
> Sincerely yours,
> Jhony Syarif