Re: ]] XL-mania [[ memindahkan banyak worksheet ke workbook yang berbeda2

 

Sub KerjakanSaja_JanganBingung()

' siti Vi / 19 aug 2010

' menyimpan tiap sheet sbg workbook di folder tertentu

' excel anda harus mengenal fungsi WeekNum

' (aktifkan Add-in : "Analysis ToolPak"

'-------------------------------------------

Const WbNames As String = "Aspira\Vitron\Koplo\Sopla\Mito"

Dim i As Integer

Dim WNames

Dim DestPath As String

Dim WeekNo As String

WNames = Split(WbNames, "\")

ActiveSheet.Range("G3").Formula = "=WEEKNUM(TODAY())"

WeekNo = ActiveSheet.Range("G3").Value

For i = 0 To UBound(WNames)

DestPath = "E:\" & WNames(i) & "\"

ThisWorkbook.Sheets(WNames(i)).Copy

ActiveWorkbook.SaveAs _

  Filename:=DestPath & WNames(i) & "_Week" & WeekNo & ".xls", _

  FileFormat:=xlNormal

  ActiveWorkbook.Close Savechanges:=True

Next i

End Sub

2010/8/19 moch_yasin_87 <id42_shin@yahoo.co.id>
>
> Dear XL Mania,
> Saya sedang bingung untuk membuat makro nih,
> Tiap hari rabu saya harus membuat laporan dari excel, dimana workbook dari 

> laporan tersebut terdiri dari 5 worksheet (aspira, vitron,...,mito).

> Bagaimana caranya agar kelima worksheet tersebut bisa saya pindahkan 

> ke 5 workbook yang berbeda-beda:
> aspira->wb1
> vitron->wb2
> ........
> mito->wb5
>
> Kemudian setiap workbook tersebut disave ke folder yang berbeda-beda dengan format:
> namaworksheet_mingguke...
>
> contohnya:
> wb1->D:\aspira\aspira_week32
> wb2->D:\vitron\vitron_week32
> .......
> wb5->D:\mito\mito_week32
>
> Mohon bantuannya, sebelumnya, saya ucapkan terima kasih banyak.
>
> regards,
> Yasin

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 104

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| selamat menunaikan ibadah puasa... walau perut lapar, tanya excel |
| jalan terus... malu bertanya telat pulang kantor :D :D :D         |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| 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.friendster.com/xlmania atau...  |
| 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              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___