Coba juga:
="SL/MB-SBY-008/"&RIGHT("00"&YEAR(AG5),2)&"/"&RIGHT("00"&MONTH(AG5),2)&"/"&RIGHT("0000"&N(AQ1)+1,4)
Macronya:
Private Sub Print_Out_Click()
Sheets("INVOICE").Select
Range("Print_Area").PrintPreview
[AQ1] = [AQ1] + 1
End Sub
Untuk menjalankan pertama kali, sel AQ1 harus dikosongkan.
Salam,
HK
On Tuesday, 19 August 2014, 12:40, "Nang Agus nanga...@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
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
