RE: RE: [belajar-excel] MEMBUAT LIST DARI RANGE

2018-04-16 Terurut Topik 'M.Ade Alfarid' q...@kkmi.co.id [belajar-excel]
Makasih pak HK.



Ade



*From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]

*Sent:* Saturday, April 14, 2018 4:14 PM
*To:* 'M.Ade Alfarid' q...@kkmi.co.id [belajar-excel]
*Subject:* Re: RE: [belajar-excel] MEMBUAT LIST DARI RANGE





Sebagai alternatif...*Listnya* *bisa* *pakai UDF (User Defined Function)
mbak Siti* *yang bernama LOUV (**List of Unique Values*).



UDF nya spt ini:

Function LOUV(D As Range)

   '-

   ' membuat daftar unique value (sorted) berdasarkan range data

   ' coded by siti Vi / feb2006, di bluewater /recoded: 1jul2007, di jkt

   '-

   Dim A(), x(), v, n As Integer, p As Integer, q As Integer, r As Integer

   ReDim A(1 To D.Cells.Count)

   For n = 1 To UBound(A): A(n) = D.Cells(n): Next n

   For n = 1 To UBound(A) - 1

  For q = UBound(A) To n + 1 Step -1

 p = q - 1

 If A(p) > A(q) Then

v = A(p): A(p) = A(q): A(q) = v

 Else

If A(p) = A(q) Then A(q) = ""

 End If

  Next q

   Next n

   For n = 1 To UBound(A)

  If Not A(n) = "" Then

 r = r + 1: ReDim Preserve x(1 To r): x(r) = A(n)

  End If

   Next n

   LOUV = WorksheetFunction.Transpose(x)

End Function



UDF nya bisa dibuat di module dan filenya disimpan sebagai file berMacro
(.xlsm) atau Binary file (.xlsb)

atau UDFnya disimpan tersendiri sebagai file Add-Ins (.xla), kemudian
Fungsi LOUV diaktifkan melalui Add-Ins (Buka Add-Ins, Browse dan cari file
(.xla) nya).



Jumlahnya bilangan cacahnya tetap pakai Fungsi CountIf.



Salam,

HK





On Friday, 13 April 2018, 4:20:25 PM GMT+7, 'M.Ade Alfarid' q...@kkmi.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:







Kalo formula jadinya panjang buanget atau ribet Mr Kid?



*From:* belajar-ex...@yahoogroups..com <belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com]
*Sent:* Friday, April 13, 2018 2:41 PM
*To:* BeExcel
*Subject:* Re: [belajar-excel] MEMBUAT LIST DARI RANGE





Hai Ade,

Tambahkan 1 kolom dikiri data, isi dengan nilai yang sama di seluruh
barisnya, seperti 'Kid'

Setelah itu manfaatkan pivot consolidation seperti yang ada diposting
beberapa waktu lalu yang ada disini :
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/44099

Regards,

Kid



2018-04-13 8:49 GMT+07:00 'M.Ade Alfarid' q...@kkmi.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:



Dear,

Jika ada record data dari A3:T20 dan hendak dibuat list nya, dengan
menggunakan formula seperti apa?

Sudah coba index tapi gak bisa, kriteria multi kolom begini, mohon solusi.

Terlampir file excelnya.

Contoh:

[image: cid:image001.png@01D3D263.A57219F0]



Terimakasih,

Ade


RE: [belajar-excel] MEMBUAT LIST DARI RANGE

2018-04-16 Terurut Topik 'M.Ade Alfarid' q...@kkmi.co.id [belajar-excel]
Makasih Mr Kid,

Saya masih g mudeng dengan array dan logika membentuknya hehehehe..

Makanya saya tanya formulanya biar bisa belajar.



Ade



*From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]

*Sent:* Saturday, April 14, 2018 6:03 AM
*To:* BeExcel
*Subject:* Re: [belajar-excel] MEMBUAT LIST DARI RANGE





Tidak terlalu panjang dan tidak juga ribet.

Hanya saja berpotensi memperlambat kerja karena luasan array yang diproses



2018-04-13 16:15 GMT+07:00 'M.Ade Alfarid' q...@kkmi.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:



