دالة او كود لترتيب الاسماء ابجدياً وفقاً لمجموعة من الخلايا

[محمد علي سالم]

اريد كود لترتيب الاسماء ابجدياً بحيث يقارن بين الاسماء الاولى في الخلية c13 و إذا كان لهم نفس الاسم يأخذ إسم الاب  في الخلية d13                              
وإذا طلع ايضاً اسم الاب نفس الاسم يأخذ اسم الجد في الخلية e13 وإذا كان ايضاً متشابه يأخد اسم الجد الثاني في الخلية f13                            
وينقل بياناته معه من الرقم السري لين اللقب بمعنى من الخلية B13 إلى الخلية Q13 اما رقم الطالب يكون ثابت لا يتغير     

وهذا المرفق يبين المطلوب داخله

ولكم كل الشكر والتقدير                        

 

مهم.rar

[ياسر خليل أبو البراء]

أخي الكريم محمد

قم بعمل عمود مساعد ليسهل عليك الأمر ، وفي النهاية يمكنك إخفاء العمود المساعد

في الخلية R12 اكتب كلمة "عمود مساعد" .. وضع المعادلة التالية في الخلية R13

=C13&D13&E13&F13

ثم ضع الكود التالي في موديول ونفذ الكود ليقوم بعملية الترتيب كما طلبت

Sub SortData()
    Dim LR As Long
    LR = Range("B" & Rows.Count).End(xlUp).Row
    Range("B12:R" & LR).Sort Key1:=Range("R12:R" & LR), Order1:=xlAscending, Header:=xlYes
End Sub

إليك الملف المرفق بعد إزالة كافة الفورم والموديولات والإبقاء على الكود المطلوب فقط حتى لا يتوه الأعضاء في الطلب ويستطيع من يحمل المرفق أن يفهم المرفق بسهولة

يرجى عدم تعدد الطلبات في الموضوع الواحد ..يمكنك طرح موضوع لكل طلب على حدا

Sort Data In Ascending Way YasserKhalil.rar

 

الطلب الثاني وهو فتح ملف الورد

قم بوضع الكود التالي مع تغيير اسم ملف الورد ليناسب طلبك

    Dim objWord As Object
    Set objWord = CreateObject("Word.Application")
    
    objWord.Visible = True
    objWord.Documents.Open (ThisWorkbook.Path & "\Ahmed.docx")
    objWord.Activate

تقبل تحياتي

[محمد علي سالم]

بجد لساني عجزت عن شكرك اخي ابو البراء

الف شكر لك

الله يوفقك يارب ويسعدك

كل الشكر والتقدير لك

جاري التنفيذ

 

[ياسر خليل أبو البراء]

أخي الكريم محمد

أفضل من الشكر قول "جزاك الله خيراً" ..

وفقني الله وإياك لما فيه الخير والصلاح في الدنيا والآخرة

وفي انتظار تنفيذك للكود ..

تقبل تحياتي

[محمد علي سالم]

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

اشكرك من اعماق قلبي

[ياسر خليل أبو البراء]

وحزيت خيراً بمثل ما دعوت لي أخي الفاضل محمد علي

والحمد لله أن تم المطلوب على خير

تقبل تحياتي