الرائد77

تفضل test.xlsx

آسف زملائي . ارسلت الملف الخطأ. و قمت بتجريب ملف آخر هذا الملف الصحيح. 'طباعة1.xlsm

'طباعة1.xlsm

لم أفهم.يا أخي. الاكواد مرتبة. وارى أنك جعلت الكود متسلسل. لا بأس أضف التصميم الدي تريده على الجدول في الملف و اعد ارسالة و ان شاء سأعدله.

لا شكر على واجب أخي. بارك الله فيك و جزاك الله خيرا اذا اكتفيت بالإجابة .حدد كأفضل إجابة حتى يتم غلق الموضوع

نعم . عند توصيل الطابعة . تطبع الكل مرة واجدة . مرتبة ليس مثل الطابعة الوهمية

تفضل اربع شهادات في كل صفحة دالة لوك اب تجربةمع ادمودو2.xlsm

السلام عليكم كان يجب ارفاق الملف يا أخي تفضل talabia.xlsx

ضع هذه في خلية التاريخ =IFERROR(IF(COUNTIF(Setting!$A:$A;$A2)>=1;TODAY();"كود الموظف غير موجود");"-") و هذه في خلية الوقت =IFERROR(IF(COUNTIF(Setting!$A:$A;$A2)>=1;NOW();"كود الموظف غير موجود");"-")

تفضل =COUNTA(F6:F16)-COUNTIF(F6:F16;"") و اذا اردت الخلايا التي تحتوي على قيم نصية فقط =COUNTIF(F6:F16;"?*") ورقة عمل Microsoft Excel جديد __.xlsx

محاولة بسيطة . تفضل Sumifs2.xlsx

تفضل أخي index and match تقوم بنفس العمل. دالة بحث اكسل 19.xlsx

ارسل الملف الخاص بك و ان شاء الله اعدله

حمل من هنا https://play.google.com/store/apps/details?id=com.microsoft.office.powerpoint&hl=en official Microsoft PowerPoint application of Android

جرب هذا تجريبي3.xlsm

لا . لا يؤثر لقد جربت العملية لم يحدث شيىء الملفات التي عملتها على وينذوز 7 تعمل عادي بعد تثبيت ويندوز10

Sub ORDER() LRW = ActiveSheet.Range("C" & ActiveSheet.Rows.Count).End(xlUp).Row With ActiveSheet.Sort .SortFields.Add Key:=Range("I2"), ORDER:=xlDescending .SetRange Range("B2:I" & LRW + 1) .Header = xlYes .Apply End With End Sub تفضل ORDER.xlsm

اليك هذا الكود للأخ ياسر خليل الكود يقوم بحفظ نسخة احتياطية كلما طرأ تغيير على أي ورقة عمل في مجلد الملف تجد النسخة محفوظة باسم الملف و تاريخ الحفظ الملف مرفق Book1.xlsm

تفضل نسخ غياب1.xlsm

تفضل أخي عبد الله السعيد ترجيل الى ورقة عمل جديدة و ترتيب ابجدي للاسماء New Microsoft Excel Worksheet.xlsm

أخي عبد الله السعيد . يمكن أنك تستعمل ملفات أخرى غير المرسلة من طرفك 1- يجب أن تكون الملفات هنا : C:\MyFolder و اذا كانت ملفاتك في مجلد آخر غيره في الكود : في هذا السطر fPath = "C:\MyFolder\" 2- تأكد من امتداد الملفات 3-اسم الورقة التي تجلب منها البيانات في الملفات المتعددة ربما ليست SHEET1 غيرها في الكود اذا كنت تستخدم اسم آخر في هذا السطر LR = Worksheets("SHEET1").Range("XEY" & Rows.Count).End(xlUp).Row Worksheets("SHEET1").Range("XEY2:XFD" & LR).Copy 4- ربما ورقة العمل في الملف الرئيسي ليست "MASTER"في ملفك الرئيسي . غيرها في هذا السطر Set wsMaster = ThisWorkbook.Sheets("Master") بالتوفيق

ضع MYFOLDER في C الملف يعمل بكفاءة عالية افتح الملف MASTER و قم بجلب الملفات. الكود يعمل بكفاءة عالية. ربما المشكل عندك في الجهاز MyFolder.rar

تم تجريب الملف الآن و يعمل 100/100 . قم بحذف جميع الملفات من مجلد الملفات المستوردة و احذف الملف 00 . من مجلد MYFOLDER . و استعمل الملف المرسل بدلا منه.

تفضل الملف ماستر . بعد الانتهاء من نقل أي ملف يرسله الى مجلد ملفات مستوردة للامانة الكود منقول مع تعديلات بسيطة MASTER.xlsm

تفضل أخي أكتب فقط تاريخ البدء و الساعة في الخلية C7 . و اكسل يقوم بالباقي. يمكنك سحب المعادلات الى الاسفل لمزيد من اسماء المداومين. جدول المداومة.xlsx