Kalo formula jadinya panjang buanget atau ribet Mr Kid?



*From:* belajar-ex...@yahoogroups..com <belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com]
*Sent:* Friday, April 13, 2018 2:41 PM
*To:* BeExcel
*Subject:* Re: [belajar-excel] MEMBUAT LIST DARI RANGE





Hai Ade,

Tambahkan 1 kolom dikiri data, isi dengan nilai yang sama di seluruh
barisnya, seperti 'Kid'

Setelah itu manfaatkan pivot consolidation seperti yang ada diposting
beberapa waktu lalu yang ada disini :
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/44099

Regards,

Kid



2018-04-13 8:49 GMT+07:00 'M.Ade Alfarid' q...@kkmi.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:



Dear,

Jika ada record data dari A3:T20 dan hendak dibuat list nya, dengan
menggunakan formula seperti apa?

Sudah coba index tapi gak bisa, kriteria multi kolom begini, mohon solusi.

Terlampir file excelnya.

Contoh:

[image: cid:image001.png@01D3D263.A57219F0]



Terimakasih,

Ade


Re: RE: [belajar-excel] MEMBUAT LIST DARI RANGE

2018-04-14 Terurut Topik hendrik karnadi hendrikkarn...@yahoo.com [belajar-excel]
 Sebagai alternatif...Listnya bisa pakai UDF (User Defined Function) mbak Siti 
yang bernama LOUV (List of Unique Values).
UDF nya spt ini:Function LOUV(D As Range)   
'-   ' 
membuat daftar unique value (sorted) berdasarkan range data   ' coded by siti 
Vi / feb2006, di bluewater /recoded: 1jul2007, di jkt   
'-   Dim 
A(), x(), v, n As Integer, p As Integer, q As Integer, r As Integer   ReDim A(1 
To D.Cells.Count)   For n = 1 To UBound(A): A(n) = D.Cells(n): Next n   For n = 
1 To UBound(A) - 1      For q = UBound(A) To n + 1 Step -1         p = q - 1    
     If A(p) > A(q) Then            v = A(p): A(p) = A(q): A(q) = v         
Else            If A(p) = A(q) Then A(q) = ""         End If      Next q   Next 
n   For n = 1 To UBound(A)      If Not A(n) = "" Then         r = r + 1: ReDim 
Preserve x(1 To r): x(r) = A(n)      End If   Next n   LOUV = 
WorksheetFunction.Transpose(x)End Function
UDF nya bisa dibuat di module dan filenya disimpan sebagai file berMacro 
(.xlsm) atau Binary file (.xlsb)atau UDFnya disimpan tersendiri sebagai file 
Add-Ins (.xla), kemudian Fungsi LOUV diaktifkan melalui Add-Ins (Buka Add-Ins, 
Browse dan cari file (.xla) nya).
Jumlahnya bilangan cacahnya tetap pakai Fungsi CountIf.
Salam,HK

On Friday, 13 April 2018, 4:20:25 PM GMT+7, 'M.Ade Alfarid' q...@kkmi.co.id 
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:  
 
     


Kalo formula jadinya panjang buanget atau ribet Mr Kid?

 

From: belajar-ex...@yahoogroups..com [mailto:belajar-excel@yahoogroups.com] 
Sent: Friday, April 13, 2018 2:41 PM
To: BeExcel
Subject: Re: [belajar-excel] MEMBUAT LIST DARI RANGE

 

  

Hai Ade,

Tambahkan 1 kolom dikiri data, isi dengan nilai yang sama di seluruh barisnya, 
seperti 'Kid'

Setelah itu manfaatkan pivot consolidation seperti yang ada diposting beberapa 
waktu lalu yang ada disini :
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/44099

Regards,

Kid

 

2018-04-13 8:49 GMT+07:00 'M.Ade Alfarid' q...@kkmi.co.id [belajar-excel] 
<belajar-excel@yahoogroups.com>:

  

Dear, 

Jika ada record data dari A3:T20 dan hendak dibuat list nya, dengan menggunakan 
formula seperti apa?

Sudah coba index tapi gak bisa, kriteria multi kolom begini, mohon solusi.

Terlampir file excelnya.

Contoh:



 

Terimakasih,

Ade

 




