هشام شلبى

السلام عليكم =========== الاخ العزيز مصطفى الفيومى اولا رايت موضوعك من فبرة ولكنى كنت فى مكان لا استطيع فيه المشاركة "اعذرنى" ثانيا المشاركة مكررة ففى الاولى خاطبتنى شخصيا وبذلك تكون خالفت قواعد المنتدى .ارجوك منعا للحرج لا تكررها حتى لا تتعرض مشاركتك للحذف وسأكون اول من يعدلها او اسف ساحذفها فانت اخ عزيز فلا تعرضنى وانت للحرج او للنصيحة فى حين من المفترض ان اكون انا اول العاملين بقواعد المنتدى ثالثا الكود الذى نسخته ليس لى بل هو للاستاذ خبور وبما انك نسخته فمن المؤكد انك رايت اسمه وحملتنى مالا استطيع تحمله " اسرد عليك الدرس الذى تعلمته قبلك من اساتذتى فى المنتدى فهو واجب" رابعا وللخروج من موود النصائح " التى اعلم تماما انك ستتقبلها من اخ اصغر لك " ساساعدك بقدر استطاعتى شاهد المرفق وقل لى هل انا على الطريق الصحيح ام لا وحينها سنكمل خاص للاخ احبيب مصطفى والصلح خير.rar

السلام عليكم =========== حلول جميلة كالعادة الاخ ya0m7 وجدت لك هذا الملف لعله يكون مفيد قوائم فى كل الاتجاهات.rar

السلام عليكم ========== تفضل المرفق مجموع عدة خلايا من عدة ورق في معادلة واحدة.rar

السلام عليكم =========== هذا هو حل ولد طيبة ولد طيبة.rar

السلام عليكم =========== اخى احمد يعقوب احمد الله على سلامتك الاخ مصطفى شاهد المرفق اضفت لك زرين فى صفحة الشهادات الاول يغمل على طباعة صفحة واحدة تختارها والاخر لطباعة كل الشهادات كنترول .rar

السلام عليكم =========== الاخت الفاضلة اولا اهنيك على التجربة بيدك فانت على الطريق الصحيح نرجع للاخطاء For R = 8 To Application.CountA(Range("au7:au1000")) + 18 الصح For R = 7 To Application.CountA(Range("a7:ak1000")) لانك لم تستوعبى درسى الحسامى جيدا انتى حذفت الصفوف البينية فى شيت رابع اذا لا يوجد قائمتين وارجعى الى ردوده r=7 لان بداية سطر البيانات من السطر السايع وليس الثامن Sheets("ناجح").Cells(M, 1) = M - 7 الصح Sheets("ناجح").Cells(M, 1) = M - 6 على اساس ان سطور الاسطر الخارجة عن الهد 6 وليس 7 ElseIf Cells(R, 37) = "غـ" Then انتى كتبتيها فى الكود غـ وكتبتيها فى الشيت غائب بالتالى الكود سيمر عليها ولا يتحسسها لاختلاف الاحرف فى النهاية اطلعى على الكود فى الشيت المرفق وقارنيه بالشيت المدرج منكم ستكتشفى اخطاء اخرى صغيرة جدا تحياتى لكم 2.rar

السلام عليكم =========== يا عم مصطفى واحدة واحدة لم نتكلم بعد فى الطباعة نحن فى مرحلة نقل البيانات الان افهم من كده انط عاوز الورقة بها 3 شهادات موعدنا بعد انتهاء مواعيد العمل "اخر النهار"

السلام عليكم =========== بداية ونهاية الاعمدة التى ستنسخ من العمود 1 الى العمود 50 يارب الصورة تكون واضحة

السلام عليكم =========== بالنسبة للشعادات شاهد المرفق اما الباقى اعتقد ان الاخ وليد قام باللازم كنترول جديد.rar

السلام عليكم =========== ارفاق معادلة او كود بالمشاركة شاهد المرفق ارفاق كود او معادلة بالمشاركات.rar

السلام عليكم =========== فعلا كلامك مظبوط استخدم الصيغة =IF(AND(B11="غ";C11="غ");"غ";IF(AND(B11="غ";C11>=40);40;IF(AND(B11="غ";C11<40);C11;IF(OR(B11="غ";C11="غ");"غ";IF(AND(B11="غ";C11="غ");"غ";IF(AND(B11<40;C11>=40);40;IF(C11="غ";"غ";MAX(B11;C11)))))))) حالا ها ارفقلك طلبك التانى بالفيديو تصحيح معادلة2.rar

