2saad

شكرا جزيلا وربنا يبارك في حضرتك ويزيدك من علمه

شكرا جزيلا لكما وبارك الله فيكما ومتعكما الله بالصحة والعافية يا ريت أخي الفاضل خليفة تضيف كمان توسيع الدالة بحيث تنظف أي مسافات مزدوجة أو رموز غير مرغوبة (زي التنوين أو التشكيل) وكمان ياريت لو فيه دالة يتقوم بابجدة الأسماء بحيث يكون الذكور أولا ثم الإناث يبقي كده أكون شاكر لك وجزاك الله كل خير

إخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته محتاج كود يقوم بإزالة الهمزات ( أ إ آ إلي ا ) ( ى إلي ي ) وخذف المسافات بين عبد والاسم بعدها ( عبد الرحمن تبقي عبدالرحمن ) ( أبو الددهب تبقي ابوالدهب ) بحيث يتم ترنيب الأسماء ابجديا ولكم جزيل الشكر ووافر الاحترام

شكرا لكما وبارك الله فيكما وزادكما الله من علمه

إخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته محتاج اعمل تنسيق شرطي في تقرير بحيث إذا كان الاسم مكتوب أمامه اي شي غير ( لا يوجد ) يتم تلوين الاسم كما في الصورة

بارك الله فيكم جميعا وزادكم الله من علمه

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

شكرا جزيلا أخي الفاضل وبارك الله فيك انا بستعمل اوفيس 2010 ولم تفتح الأداة معي

شكرا جزيلا أخي الفاضل نفس المشكلة حاجة غريبة أنا بستعمل اوفيس 2010 وويندوز 7

شكرا جزيلا وبارك الله فيك وأكثر الله من أمثالك عند تشغيل الملف تظهر هذه الرسالة

شكرا جزيلا أخي الفاضل عند فتح الملف تأتي هذه الصورة وتستمر كثيرا دون فتح الملف ( نسخة 32 )

شكرا جزيلا أخي الفاضل وبارك الله فيك وأكثر الله من أمثالك وزادك الله من علمه

شكرا جزيلا أخي الفاضل لو تكرمت ممكن أي كود يفي بالغرض

شكرا جزيلا أخي الفاضل الملف المرفق saad.xlsx الترتيب بناء علي العمود الملون باللون الأصفر بالملف المرفق

إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته محتاج اعدل في هذا الكود بحيث يتم الترتيب رقم 1 أولا ثم رقم 2 بدلا من الذكور أولا ثم الإناث lr = Cells(Rows.Count, 2).End(xlUp).Row ActiveWorkbook.Worksheets("الصف الثالث").Sort.SortFields.Clear ActiveWorkbook.Worksheets("الصف الثالث").Sort.SortFields.Add Key:=Range("H3:H" & lr) _ , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("الصف الثالث").Sort.SortFields.Add Key:=Range("C3:C" & lr) _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("الصف الثالث").Sort .SetRange Range("B3:Q" & lr) .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With