HELP... convert cell to commas separate

[sh3nmue]

halo agan2...
ada yang bisa bantu ane gan...hehehe
mau merubah cell yg memiliki data kriteria yang sama di convert menjadi koma...
ane kasih screenshotnya...


ayo agan2 yang da jago... yg dah master... monggo dibantu.. hehehe
thx ya gan

 

[tiaseptiani]

maksudnya giman aden?
saya ga ngerti -.-
bukan ahlinya saya nih hahahaa

 

[sh3nmue]

maksudnya giman aden?
saya ga ngerti -.-
bukan ahlinya saya nih hahahaa

wah maksudnya apa yah??? haha/... maksudnya yah seperti yg digambar itu gan...
biar ane bisa tulis laporan siapa aj murid2 yg dpt nilai 8, siapa aja yg dpt 7, siapa aja yg dpt 6,, dsb gan... hehehe

 

[sejagad]

duh mohon maaf den sh3nmue...saya benar2 tidak bisa membantu...seperti yang aden harapkan
tapi.......setelah berbulan-bulan saya mencari di rumahnya mbah...akhirnya saya menukannya...dengan sedikit sekali meng-editmya...agar sesuai dengan keinginan aden sh3nmue....silahkan download aja Attachment yang saya lampirkan.

 

[sh3nmue]

duh mohon maaf den sh3nmue...saya benar2 tidak bisa membantu...seperti yang aden harapkan
tapi.......setelah berbulan-bulan saya mencari di rumahnya mbah...akhirnya saya menukannya...dengan sedikit sekali meng-editmya...agar sesuai dengan keinginan aden sh3nmue....silahkan download aja Attachment yang saya lampirkan.

wah... akhirnya nongol juga si master sejagad... hehe... thx ya...
tp btw file excelnya yg agan upload kok ga ada macronya gan... hehe...

 

[tiaseptiani]

reppu buat den sejagad

 

[sejagad]

wah... akhirnya nongol juga si master sejagad... hehe... thx ya...
tp btw file excelnya yg agan upload kok ga ada macronya gan... hehe...

ada kok den nih macronya :v

Function ConcatIf(ByVal compareRange As Range, ByVal xCriteria As Variant, Optional ByVal stringsRange As Range, _
                    Optional Delimiter As String, Optional NoDuplicates As Boolean) As String
                    
    Rem the first three argumens of ConcatIf mirror those of SUMIF
    Rem the Delimiter and NoDuplicates arguments are optional (default "" and False)
    Dim i As Long, j As Long
    
    With compareRange.Parent
        Set compareRange = Application.Intersect(compareRange, Range(.UsedRange, .Range("c1")))
    End With
    
    If compareRange Is Nothing Then Exit Function
    If stringsRange Is Nothing Then Set stringsRange = compareRange
    Set stringsRange = compareRange.Offset(stringsRange.Row - compareRange.Row, _
                                            stringsRange.Column - compareRange.Column)
    
    For i = 1 To compareRange.Rows.Count
        For j = 1 To compareRange.Columns.Count
            If (Application.CountIf(compareRange.Cells(i, j), xCriteria) = 1) Then
                If InStr(ConcatIf, Delimiter & CStr(stringsRange.Cells(i, j))) <> 0 Imp Not (NoDuplicates) Then
                    ConcatIf = ConcatIf & Delimiter & CStr(stringsRange.Cells(i, j))
                End If
            End If
        Next j
    Next i
    ConcatIf = Mid(ConcatIf, Len(Delimiter) + 1)
End Function

reppu buat den sejagad

@-->@-->@-->@-->