Re: [belajar-excel] penomoran dengan vba

[vincent Yoes]

Mantab mas jan raisin...ini yg saya mau...
maap mas mau tanya lagi kalo kriterianya tanggal dan nama sama maka nomornya sama.(contoh terlampir)

terima kasih pencerahannya mas jan raisin....

---

From: Jan Raisin <miss.jan.rai...@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, March 27, 2013 6:50 PM
Subject: Re: [belajar-excel] penomoran dengan vba

 

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

 

nomor urut vba.xlsm
Description: application/download