Re: [belajar-excel] MEMBUAT LIST DARI RANGE

2018-04-13 Terurut Topik 'Mr. Kid' mr.nm...@gmail.com [belajar-excel]
Tidak terlalu panjang dan tidak juga ribet.
Hanya saja berpotensi memperlambat kerja karena luasan array yang diproses

2018-04-13 16:15 GMT+07:00 'M.Ade Alfarid' q...@kkmi.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Kalo formula jadinya panjang buanget atau ribet Mr Kid?
>
>
>
> *From:* belajar-ex...@yahoogroups..com <belajar-excel@yahoogroups.com>
> [mailto:belajar-excel@yahoogroups.com]
> *Sent:* Friday, April 13, 2018 2:41 PM
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] MEMBUAT LIST DARI RANGE
>
>
>
>
>
> Hai Ade,
>
> Tambahkan 1 kolom dikiri data, isi dengan nilai yang sama di seluruh
> barisnya, seperti 'Kid'
>
> Setelah itu manfaatkan pivot consolidation seperti yang ada diposting
> beberapa waktu lalu yang ada disini :
> https://groups.yahoo.com/neo/groups/belajar-excel/
> conversations/messages/44099
>
> Regards,
>
> Kid
>
>
>
> 2018-04-13 8:49 GMT+07:00 'M.Ade Alfarid' q...@kkmi.co.id [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
>
> Dear,
>
> Jika ada record data dari A3:T20 dan hendak dibuat list nya, dengan
> menggunakan formula seperti apa?
>
> Sudah coba index tapi gak bisa, kriteria multi kolom begini, mohon solusi..
>
> Terlampir file excelnya.
>
> Contoh:
>
> [image: cid:image001.png@01D3D263.A57219F0]
>
>
>
> Terimakasih,
>
> Ade
>
>
>
> 
>


re-LIST DARI MULTI ROW MULTI COLOUM.xlsx
Description: MS-Excel 2007 spreadsheet


RE: [belajar-excel] MEMBUAT LIST DARI RANGE

2018-04-13 Terurut Topik 'M.Ade Alfarid' q...@kkmi.co.id [belajar-excel]
Kalo formula jadinya panjang buanget atau ribet Mr Kid?



*From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]

*Sent:* Friday, April 13, 2018 2:41 PM
*To:* BeExcel
*Subject:* Re: [belajar-excel] MEMBUAT LIST DARI RANGE





Hai Ade,

Tambahkan 1 kolom dikiri data, isi dengan nilai yang sama di seluruh
barisnya, seperti 'Kid'

Setelah itu manfaatkan pivot consolidation seperti yang ada diposting
beberapa waktu lalu yang ada disini :
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/44099

Regards,

Kid



2018-04-13 8:49 GMT+07:00 'M.Ade Alfarid' q...@kkmi.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:



Dear,

Jika ada record data dari A3:T20 dan hendak dibuat list nya, dengan
menggunakan formula seperti apa?

Sudah coba index tapi gak bisa, kriteria multi kolom begini, mohon solusi.

Terlampir file excelnya.

Contoh:

[image: cid:image001.png@01D3D263.A57219F0]



Terimakasih,

Ade






Re: [belajar-excel] MEMBUAT LIST DARI RANGE

2018-04-13 Terurut Topik 'Mr. Kid' mr.nm...@gmail.com [belajar-excel]
Hai Ade,

Tambahkan 1 kolom dikiri data, isi dengan nilai yang sama di seluruh
barisnya, seperti 'Kid'
Setelah itu manfaatkan pivot consolidation seperti yang ada diposting
beberapa waktu lalu yang ada disini :
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/44099

Regards,
Kid

2018-04-13 8:49 GMT+07:00 'M.Ade Alfarid' q...@kkmi.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear,
>
> Jika ada record data dari A3:T20 dan hendak dibuat list nya, dengan
> menggunakan formula seperti apa?
>
> Sudah coba index tapi gak bisa, kriteria multi kolom begini, mohon solusi..
>
> Terlampir file excelnya.
>
> Contoh:
>
> [image: cid:image001.png@01D3D263.A57219F0]
>
>
>
> Terimakasih,
>
> Ade
>
> 
>