Hei Miss Jan Raisin
Sebelumnya terima kasih banyak atas masukan & solusinya, saya akan pelajari dulu ya miss JR karena sama baru mempelajari VBA dan belum mengerti arti-arti dari script ... semoga saya bisa pahami dulu ... sekali lagi terima kasih, jadi semangat untuk belajar lagi. :) salam Iman DZ ***** Mods ***** mumpung pak Iman ada keinginan untuk belajar VBA, coba baca-baca tulisannya om Kid mulai dari link : http://b-excel.blogspot.com/2013/06/belajarvba-000-kenalan.html http://b-excel.blogspot.com/2013/06/belajarvba-000-kenalan.html dibuat untuk yang belum kenal VBA sama sekali. ***** Mods ***** ---In belajar-excel@yahoogroups.com, wrote: Hai pak Iman, coba bantu menggunakan UDF (User Defined Function atau fungsi buatan sendiri) syntaxnya: =CMC( rk_Code , Code , rk_Shift, Shift, rk_Date , Date , range_Action) CMC = ConcatenateMultiColumns rk_ = range kriteria contoh penggunaan: =CMC(tblInput[Unit No] , 'per day'!E9;tblInput[Shift] , 'per day'!F9,tblInput[Date] , 'per day'!$D$3 , tblInput[Remark]) scriptnya sbb: Option Explicit Public Function CMC(rgCode As Range, xCode As Range, _ rgShift As Range, xShift As Range, _ rgDate As Range, xDate As Range, _ rgCrit As Range) As String Dim xCd As Range Dim sCrit As String, sSht As String Dim lRow As Long Dim IdxShift As Long, IdxDate As Long, IdxCrit As Long sSht = rgCode.Worksheet.Name http://rgCode.Worksheet.Name IdxShift = rgShift.Column IdxDate = rgDate.Column IdxCrit = rgCrit.Column For Each xCd In rgCode If xCd.Value = xCode.Value Then lRow = xCd.Row If Sheets(sSht).Cells(lRow, IdxShift).Value = xShift.Value Then If Sheets(sSht).Cells(lRow, IdxDate).Value = xDate.Value Then If sCrit = "" Then sCrit = Sheets(sSht).Cells(lRow, IdxCrit).Value Else sCrit = sCrit & ", " & Sheets(sSht).Cells(lRow, IdxCrit).Value End If End If End If End If Next xCd CMC = sCrit End Function file terlampir... oia... Shiftnya harus ditulis sama persis, tidak boleh yang satu ditulis Day sedangkan yang lainnya D saja Salam, -Miss Jan Raisin- Pada 25 November 2013 11.47, <idz.iman@... mailto:idz.iman@...> menulis: salam Mr. Kid Kali ini saya ingin bertanya, bagaimana cara untuk menggabungkan cell yang berisi aktifitas (text) dari beberapa kegiatan di colum Remark & keterangan pada sheet "OH Rent" dalam periode 1 shift. contoh file terlampir Mr. Kid. Mohon pencerahannya Mr. Kid Salam, Iman DZ
