Hai Dwi,
coba diubah begini :
1. sheet Page 1 cell T1 diisi angka 2 (karena saat ini nomor urutnya adalah
nomor 2)
2. sheet Page 1 cell O10 diberi formula berbunyi :
=TEXT(T1,"000")&"/"&ROMAN(MONTH(O12))&"/"&IFERROR(VLOOKUP(D10,Sheet1!$C$4:$E$6,3,0),"")&"/"&TEXT(O12,"YY")
3. prosedur NomorInvoiceOtomatis baris pertama diganti menjadi :
Range("T1").Value = Range("T1").Value + 1
agar merujuk ke cell T1 di sheet aktif
4. prosedur SimpanInvoice baris pertama diubah menjadi :
Dim NewFN As String
NewFN = "D:\DWi's FIle\DATA APP 2013\Invoice\Inv" &
Range("O10").Value & ".xlsx"
Wassalam,
Kid.
2013/10/1 dwi mulyaningsih <[email protected]>
> **
>
>
> 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
>
>
>
