Re: [belajar-excel] penomoran dengan vba

vincent Yoes Wed, 27 Mar 2013 20:28:23 -0700

Terima Kasih Mr Kid...rumusnya manjur banged....
saya jadi terbantu...

Terima kasih to exceller semuanya dah memberi pencerahan....

From: Mr. Kid <[email protected]>
To: [email protected]
Sent: Wednesday, March 27, 2013 8:12 PM
Subject: Re: [belajar-excel] penomoran dengan vba

Coba ganti formulanya menjadi :
=IF((A2=A1)*(B2=B1),D1,TEXT(IFERROR(LEFT(D1,4)*1,0)+1,"0000")&"/KAR/ME/"&ROMAN(MONTH(A2))&"/"&YEAR(A2))

Syarat : pada tanggal yang sama, jika ada data nama yang sama, maka record yang namanya sama haruslah berurutan.

Jangan lupa untuk mengubah petik (") menjadi dua buah petik ("") saat dipasang dalam VBA.

Wassalam,
Kid.

2013/3/28 vincent Yoes <[email protected]>

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 <[email protected]>
To: [email protected]
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 <[email protected]> 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 <[email protected]>
To: [email protected]
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: [email protected] [mailto:[email protected]] 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

Re: [belajar-excel] penomoran dengan vba

Kirim email ke