البحث عن اسم ولي الامر من هذا الشيت وجعل القيم المطابقة يعني أسماء الابناء في خلية واحدة في شيت اخر الاباء

[ابواميمة]

السلام عليكم ورحمة الله وبركاته ..ارجو المساعدة بارك الله في جهودكم اجمعين اللهم امين

اريد معادلة تبحث عن اسم ولي الامر وتاتيني باسماء ابنائه  كلهم وتضعها في خلية واحدة كما هو مبين في الملف المرفق.وجزاكم الله خيرا

انتبه من فضلك فقد تـــم اعادة رفع الملف بإمتداد يقبل الأكواد Xlsm , طالما ان طلبك تم حله بالأكواد

الاباء.xlsm

[lionheart]

In standard module, put the following UDF

Function VLookUps(myCode As Range, myList As Range, delim As String, Optional Uniq As Boolean = False) As String
    Dim e
    VLookUps = Join(Filter(myList.Parent.Evaluate("TRANSPOSE(IF(" & myList.Columns(7).Address & "=" & myCode.Address(, , , True) & ", " & myList.Columns(2).Address & "))"), False, 0), delim)
    If Uniq Then
        With CreateObject("Scripting.Dictionary")
            .CompareMode = 1
            For Each e In Split(VLookUps, delim)
                .Item(Trim(Split(e)(1))) = Empty
            Next e
            VLookUps = Join(.Keys, delim)
        End With
    End If
End Function

In cell F2, you can use the UDF as following

=VLookUps(Tabla2[@[إسم ولي الأمر]],Tabla1[#All]," - ",TRUE)

 

[ابواميمة]

جزاك الله خيرا اخي الفاضل وجعله الله لك في ميزان حسناتك 

ولكن كيف يمكن تطبيقه على الشيت اذا كان ممكنا اخي الكريم فضلا لا امرا ان تطبقه على الشيت المرفق ولكم على ذلك جزيل الشكر لان اخوكم مبتدا في هذا الميدان 

 

[lionheart]

To implement
With your workbook active press Alt+F11 to bring up the vba window
In the Visual Basic window use the menu to Insert|Module
Copy and Paste the code below into the main right hand pane that opens at step 2
Close the Visual Basic window
Press Alt+F8 to bring up the Macro dialog
Select the macro & click 'Run'
Your workbook will need to be saved as a macro-enabled workbook (*.xlsm)

[هانى محمد]

تفضل طبعاً بعد اذن استاذنا الكريم lionheart .. فالأمر سهل جداً ولكن لابد من الضغط على الإعجاب 💙 من طرفكم لما قدمه لكم استاذنا الكبير lionheart

الاباء1.xlsm

[ابواميمة]

جزاكم الله خيرا استاذنا الفاضل lionheart فكلمة الشكر لا تكفي فلكم مني دعوة في ضهر الغيب 

وكذلك الشكر لكم اخي الفاضل هاني على المساعدة  فبارك الله فيكم اجمعين