السلام عليكم =========== الاخ العزيز يوسف اذا فهمت طلبك صح يبقى استخدم الصيغة =IF(OR(B11="غ";C11="غ");"غ";IF(AND(B11="غ";C11="غ");"غ";IF(AND(B11<40;C11>=40);40;IF(C11="غ";"غ";MAX(B11;C11))))) تصحيح معادلة.rar

السلام عليكم ============ عماد فى السطر For R = 8 To Application.CountA(Range("au8:au5000")) هل هذا السطر معناه انك حددت سطر البداية وهو 8 وجعلت الدالة Count هى التى تحدد اخر سطر فى البانات التى سوف ترحل

السلام عليكم ========== اخى الحبي عماد عدل على راحة راحتك فى البرنامج ده او غيره انت تعلم انا من محبيك شكرا على المرفق يا عمده واذا كان ليك اى ملاحظات تانى هات ولا يهمك المهم نفيد الناس و نستفيد عماد ليه عملت كود مسح على البيانات المرحلة الكود اساسا بيعمل مسح تلقائى للبيانات عند الترحيل مرة اخرى

السلام عليكم ========== شاهدى المرفق رابع بالدرجات1.rar

السلام عليكم ========== اخى الحبيب عماد ( وحشنى) كلامك كله جميل وفى الجون For R = 8 To 1000 لا اهتم بها غالبا لانه نقريبا فى معظم برامج الكنترول لا يوجد ناجح او ما شابه قبل السطر الثامن او اى سطر قبل دالة الناجح فكرة تمام بس لم تخطر ببالى وتغلبت عليها بجعل الدالة تجع الاسطر امام هذا الصف فارغة لو تلاحظ سيكون امامها فراغ وسيمر امامها الكود بلا مشاكل وبالتالى هى فكرة حلوة تمام المهم يا عمدة ضع الكود فى المرفق وارسلة لكى استفيد منه فاعلم انك خبير جيد جدا بالاكواد وكمان جيد جدا عليك شوية يا عمده اطال الله لنل بعمرك حبيبى

السلام عليكم =========== لا حظى (R, 47) = "راسب" Then 47 هنا تدل على رقم العمود الذى يبحث به الكود عن الناجح واراسب والغائب ثم يفصلهم ويرحل كلا منهما الى صفحته الخاصة وبالتالى اذا تغير تم حذف او اضافة عمود تحديدا يجب تغير الرقم 47 برقم العمود الموجود به ناج او راسب او غائب اما باقلا التفاصيل بالمرفق تقبلوا تحياتى شرح الكود.rar

السلام عليكم =========== شاهدى المرفق شرح الكود.rar

السلام عليكم =========== اخى العزيز استعن بالرابط رابط خاص بالصور

السلام عليكم =========== تفضلى شرح الكود شرح الكود.rar

السلام عليكم =========== بارك الله فيك اخى الحبيب ابو البراء واخى سراج حلول رائعة الاخ طالب عام لاثراء الموضوع شاهد المرفق نسخة من Xl0000003.rar

السلام عليكم =========== الاخ الحبيب ولد طيبة لا عليك الاحظ مشاركاتك الكثيرة ولك نشاط جميل الى الامام اخى الحبيب اتمنى ان ارك فى مشاركات اكثر

السلام عليكم ========== استخدمى المعادلة لايجاد الناجح واراسب والغائب =IF(AS8="غـ";"غـ";IF(AT8="";"";IF(AND(N8>N7;S8>S7;X8>X7;AC8>AC7;AH8>AH7;AM8>AM7;AP8>AP7;AS8>AS7);"ناجح";"راسب"))) تفضل المرفق رابع بالدرجات.rar

السلام عليكم =========== بالنسبة للشريط المتحرك استخدم الكود Sub auto_open() t = " ÇáÓáÇã Úáíßã æÑÍãÉ Çááå æÈÑßÇÊÉ " n = 0 Do While n < 5000000 t = Right(t, 1) & Left(t, Len(t) - 1) [h3] = t w = 0.2 temp = Timer Do While Timer < temp + w DoEvents Loop n = n + 1 Loop End Sub شاهد المرفق التالى اما بالنسبة لموضوع البار كود اطلع على الرابط التالى اضغط هنا السلام عليكم تتحرك.rar

السلام عليكم ========== ممتاز اخى ايسم بارك الله فيك الى الامام دائما