Kalo tidak ingin tidak ada rumusnya, bisa disederhanakan:
Sub Nomor()
Const sRumus As String = _
"=TEXT(ROWS($A$2:A2),""0000"")&""/KAR/ME/""&ROMAN(MONTH(A2))&""/""&YEAR(A2)"
With Range("D2", "D" & Range("A2").End(xlDown).Row)
.Formula = sRumus
.Value = .Value
End With
End Sub
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: Thursday, March 28, 2013 8:55 AM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] penomoran dengan vba
Bisa juga pakai ini, tapi masih ada rumusnya
Sub Nomor()
Const sRumus As String = _
"=TEXT(ROWS($A$2:A2),""0000"")&""/KAR/ME/""&ROMAN(MONTH(A2))&""/""&YEAR(A2)"
Dim rgNomor As Range, rgRumus As Range
Set rgRumus = Range("D2")
rgRumus.Formula = sRumus
Set rgNomor = Range(rgRumus, "D" & Range("A2").End(xlDown).Row)
rgRumus.Copy rgNomor
End Sub
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Jan Raisin
Sent: Thursday, March 28, 2013 8:51 AM
To: belajar-excel@yahoogroups.com
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
