Terimakasih pak NangAgus, pak HK, dan pak Suyono,
Solusinya sangat beragam dan sangat membantu, jadi bahan belajar buat sy yg
masih newbie di excel pak,,
sekalilagi terimakasih,
Salam,
Nanank_kho
Pada Selasa, 19 Agustus 2014 12:40, "Nang Agus nanga...@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
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.
