Dlm workbook yg anda CERITAKAN itu (workbooknya sendiri tidak ada)
aktifkan sheet3 (sheet yg akan anda cetak)
Di suatu tempat kosong yg tidak mengganggu pandangan, tempelkan
CommandButton dari ActiveX Control, nama generiknya bila di sheet itu
belum ada CommnadButton lain = CommandButton1
Klik kanan Object tsb pilih menu > "View Code"
anda akan dibawa ke Module Sheet3 dimana sudah tertulis Prosedur
Event_Click
milik si Tombol (CommandButton1) tetapi isinya masih kosong
lengkapilah prosedur itu menjadi seperti ini
Private Sub CommandButton_Click()
'-----------------------------------------
' coded by Hapsari / Oct 16, 2011
' sebagian besar dari libranynya yu siti
'-----------------------------------------
Dim NewBook As Workbook, NewName As String
Dim Rng01 As Range, NumSht As Integer
NumSht = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
Application.ScreenUpdating = False
Set NewBook = Workbooks.Add
With ThisWorkbook
.Sheets("Faktur Pajak").PrintOut
NewName = .Path & "\" & .Sheets("Invoice").Range("D8").Value
NewName = NewName & ". " & .Sheets("Faktur Pajak").Range("E15").Value
& ".xls"
Set Rng01 = .Sheets("Faktur Pajak").Cells(1)
If Rng01 = vbNullString Then Rng01 = " "
.Sheets("Faktur Pajak").UsedRange.Copy
End With
With NewBook.Sheets(1).Cells(1)
.PasteSpecial xlFormats
.PasteSpecial xlPasteFormulasAndNumberFormats
.PasteSpecial xlPasteColumnWidths
End With
NewBook.Sheets(1).Name = "Faktur Pajak"
With ThisWorkbook
.Sheets("Faktur Pajak").Cells(1) = vbNullString
.Sheets(Array("SJ", "Invoice")).Copy
BEFORE:=NewBook.Sheets(Sheets.Count)
NewBook.SaveAs Filename:=NewName, FileFormat:=xlExcel8
Application.SheetsInNewWorkbook = NumSht
Application.CutCopyMode = False
Application.ScreenUpdating = True
End With
End Sub
listing makro (vba coding) agak kepanjangan antara lain karena bermaksud
agar makro dan tombol di sheet 3 tidak ikut tercopy ke workbook baru
ketika sheet yg disalin ke book baru, sudah tidak mengandung formula
Tombol yg dibuat tadi berfugsi untuk mencetak Sheet 3
kemudian membuat workbook baru sesuai spec yg anda ajukan (insyaallah)
2011/10/15 milsrin <[email protected]>
> **
>
> Dear All para Suhu / Suhuwati belajar-excel,
>
> Mohon bantuannya, saya mempunyai kasus yang semoga aja
> belum pernah dibahas. Jika sudah pernah dijawab mohon
> bantuannya merefer ke posting yang keberapa.
>
> Begini, dalam file saya terdapat banyak sekali sheet kerja
> yang saling link. Untuk menggampangkan persoalan, maka
> angggap saja misalnya ada 7 sheet kerja dalam 1 file
>
> Pada saat setelah saya mencetak sheet ke-3, maka saya
> harus men-save sheet-1, sheet-2, dan sheet-3 ke file baru
> dan memberinya nama berdasarkan range tertentu dalam
> sheet-2 dan Sheet-3
>
> misalkan
> Sheet-1 : "SJ"
> Sheet-2 : "Invoice" > Range D8="Nomor Invoice"->"002"
> Sheet-3 : "Faktur Pajak" -> Range E15="Nama Nasabah"->"Karya Gemilang"
> Sheet-4 : berisi data1
> Sheet-5 : berisi data2
> Sheet-6 : berisi data3
> Sheet-7 : berisi data4
>
> Hasil yang diharapkan adalah :
> Setelah mencetak Sheet-3, maka otomatis excel akan men-save
> Sheet-1, Sheet-2, dan Sheet-3 dengan nama "002. Karya Gemilang.xls"
>
> Terimakasih banyak atas pencerahannya
> Milsrinlee
>
>
