ادراج نطاق في خلية واحدة بداله معرفة UdF

[tokhy2000]

عندي عدة صفوف فيها بيانات وعايز اجمع البيانات اللي ف كل صف ف خلية واحده ويفصل بين كل معلومة واللي بعدها علامة الناقص 
مع العلم ان عندي اكثر من ١٢٠٠٠ سطر يعني ماينفعش & وايضاً عايز لو ضفت اَي حاجه ف العمود تظهر اوتوماتيك ف الخلية

برجاء مراجعة الموضوع السابق ع اللينك التالي لفهم المشكلة:

 

[خالد الرشيدى]

السلام عليكم

اليك الدالة المعرفة التالية 

Public Function ConcatenateRange(rRange As Range, Optional sDelimiter As String) As String
    Dim c As Variant

    For Each c In rRange.Cells

     ' اذا اردت ان تتجاهل المعادلة الخلايا الفارغة احذف تلك الشرطه ' من السطر التالى والسطر القبل قبل الاخير فوضع تلك الشرطة امام اي سطر من الاكواد يعنى انه سطر للشرح او ملاحظه وليس كود سينفذ  
       ' If Not c.Value = "" Then
            If ConcatenateRange = "" Then
                ConcatenateRange = c.Value
            Else
                ConcatenateRange = ConcatenateRange & sDelimiter & c.Value
            End If
      '  End If
    Next c

End Function

Employee_4.rar

تم تعديل مايو 18, 2017 بواسطه خالد الرشيدى

[tokhy2000]

في 5/18/2017 at 19:34, خالد الرشيدى said:

السلام عليكم

اليك الدالة المعرفة التالية 

Public Function ConcatenateRange(rRange As Range, Optional sDelimiter As String) As String
    Dim c As Variant

    For Each c In rRange.Cells

     ' اذا اردت ان تتجاهل المعادلة الخلايا الفارغة احذف تلك الشرطه ' من السطر التالى والسطر القبل قبل الاخير فوضع تلك الشرطة امام اي سطر من الاكواد يعنى انه سطر للشرح او ملاحظه وليس كود سينفذ  
       ' If Not c.Value = "" Then
            If ConcatenateRange = "" Then
                ConcatenateRange = c.Value
            Else
                ConcatenateRange = ConcatenateRange & sDelimiter & c.Value
            End If
      '  End If
    Next c

End Function

Employee_4.rar

تسلم ايدك يااستاذ خالد مظبوطه وده طلبي وشكرا جدا لحضرتك