جرب هذا يقوم بحذف الصفوف المتشابهة مع بعض وابقاء صف واحد
وهذا الكود من اعمال استاذنا الكبير سليم حاصبيا له منا كل الحب والإحترام وجزاه الله كل خير
29-4-18.xlsm
وهذه طريقة اخرى بالتنسيقات الشرطية
بمعنى اذا تشابه الصف مع صف اخر فسوف يقوم بتظليل الصف الأخر باللون الأحمر
29-4-18-2.xlsm
السلام عليكم اخوانى واساتذتى كل عام وانتم جميعا بخير
أقدم لكم برنامج اكسيل محاسب المبيعات للأستاذ الكبير محمود حمودة مع فيديو لشرح البرنامج
Sales Accounts.xlsm
السلام عليكم اخوانى واساتذتى كل عام وانتم جميعا بخير
اقدم لكم برنامج للمحاسبة المالية شامل و يضم قيود يومية وميزانية وميزان المراجعة وقائمة الدخل .......
وبه ملف وورد لتقديم شرح وتعليمات للبرنامج ونظرا لانه يتعدى 2 ميجا -فرفعته على موقع خارجى
جزاكم الله كل خير
http://www.mediafire.com/file/g9ol85xzbno4ot9/برنامج+المحاسبة+المالية.rar
جرب هذا اخى الكريم لعله يفيدك
https://support.office.com/ar-sa/article/إنشاء-مخطط-من-البداية-إلى-النهاية-0baf399e-dd61-4e18-8a73-b3fd5d5680c2
https://ar-vids.com/video/شرح-كيفية-حفظ-وفتح-القوالب-في-الرسم-البياني-الاحترافي-في-برنامج-الاتجاه-8-Q7anJB7eYXk.html
وعليكم السلام اخى الكريم
ولكن من الأفضل ان ترسل ملف للعمل عليه تجنبا اضاعة الوقت فى ملف غير الذى تقصده
ولكنى قمت بعمل هذا الملف لك لعله المطلوب
ترتيب الأسماء ابجديا.xls
وهذا ايضا ملف ترتيب تلقائى بمعنى بمجرد كتابة الإسم فى العمود الأول A
ثم الضغط على انتر او تنزل الى السطر التالى سترتب الأسماء تلقائيا حسب الأبجدى
جزاك الله كل خير
autu_sort-كود لترتيب الاسماء ابجدي.xlsm
يمكنك تجربة هذا الكود
Sub saveas_pdf()
Dim fw As Variant
fw = "c:\ الموظف رقم \الوظائف_" & Range("f7").Value & ".pdf"
Range("a1:h13").ExportAsFixedFormat Type:=xlTypePDF, FileName:=fw, openafterpublish:=True
End Sub