itu bukan Dim NewFN tapi Dlm NewFN Saya coba buat otomatis tersimpan ke folder tersebut dengan nama sesuai nomor invoicenya. Kalau untuk faktur pajak saya sudah berhasil tapi untuk invoice belum bisa karena nomor invoice variabel (bukan cuma angka). Sekarang lagi mau coba untuk nomor invoicenya.
________________________________ From: lapendosol opik <[email protected]> To: "[email protected]" <[email protected]> Sent: Wednesday, October 2, 2013 9:43 AM Subject: Re: [belajar-excel] Membuat Nomor Urut Invoice Makasih penjelasannya, Dim NewFN nya ga masalah ya? Biasanya booking Dim selalu diakhiri kartu As, As String, As Kriting, As Sekop dan As As yg lain hehehe. Wassalam, ________________________________ From: dwi mulyaningsih <[email protected]> To: [email protected] Sent: Wednesday, October 2, 2013 8:44 AM Subject: Re: [belajar-excel] Membuat Nomor Urut Invoice Dear opik, saya panggil opik aja ya. untuk script yang anda sebutkan : Dlm NewFN = "D:\DWi's FIle\DATA APP 2013\Invoice\Inv" & Range("O10").Value & ".xlsx" ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook ActiveWorkbook.Close NomorInvoiceOtomatis Itu untuk save as otomatis dengan nama sesuai nomor invoicenya Wassalam ________________________________ From: lapendosol opik <[email protected]> To: "[email protected]" <[email protected]> Sent: Tuesday, October 1, 2013 7:15 PM Subject: Re: [belajar-excel] Membuat Nomor Urut Invoice Woalah maap yak ga liat tabel Nomer Sales Order, jebulannya ada di sheet1. Oke ditambahkan di step3 =VLOOKUP('Page 1'!D10,Sheet1!C4:E6,3) Step5 nya jadi =TEXT(LEFT(B2,3)+1,"000")&"/"&VLOOKUP(MONTH(NOW()),D2:E13,2)&"/"&VLOOKUP('Page 1'!D10,Sheet1!C4:E6,3)&"/"&RIGHT(YEAR(NOW()),2) NB: Tombol simpannya silahkan disesuaikan dengan kebutuhan biar berjalan sesuai keinginan terutama discript: Dlm NewFN = "D:\DWi's FIle\DATA APP 2013\Invoice\Inv" & Range("O10").Value & ".xlsx" ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook ActiveWorkbook.Close NomorInvoiceOtomatis Saya belum paham yg begituan dan ga ngerti maksudnya buat ngapain. ________________________________ From: lapendosol opik <[email protected]> To: "[email protected]" <[email protected]> Sent: Tuesday, October 1, 2013 6:27 PM Subject: Re: [belajar-excel] Membuat Nomor Urut Invoice [1 Attachment] Hai Dwi, Data yg dikirim kurang lengkap, difile yg dikirim ga ada tabel Nomer Sales Order, jadi silahkan utak atik sendiri ya. Berikut solusi dari saya semoga bisa bermanfaat: Buatkan sheet bantuan tersendiri untuk pembuatan/pergantian Nomer Invoice Buatkan tabel bantuan pembuatan kode Romawi Step 1: pembuatan nomer invoice 3digit misal nomer invoice lengkap ada di cell B2 =TEXT(LEFT(B2,3)+1,"000") Step 2: pembuatan romawi bulan sekarang Buatkan tabel bantuan romawi misal ada di cell D2:E13 =VLOOKUP(MONTH(NOW()),D2:E13,2) Step 3: pembuatan nomer sales order Karena ga ada contoh sales order silahkan otak atik sendiri yg ini Step 4: pembuatan 2digit tahun yg sekarang =RIGHT(YEAR(NOW()),2) Step 5: gabungkan step-step diatas =TEXT(LEFT(B2,3)+1,"000")&"/"&VLOOKUP(MONTH(NOW()),D2:E13,2)&"/039/"&RIGHT(YEAR(NOW()),2) Step 6: pindahkan dari tabel bantuan pembuatan invoice tersebut ke module simpan Semoga bermanfaat Wassalam, ________________________________ From: dwi mulyaningsih <[email protected]> To: "[email protected]" <[email protected]> Sent: Tuesday, October 1, 2013 4:49 PM Subject: [belajar-excel] Membuat Nomor Urut Invoice [1 Attachment] Dear Pakar Excel, Saya mau membuat nomor invoice yang secara otomatis nomornya akan berubah pada saat tombol simpan diklik. Permasalahannya bagaimana membuat format nomor invoicenya agar otomatis akan bertambah satu digit. Format nomor invoicenya adalah 002/VIII/041/13 dimana 002 adalah nomor urut invoice, VIII adalah bulan, 041 adalah nomor sales order, dan 13 adalah 2 digit tahun. untuk customernya bagaimana agar otomatis bisa diisi, master data customer ada di sheet 1. Salam Dwi
