محمد الورفلي1

السلام عليكم استاذ محمد هل يمكن انشاء ملف علي سطح المكتب ويتم حفظ الصور فيه

ممكن مثال لو سمحت

السلام عليكم كيف يتم تحويل نطاق معين الى صورة محفوظة في مجلد معين 1.rar

السلام عليكم مجهود رائع بارك الله فيك

السلام عليكم اثراء للحل عن طريق الماكرو بعد ازالة الدمج سجل.rar

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

السلام عليكم استاذ محمود المقصود من كلامي هو تغيير الاعمد التي ستم جلب البيانات اليها في صفحة الاستدعاء وهذه صورة تقريبية للتغيير المكان الصورة رقم 1 هي الموجودة في الكود الاستدعاء يبداء من العمود a الي العمود d الصورة رقم 2 لو حبيت اغير مكان الاستدعاء ليبدا من العمود s الي العمود v فا اي سطر في الكود يتم تغيير ليكون الاستدعاء يبدا من العمود s

للرفع

اسف اقصد العمود وليس السطر يعني بدل ان يبدا جلب البيانات من بداية العمود b13 مثلاً يكون جلب البيانات للعمود s10 مثلاً

شكراً استاذ محمود اريد فقط السطر الذي توجد به مكان العمود الذي يبداً النسخ اليه

السلام عليكم كود سهل وخفيف الملف تم تعديله وهو جاهز لتعم الفائدة لكن نريد من احد الاساتذة شرح الكود لكي نستطيع وضعة في اى ملف آخر مع حيث يمكن تغيير اماكن خلية البحث بين التاريخين Sub Work() Sheet2.Range("B13:E5000").ClearContents r = 13 For i = 13 To Sheet1.Range("E10000").End(xlUp).Row + 1 If Sheet2.Range("D8").Value = "" Then GoTo a If Sheet2.Range("D8").Value <= Sheet1.Cells(i, "E") Then a: If Sheet2.Range("D9").Value = "" Then GoTo a1 If Sheet2.Range("D9").Value >= Sheet1.Cells(i, "E") Then a1: Sheet2.Cells(r, 2) = Sheet1.Cells(i, 2) For j = 1 To 5 Sheet2.Cells(r, j) = Sheet1.Cells(i, j) Next j r = r + 1 End If End If Next i End Sub جلب بيانات بين تاريخين _ 2.rar

السلام عليكم شكراً استاذ سليم هل ممكن يكون الكود اسرع يوجد به بطئ شديد وهذا في عدم وجود بيانات كثيرة اروج اسراع الكود شكراُ استاذ محمود كود سهل وبسيط ياريت يكون الكود في مفتاح ويكون على اوفيس 2003 بارك الله فيكم

السلام عليكم اعجبني لكن اريده بالكود استاذ سليم

السلام عليكم ممكن جلب بيانات بين تاريخين جلب بيانات بين تاريخين.rar

السلام عليكم هذا موضوع لشرح الدالة SUBTOTAL https://www.officena.net/ib/topic/66958-%D8%B4%D8%B1%D8%AD-%D8%AF%D8%A7%D9%84%D9%87-subtotal/

=IF(B8<>"";SUBTOTAL(3;$B$8:$B8);"") السلام عليكم ضع هذه المعادلة في اول صف يوجد به بيانات في العمود a

شكراً استاذ شوقي تم حل المشكلة المشكلة كانت في المعادلات الكثبرة التي في صفحة البيانات بارك الله فيك

استاذ ربيع النسخة تعمل بشكل جيد ولكن في هذا الملف فقط تظهر هذه المشلكة انظر صور للبرنامج الان

السلام عليكم عند فتح الملف يظهر هذا الشكل

اعد رفع الملف يبدو ان هناك مشكلة بالملف لو سمحت

السلام عليكم كما حصل معي عند تحويل الملف الي 2003 رسالة خطاء عند الضغظ علي مفتاح الفورم

السلام عليكم استاذ ربيع بالنسبة لرسالة الحفظ انتهت ولكن لايتم حذف آخر اسم لا ادري لماذا آخر اسم في القائمة هو *** الطالب هو محمود 70 *** مشكلة في كود الحذف بعد التعديل.rar

السلام عليكم مشكلة في كود الحذف عند حذف الطالب الاخير تكون هناك مشكلة وهي تكرار ظهور رسالة تم الحذف بنجاح *** الطالب هو محمود 70 *** مشكلة في كود الحذف.rar

السلام عليكم الملف لم يعمل على 2003 هل ممكن نسخة على 2003

ممكن اضافة مفتاح للحذف