محمد علي سالم قام بنشر فبراير 12, 2016 مشاركة قام بنشر فبراير 12, 2016 اريد كود لترتيب الاسماء ابجدياً بحيث يقارن بين الاسماء الاولى في الخلية c13 و إذا كان لهم نفس الاسم يأخذ إسم الاب في الخلية d13 وإذا طلع ايضاً اسم الاب نفس الاسم يأخذ اسم الجد في الخلية e13 وإذا كان ايضاً متشابه يأخد اسم الجد الثاني في الخلية f13 وينقل بياناته معه من الرقم السري لين اللقب بمعنى من الخلية B13 إلى الخلية Q13 اما رقم الطالب يكون ثابت لا يتغير وهذا المرفق يبين المطلوب داخله ولكم كل الشكر والتقدير مهم.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر فبراير 12, 2016 مشاركة قام بنشر فبراير 12, 2016 أخي الكريم محمد قم بعمل عمود مساعد ليسهل عليك الأمر ، وفي النهاية يمكنك إخفاء العمود المساعد في الخلية 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 تقبل تحياتي 2 رابط هذا التعليق شارك More sharing options...
محمد علي سالم قام بنشر فبراير 12, 2016 الكاتب مشاركة قام بنشر فبراير 12, 2016 بجد لساني عجزت عن شكرك اخي ابو البراء الف شكر لك الله يوفقك يارب ويسعدك كل الشكر والتقدير لك جاري التنفيذ 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر فبراير 12, 2016 مشاركة قام بنشر فبراير 12, 2016 أخي الكريم محمد أفضل من الشكر قول "جزاك الله خيراً" .. وفقني الله وإياك لما فيه الخير والصلاح في الدنيا والآخرة وفي انتظار تنفيذك للكود .. تقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
محمد علي سالم قام بنشر فبراير 13, 2016 الكاتب مشاركة قام بنشر فبراير 13, 2016 جزاك الله خير وجعله في ميزان حسناتك اخي ياسر ابو البراء الاكواد جميلة جدا ورائعة اشكرك من اعماق قلبي 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر فبراير 14, 2016 مشاركة قام بنشر فبراير 14, 2016 وحزيت خيراً بمثل ما دعوت لي أخي الفاضل محمد علي والحمد لله أن تم المطلوب على خير تقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان