Salam All Master,
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
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
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Berita gembira: telah lahir, Abimono Jr.: Axel Abimono |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
| Berita gembira: telah lahir, Abimono Jr.: Axel Abimono |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
.
__,_._,___
Nenhum comentário:
Postar um comentário