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
