Rabu, 27 Maret 2013

[belajar-excel] Digest Number 2196

15 New Messages

Digest #2196
1a
1b
Re: penomoran dengan vba by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
1c
Re: penomoran dengan vba by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
1d
Re: penomoran dengan vba by "vincent Yoes" vincetgo
1e
Re: penomoran dengan vba by "vincent Yoes" vincetgo
1f
Re: penomoran dengan vba by "Mr. Kid" nmkid.family@ymail.com
1g
Re: penomoran dengan vba by "vincent Yoes" vincetgo
1h
Re: penomoran dengan vba by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
1i
Re: penomoran dengan vba by "vincent Yoes" vincetgo
3a
Re: help v loop up by "Mr. Kid" nmkid.family@ymail.com
4a
Re: Bls: Bls: [belajar-excel] Penilaian by "Mr. Kid" nmkid.family@ymail.com

Messages

Wed Mar 27, 2013 6:50 pm (PDT) . Posted by:

"Jan Raisin"

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 <vincetgo@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_ulum@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
>
>
>
>

Wed Mar 27, 2013 6:54 pm (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

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 <vincetgo@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_ulum@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

Wed Mar 27, 2013 7:02 pm (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

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 <vincetgo@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_ulum@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
 

 

Wed Mar 27, 2013 7:58 pm (PDT) . Posted by:

"vincent Yoes" vincetgo

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.raisin@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 <vincetgo@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_ulum@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

>
>

Wed Mar 27, 2013 7:58 pm (PDT) . Posted by:

"vincent Yoes" vincetgo

terima kasih  mas zainul_ulum...ini yg saya mau...
maap mas mau tanya lagi kalo kriterianya tanggal dan nama sama maka nomornya sama.(contoh terlampir)

terima kasih pencerahannya mas zainul_ulum....

________________________________
From: zainul_ulum[at]yahoo[dot]com <zainul_ulum@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, March 27, 2013 7:02 PM
Subject: RE: [belajar-excel] penomoran dengan vba


 
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 <vincetgo@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_ulum@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
 

 

Wed Mar 27, 2013 8:12 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

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 <vincetgo@yahoo.com>

> 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.raisin@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 <vincetgo@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_ulum@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
>
>
>
>
>
>
>

Wed Mar 27, 2013 8:28 pm (PDT) . Posted by:

"vincent Yoes" vincetgo

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

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

________________________________
From: Mr. Kid <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
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 <vincetgo@yahoo.com>

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.raisin@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 <vincetgo@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_ulum@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
>> 
>>
>>
>
>
>

Wed Mar 27, 2013 8:42 pm (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

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: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of vincent Yoes
Sent: Thursday, March 28, 2013 10:27 AM
To: belajar-excel@yahoogroups.com
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 <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
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 <vincetgo@yahoo.com>
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.raisin@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 <vincetgo@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_ulum@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


Wed Mar 27, 2013 9:06 pm (PDT) . Posted by:

"vincent Yoes" vincetgo

wew yang ini juga manjur mas terima kasih...tambah ilmu lagi nih...

thanks mas zainul_ulum

________________________________
From: zainul_ulum[at]yahoo[dot]com <zainul_ulum@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, March 27, 2013 8:42 PM
Subject: RE: [belajar-excel] penomoran dengan vba


 
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: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of vincent Yoes
Sent: Thursday, March 28, 2013 10:27 AM
To: belajar-excel@yahoogroups.com
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 <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
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 <vincetgo@yahoo.com>
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.raisin@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 <vincetgo@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_ulum@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

Wed Mar 27, 2013 7:00 pm (PDT) . Posted by:

"iwan kcmt" iwankcmt

Selamat Pagi  Pak Bagus

sdh saya praktekkan dan sesuai dgn keinginan saya .  ini pelajaran yang sangat berharga buat saya sehingga bisa saya aplikasikan ke rumus  Vlookup dan fungsi IF.

terima kasih atas pencerahannya.

iwan

________________________________
Dari: Bagus <bagus@kingjim.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Rabu, 27 Maret 2013 15:51
Judul: Re: [belajar-excel] Bagaimana caranya membuat Data Validation List


 
Dear Iwan;
 
Apakah yg ditanyakan ini cara membuat data
validation..?
 
1. Block range A11:A20
Click menu Data => Pilih Validation
maka akan muncul dialog box
 
2. Block range B11:B20
Click menu Data => Pilih Validation
maka akan muncul dialog box
 
Perhatikan pada Validation
criteria
Allow dan Source yang
dilingkari merah
 
 
Wassalam
~ Bagus~
 
----- Original Message -----
>From: iwan kcmt
>To: belajar-excel@yahoogroups.com
>Sent: Wednesday, March 27, 2013 12:49 PM
>Subject: [belajar-excel] Bagaimana caranya membuat Data Validation List
>

>Selamat siang BeExceller 
>
>Mohon bantuannya utk proses data
berikut. 
>
>terima kasih.
>
>iwan

Wed Mar 27, 2013 7:43 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Dear Takagi Sand,

You need a macro rather than formula.
Please see attached file.

Regards,
Kid.

On Tue, Mar 26, 2013 at 10:31 AM, takagi_sand <takagi_sand@yahoo.com> wrote:

> **
>
>
> in 'update&#39; sheet, F column, the current value of quantity should be added
> with
> value in 'IN' sheet, D column.
>
> in 'IN' sheet if i choose an item from dropbox (c column) and put quantity
> of 10,
> then it should be added with the current value in 'UPDATE&#39; column F sheet
> for the same named item.
>
> i tried this formula (this is nonsense formula come to my head) but fail
> in 'update!f7, sheet
>
> =f7+(vlookup,purchase,2,false)
>
> thank you in advance
>
>
>

Wed Mar 27, 2013 7:58 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

kenapa ya????
>> Baris yang error :
WSheet1.Cells(rgtCol.Offset(, 1).Value, rgtCol.Offset(, 2).Value).Value =
WSheet3.Cells(iRow, rgtCol.Offset(, 3).Value).Value

Penggalan bagian yang berbunyi :
WSheet1.Cells(rgtCol.Offset(, 1).Value, rgtCol.Offset(, 2).Value).value
adalah proses untuk mengubah nilai disuatu cell di sheet dalam variabel
sheet WSheet1

Pada baris tersebut, Wsheet1 merujuk ke sebuah sheet yang diproteksi
terbatas. Artinya, pada sheet tersebut hanya sebagian cells yang boleh
di-ubah.
Dengan batasan yang sudah dibuat seperti demikian, maka bagian :
WSheet1.Cells(rgtCol.Offset(, 1).Value, rgtCol.Offset(, 2).Value)
harus dipastikan agar merujuk pada cell yang boleh diubah saja.
Jika bagian ini merujuk ke cell yang tidak boleh diubah, maka akan
menghaslkan error.

Coba perbaiki tabel bantuan yang dirujuk oleh :
rgtCol.Offset(, 1).Value dan rgtCol.Offset(, 2).Value agar
WSheet1.Cells(rgtCol.Offset(,
1).Value, rgtCol.Offset(, 2).Value)
menghasilkan sebuah cell yang boleh diubah di sheet dalam variabel sheet
WSheet1

Wassalam,
Kid.

2013/3/26 agung aldhino <d_nozz@yahoo.co.id>

> **
>
>
> dear ana anta,
> berikut filenya yang saya janjikan. dan penjelasannya.
> mungkin Mr. Kid bisa menambahkan....
>
> sekalian tanya ke master-master excel seperti Mr. Kid.
> file sudah saya buat. ketika saya unprotect sheetnya. data yang muncul
> tidak ada masalah.
> tetapi ketika saya protect sheetnya. vba nya error. tetapi hanya pada data
> pertama saja. data lainnya ketika muncul tidak ada masalah.
> kenapa ya????
> maksudnya bukan ketika proses simpan data. tetapi view data. ketika kita
> ketik nomer peserta tidak ada masalah.
> namun ketika kita ketik nomer peserta "1" (tanpa tanda petik). akan muncul
> error.(ini hanya berlaku ketika sheet kita protect).
> tapi ketika kita ketik nomer yang lain tidak muncul error.
>
> wassalam
> Agung
>
> *Dari:* ana anta <anaanta321@yahoo.com>
> *Kepada:* "belajar-excel@yahoogroups.combelajar-excel@yahoogroups.com>
> *Dikirim:* Jumat, 22 Maret 2013 15:24
> *Judul:* Re: Bls: Bls: [belajar-excel] Penilaian
> **
>
> dear agung****oh, ya tahu.**emang seperti itu keinginan saya,.****kalau
> punya waktu luang, saya mohon bantuan penjelasann untuk membuat yang
> seperti itu.****terimakasih.****
>
>
> *From:* agung aldhino <d_nozz@yahoo.co.id>
> *To:* "belajar-excel@yahoogroups.combelajar-excel@yahoogroups.com>
> *Sent:* Friday, March 22, 2013 2:38 PM
> *Subject:* Bls: Bls: [belajar-excel] Penilaian
> **
>
> dear ana anta,**sebenarnya bahan tetap saya dari data anda yang lama.**formula
> juga masih menggunakan formula yang lama.**(karena formulanya masih bisa
> digunakan).**dan permasalahannya hanya pada efisiensi data saja. makanya
> sheet saya kurangi saja.**untuk tampilan sheet input sengaja dibatasi
> penggunaanya hanya pada kolom warna abu-abu. agar lebih nyaman
> menggunakannya.**untuk sheet input hanya terbatas pada input data saja
> bukan sekaligus output.**sebenarnya masih bisa dikembangkan. misalnya
> dibuatkan satu sheet database.**dikarenakan waktu yang mepet terpaksa
> saya kirimkan apa adanya.**jika ada waktu luang. akan saya bantu
> membuatkan yang lebih komplit lagi.**saya kurang pandai dalam menjelaskan.
> **tapi yang pasti daya hanya menambahkan VBA code saja didalamnya.** **
> wassalam**agung****________________________________**Dari: ana anta <
> mailto:anaanta321%40yahoo.com <anaanta321%40yahoo.com>>**Kepada: "
> mailto:belajar-excel%40yahoogroups.com <belajar-excel%40yahoogroups.com>
> mailto:belajar-excel%40yahoogroups.com <belajar-excel%40yahoogroups.com>
> mailto:d_nozz%40yahoo.co.id <d_nozz%40yahoo.co.id>
> mailto:d_nozz%40yahoo.co.id <d_nozz%40yahoo.co.id>> **Dikirim: Jumat, 22
> Maret 2013 8:14**Judul: Re: Bls: [belajar-excel] Penilaian**** **dear
> agung**terimakasih, kurang kebih begitu.**kalau boleh, minta penjelasan
> cara pembuatannya gimana, terutama sheet input juri?****terus, form input
> juri apakah sekaligus output?****wassalam****
> ________________________________**From: agung aldhino <
> mailto:d_nozz%40yahoo.co.id <d_nozz%40yahoo.co.id>>**To: "
> mailto:belajar-excel%40yahoogroups.com <belajar-excel%40yahoogroups.com>
> mailto:belajar-excel%40yahoogroups.com <belajar-excel%40yahoogroups.com>>
> **Sent: Thursday, March 21, 2013 7:09 PM**Subject: Bls: [belajar-excel]
> Penilaian**** **Dear ana anta,**file terlampir semoga bisa membantu dan
> sesuai harapan.**jikalau ada kekurangan mungkin master-master lainnya
> bisa membantu.** **wassalam**agung****________________________________**Dari:
> Bagus <mailto:bagus%40kingjim.co.id <bagus%40kingjim.co.id>>**Kepada:
> mailto:belajar-excel%40yahoogroups.com <belajar-excel%40yahoogroups.com> *
> *Dikirim: Kamis, 21 Maret 2013 18:32**Judul: Re: [belajar-excel] Penilaian
> **** **Dear; ana anta (saya kamu)** **File terlampir semoga sesuai
> harapan** ** **Wassalam**~ Bagus~** **----- Original Message ----- **>From:
> ana anta **>To: Milist Belajar excel **>Sent: Thursday, March 21, 2013
> 2:43 PM**>Subject: [belajar-excel] Penilaian**>**> **>Hi master.�Saya
> lagi belajar buat form penilaian, tapi yang saya sudah saya buat itu
> sangatlah merepotkan, saya harus memasukkan nilai ke masing2 peserta dengan
> berpuuh2 sheet. Saya inginnnya hanya ada:1. sheet untuk daftar nilai
> (misalkan ada 3 juri, maka masing2 juri beda sheet/ disatukan juga gak
> pa2), 2. sheet peserta, 3. sheet untuk input nilai,4. sheet report untuk
> melihat rekap nilai keseluruhan dari tiap peserta, tapi saya inginnya
> ketika ingin melihat report, hanya cukup dengan mengetikkan no
> peserta.Para� master, intinya saya pengennya kaya mail merge di
> word.Mohon penjelassannya ya. Terima Kasih belajar-excel.NB: Saya lampirkan
> juga contoh penilaian yang sudah saya buat dan sudah dipakai dulu (sudah di
> hapus sebagian reportnya).****
> ****
> ****
>
>
>

Wed Mar 27, 2013 9:06 pm (PDT) . Posted by:

"Mulki" mulki_akbar

Terimakasih atas pencerannya pak hendrik.
Bisa tolong di jelaskan dg bahasa awamnya pak :)

Wassalam,
Mulki akbar

----- Original Message -----
From: hendrik karnadi
To: belajar-excel@yahoogroups.com
Sent: Wednesday, March 27, 2013 1:47 PM
Subject: Re: [belajar-excel] Menggabung data customer address yg terdiri dari 2 sd 3 ROW ke dlm 1 ROW

Jika yang digabung pasti 3(tiga) baris maka coba ketik =IF(B5<>"",C5&" "&C6&" "&C7,"") pada sel D5,
kemudian copy ke bawah.

Salam,
HK

----------------------------------------------------------
From: Mulki <mulki@aop.component.astra.co.id>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, 27 March 2013, 10:03
Subject: [belajar-excel] Menggabung data customer address yg terdiri dari 2 sd 3 ROW ke dlm 1 ROW

Assalamu'alaikum Wr. Wb.

Mohon pencerahan rekan2 B-Xlers, bagaimana formula utk menggabung 2-3 ROW menjadi ke dlm 1 ROW saja.

Saya sudah gunakan mis : A1&A2&A3, tp sepertinya ada formula tambahan jika customer yg ingin digabung lebih dari 1000 customer.

Atas pencerahannya saya haturkan banyak terimakasih.

Wassalam,
Mulki akbar

Wed Mar 27, 2013 9:10 pm (PDT) . Posted by:

"Mulki" mulki_akbar

Terimakasih atas pencerahannya Mr.Kid. Kalo boleh tau kenapa customernya harus dibuat bertambah 1 dan 1 di belakangnya pd kolom B ?

Wassalam,
Mulki

----- Original Message -----
From: Mr. Kid
To: belajar-excel@yahoogroups.com
Sent: Thursday, March 28, 2013 8:34 AM
Subject: Re: [belajar-excel] Menggabung data customer address yg terdiri dari 2 sd 3 ROW ke dlm 1 ROW

Wa'alaikumussalam Wr. Wb.

File terlampir menggunakan 2 kolom bantu, yaitu :
> 1 kolom bantu untuk membuat customer yang terisi setiap barisnya (kolom B)
> 1 kolom bantu untuk menggabungkan seluruh address (kolom A)

syarat : data terurut berdasar kolom bantu di kolom B

Pengambilan data dari kolom bantu di kolom A menggunakan fungsi LookUp.

Wasssalamu&#39;alaikum Wr. Wb.
Kid.

2013/3/27 Mulki <mulki@aop.component.astra.co.id>

Assalamu'alaikum Wr. Wb.

Mohon pencerahan rekan2 B-Xlers, bagaimana formula utk menggabung 2-3 ROW menjadi ke dlm 1 ROW saja.

Saya sudah gunakan mis : A1&A2&A3, tp sepertinya ada formula tambahan jika customer yg ingin digabung lebih dari 1000 customer.

Atas pencerahannya saya haturkan banyak terimakasih.

Wassalam,
Mulki akbar

Wed Mar 27, 2013 9:13 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Supaya terurut barisnya (jadi kolom bantu sort juga), sehingga fungsi
lookup bisa bekerja dengan baik ketika data dilakukan sort.

Wassalam,
Kid.

2013/3/28 Mulki <mulki@aop.component.astra.co.id>

> **
>
>
> **
> Terimakasih atas pencerahannya Mr.Kid. Kalo boleh tau kenapa customernya
> harus dibuat bertambah 1 dan 1 di belakangnya pd kolom B ?
>
> Wassalam,
> Mulki
>
>
> ----- Original Message -----
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Thursday, March 28, 2013 8:34 AM
> *Subject:* Re: [belajar-excel] Menggabung data customer address yg
> terdiri dari 2 sd 3 ROW ke dlm 1 ROW
>
>
>
> Wa'alaikumussalam Wr. Wb.
>
>
> File terlampir menggunakan 2 kolom bantu, yaitu :
> > 1 kolom bantu untuk membuat customer yang terisi setiap barisnya (kolom
> B)
> > 1 kolom bantu untuk menggabungkan seluruh address (kolom A)
>
> syarat : data terurut berdasar kolom bantu di kolom B
>
> Pengambilan data dari kolom bantu di kolom A menggunakan fungsi LookUp.
>
> Wasssalamu&#39;alaikum Wr. Wb.
> Kid.
>
> 2013/3/27 Mulki <mulki@aop.component.astra.co.id>
>
>> **
>>
>>
>> **
>> Assalamu'alaikum Wr. Wb.
>>
>>
>> Mohon pencerahan rekan2 B-Xlers, bagaimana formula utk menggabung 2-3 ROW
>> menjadi ke dlm 1 ROW saja.
>>
>> Saya sudah gunakan mis : A1&A2&A3, tp sepertinya ada formula tambahan
>> jika customer yg ingin digabung lebih dari 1000 customer.
>>
>> Atas pencerahannya saya haturkan banyak terimakasih.
>>
>>
>> Wassalam,
>> Mulki akbar
>>
>>
>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar