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 >> >> >>
