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
