السلام عليكم اساتذتى واحبائى الكرام -اود اليوم تقديم لحضراتكم دالة معرفة تسمى Lookup_concat وظيفتها الأساسية هى احضار بيانات ودمجها فى خلية واحدة بناءا على معطى موجود للبحث عن بياناته
فمثلا اذا كان لدينا صفحة بها بيانات أرقام سيارات وكل رقم له عدة تواريخ لتحميل هذه السيارات وكان لزاما علينا معرفة كل هذه التواريخ ودمجها فى خلية واحدة عندما نقوم بكتابة رقم السيارة مثلا فى صفحة البحث ويمكنك ايضا قياس جميع البيانات على هذا القبيل وفى اى ملف اخر لديك
وكود هذه الدالة هو :

Function Lookup_concat(Search_string As String, _
  Search_in_col As Range, Return_val_col As Range)

Dim i As Long
Dim result As String

For i = 1 To Search_in_col.Count
  If Search_in_col.Cells(i, 1) = Search_string Then
    result = result & " " & Return_val_col.Cells(i, 1).Value
  End If
Next

Lookup_concat = Trim(result)

End Function

وهذه هى المعادلة المطلوب كتابتها فى صفحة العمل كما بالملف فى صفحة Search

=Lookup_concat($A2,Data!$A$2:$A$500,Data!$C$2:$C$500)<br />

وتفضلوا الملف بارك الله فيكم جميعا
دمج البيانات من عدة خلايا فى خلية واحدة.rar