Pinjam solusi formulanya pak Zainul Ulum ya.. script vba-nya menjadi seperti ini:
Sub IdNumber()
Dim lRow As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(2, 4), Cells(lRow, 4)).Formula =
"=TEXT(ROWS($A$2:A2),""0000"")&"" / KAR / Me / ""&ROMAN(MONTH(A2))&"" /
""&YEAR(A2)"
Range(Cells(2, 4), Cells(lRow, 4)).Value = Range(Cells(2, 4),
Cells(lRow, 4)).Value
End Sub
Wassalam,
-Miss Jan Raisin-
Pada 28 Maret 2013 08.35, vincent Yoes <vince...@yahoo.com> menulis:
> siap bung zainul_ulum thanks buat rumusnya cuma kalo rumus itu di vba
> jadinya gimana ya...
> jadi nomor tersebut tadinya kosong setelah kita pencet cmd nomor, maka
> identitasnya langsung terisi dengan format tersebut.
> mohon pencerahannya terima kasih....
>
> ------------------------------
> *From:* zainul_ulum[at]yahoo[dot]com <zainul_u...@yahoo.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Wednesday, March 27, 2013 4:05 PM
> *Subject:* RE: [belajar-excel] penomoran dengan vba
>
>
> Coba membantu kalo Kalo pakai rumus
> =TEXT(ROWS($A$2:A2),"0000")&"/KAR/ME/"&ROMAN(MONTH(A2))&"/"&YEAR(A2)
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *vincent Yoes
> *Sent:* Wednesday, March 27, 2013 2:34 PM
> *To:* exel milis
> *Subject:* [belajar-excel] penomoran dengan vba
>
>
> Dear Rekan-rekan Exceller
>
> mohon pencerahannya untuk penomoran dengan menggunakan VBA.
> data terlampir.
>
>
> Terima Kasih atas pencerahannya
>
>
>
>
<<image001.jpg>>
<<image002.jpg>>
