Atau coba gini
Sub Nomor()
Const sRumus As String = _
"=TEXT(AA2,""0000"")&""/KAR/ME/""&ROMAN(MONTH(A2))&""/""&YEAR(A2)"
Dim rgTmp As Range
Set rgTmp = Range("Z2", "Z" & Range("A2").End(xlDown).Row)
With rgTmp 'range temporary
.Formula = "=A2&B2"
.Offset(, 1).Formula = "=(COUNTIF($Z$2:Z2,Z2)=1)+AA1"
End With
With Range("D2", "D" & Range("A2").End(xlDown).Row)
.Formula = sRumus
.Value = .Value
End With
'hapus rangeTemporary
rgTmp.Resize(, 2).ClearContents
End Sub
From: [email protected] [mailto:[email protected]] On
Behalf Of vincent Yoes
Sent: Thursday, March 28, 2013 10:27 AM
To: [email protected]
Subject: Re: [belajar-excel] penomoran dengan vba
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
