Dear Nanang! Asalamualaikum warahmatullah.
Coba di AG3 diketik Rumus
="SL/MB-SBY-008/"&RIGHT(YEAR(TODAY());2)&"/"&TEXT(MONTH(TODAY());"00")&"/"&TEXT(AQ1;"000000")
sedangkan di macro Print out tambahkan cekrip:
Dim a As Integer
a = Range("AQ1").Value
a = a + 1
Range("AQ1").Value = a
Wasalam
Nang Agus
2014-08-19 11:47 GMT+07:00 Flow Nanank flow.nan...@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Para master Excel,
>
> Mohon bantuan dan solusinya bagaimana membuat No. Invoice otomatis,
> contoh : SL/MB-SBY-008/14/08/0001
> Ket. :
> SL/MB-SBY-008/ : itu adalah kode baku,
> 14 = 2 angka akhir tahun
> 08 = bulan sekarang
> 0001 = no urut Invoice,
> maksud saya adalah ketika kita klik tombol Print Out makan No. Invoice
> akan otomatis berubah urutan menjadi 0002 dst.
>
> terlampir contoh Invoice yg saya buat
>
> atas bantuannya saya ucapkan Terimakasih.
>
>
>
Sol INVOICE MANUAL.xls
Description: MS-Excel spreadsheet
