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

شكرا أخي الفاضل أبو جودي وبارك الله فيك

شكرا جزيلا لكما وبارك الله فيكما

شكرا لحضرتك معلش أخوك مبتدئ وبنتعلم منكم لما بفتح الملف بيظهر زي الصورة السابقة عايز اعرف انقل النموذج ازاي مع الأكواد يعني لما بعمل كليك يمين علي اي نموذج في وضع التصميم اعرف اخذ الأكواد

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

أخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته الملف المرفق هو لتشغيل الصوتيات عمل الأستاذ القدير ( أبو جودي ) ادام الله عليه الصحة والعافية وعلي جميع الأعضاء محتاج نقل النموذج الي برنامج . كيف ؟ Digital Player App.zip