Dear all, makasih ya jawabannya. tp kl colom nya di urutin dari (kecil-besar atau sebaliknya) jd error ni tp msh bingung, apa gk ada cara yg lebih simple msh blom ngerti udf..
ini saya lampirkan dummy yg baru ya jd ada 1 club disukai oleh orang yg berbeda2 nha misal gini juventus - mahfud juventus - ardie asroma - jack persija - jack acmilan - ayah nha gimana caranya dalam kolom kriteria saya ketik juventus output dr vlookupnya jd "mahfud,ardie" dan satu lagi kl diurutin disesuaikan dengan abjad tidak jd error hasil formulanya heheeh kl yg susah saya buat cuman bisa nampilin satu nama orang saja, apa harus ditambah function lain??? Wassalam T. MACHFUD GANI ________________________________ Dari: Jan Raisin <[email protected]> Kepada: [email protected] Dikirim: Senin, 13 Januari 2014 20:16 Judul: Re: [belajar-excel] mengambil data (multi string) dengan vlookup ups.. koreksi sedikit.. contoh penggunaan formulanya yang benar sbb: =ConcateIf( $C$8:$C$17 , H8 , $B$8:$B$17 , "," ) Salam, -Miss Jan Raisin- Pada 13 Januari 2014 20.13, Jan Raisin <[email protected]> menulis: Coba gunakan UDF ConcateIf > > >syntaxnya >=ConcateIf( range_criteria , criteria , range_data , tanda_penghubung ) > > >contoh penggunaan: >=ConcateIf( $C$8:$C$17 , H8;$B$8:$B$17 , "," ) > > > >tanda penghubung harus berada di antara kutip dua " " > > >scriptnya ditulis di dalam sebuah modul dengan scope Public agar dapat >dipanggil dari worksheet seperti formula excel laiinya > > >Public Function ConcateIf(rngCrit As Range, Crit As Range, rngData As Range, >sCon As String) As String > Dim rgCrit As Range > Dim sConcate As String > Dim iCol As Integer > Dim lRow As Long > > iCol = rngData.Column > For Each rgCrit In rngCrit > If rgCrit.Value = Crit.Value Then > lRow = rgCrit.Row > If sConcate = vbNullString Then > sConcate = Cells(lRow, iCol).Value > Else > sConcate = sConcate & sCon & Cells(lRow, iCol).Value > End If > End If > Next rgCrit > ConcateIf = sConcate >End Function > > >File solusi terlampir > > >Salam, > > > > >-Miss Jan Raisin- > > >Pada 13 Januari 2014 16.33, T. Machfud G <[email protected]> menulis: > > > >> >>hehehehhehe...penyakit lama lupa >>hari ini email ada 3 semuanya lupa attach file nya kwkwkwk >> >>Regards, >>T. MACHFUD GANI >> >> >> >>
