وليد فتحي

جزاك الله كل خير استاذنا الفاضل مصطفي كمال ويمكن ايضا البحث بواسطة دالة indirect ولكن لا اعلمها وهذا موضوع هتلاقي الاستاذ الكبير بن على حاجي حل الموضوع بهذه الدالة اتمني ان يفيدك http://www.officena.net/ib/index.php?showtopic=38754&page=2

السلام عليكم ورحمة الله وبركاته الاخ الفاضل محمد حماده جزاك الله كل خير لدعاءك الطيب ولك مثله اضعاف مضاعفه لا يمكن تثبيت نتيجة عن طريق المعادلات ولا اعلمها عن طريق الاكواد انتظر احد الاستاذة الافاضل يمكن ان يكون لديه حل لك كل تحيه وتقدير

جزاك الله المثل اخي الفاضل افتح calendar واختار اي سنه ماضية او حاضرة وكذلك الشهر الـ calendar ليس لتاريخ اليوم فقط اخي الفاضل جرب وبانتظار ردك

عليكم السلام ورحمة الله وبركاته الاستاذ الفاضل صلاح الصغير على حسب فهمي لطلبك اليك الكود المناسب لطلبك وليس له علاقة بكود الاستاذ الفاضل ابو حنين Sub W_Delete() Dim Answer As String Dim MyNote As String MyNote = "سوف يتم مسح البيانات ولن تستطيع استرجاعها ... هل تريد الاستمرار ؟" Answer = MsgBox(MyNote, vbQuestion + vbYesNo, "انتبه") If Answer = vbNo Then MsgBox "تم التراجع عن العملية" Exit Sub Else ActiveSheet.Select Range("B4:D2003").ClearContents End If End Sub ويمكنك تغيير المدي B4:D2003 الي اي مدي اخر انت تريده

وعليكم السلام ورحمة الله وبركاته الاستاذ الفاضل mino_1 مرحبا بك بالمنتدي ولك مني دعوة طيبة بتغيير اسمك الي اللغة العربية طبقا لسياسة المنتدي ثانيا ارفق ملف كمثال لتجد العون من الاخوة والاساتذة الكرام اضغط الملف باحد برامج الضغط مثل برنامج ( winRAR ) حتي تستطيع رفعه على المنتدي وهذا رابط فيديو للاستاذنا الكبير حماده عمر لكيفية رفع ملف على المنتدي http://www.officena....showtopic=44625

استخدم الكود التالي وهو لا يخص اسم صفحة معينة ولكن يخص الصفحة النشطة ActiveSheet.Select Range(Cells(1, 1), Cells(1, 8)).Clear

السلام عليكم ورحمة الله وبركاته الاخ الفاض أشرف النعاس اتفضل الكود داخل فيه اسم الشيت Sheets("اكتب هنا اسم الشيت").Select Range(Cells(1, 1), Cells(1, 8)).Clear

الشكر لله أخي اشرف والحمد لله ان هذا طلبك تقبل تحياتي

السلام عليكم ورحمة الله وبركاته الاخ الفاضل ابو حبيبة وحنين اتفضل الملف المرفق به calendar يضيف لك التاريخ على الخلية النشطة اتمني من الله أن يكون هذا طلبك تقويم لادراج التاريخ بالخلية المحددة.rar

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل اشرف النعاس على حسب فهمي لطلبك sub w_play () IF Range("A4").Value<>"" Then أكتب هنا الكود الذي تريد تنفيذه في حالة تحقق الشرط End if End sub

السلام عليكم ورحمة الله وبركاته الاخ الفاضل محمد حماده على حسب فهمي لطلبك انا عملت لك مثال على خلية واحده بس اذا كانت دي طلبك يمكنك تطبيقها على الباقي الخلية باللون لااصفر في Sheet2 هي ناتج الخلية A3 في شيت Sheet1 بناء على شرطك الي انت وضعته وهو اذا كانت القيمه في O3 اكبر من او تساوي 0.95 و E3 اكبر من او تساوي 3 اتمني من الله ان يكون هذا طلبك test book_w.rar

انتظر اخي الفاضل مؤمن المنتدي ملئ بالاساتذة الافاضل والكرام ولا يبخل اي منهم بالرد السريع اذا كانت تتوافر لديه الاجابة

الاستاذ الفاضل مؤمن وحيد علي حسب فهمي لكلامك انك تريد جلب بيانات من ملفين مختلفين وليس البيانات بملف واحد ودي صراحة لا اعلمها وانتظر احد الاساتذة الافاضل ان كان لديه خبرة في ذلك الامر

جزاك الله المثل استاذ محمد وجرب وبانتظار ردك

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل مؤمن وحيد هل هذا طلبك واذا كان لا اتمني التوضيح اكثر لانك رافع ملفين بيان إبيسكو 2014_w.rar

عليكم السلام ورحمة الله وبركاته استادتنا الفاضلة أم عبدالله جزاكي الله المثل وزادك الله من علمه شرفني مروك الكريم وردك العطر لك كل تحيه وتقدير

الشكر لله اخي اسلام والحمد لله ان هذا طلبك تحياتي لك

اخي الفاضل مؤمن حضرتك فاتح موضوع اخر بنفس المحتوي والموضووعين حضرتك رافع فيهم نفس الملف والملف المرفق مرتبط بملف اخر او انت حذف الصفحة المفروض انك هتجلب منها البيانات الرجاء رفع الملف الذي تريد العمل عليه كاملا ويمكنك وضع بيانات افتراضية وليست البيانات الاساسية حتي يستطيع من يقوم بالمساعدة بالمساعدة تقبل تحياتي

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل مؤمن الملف المرفق مرتبط بملف اخر او انت حذف الصفحة المفروض انك هتجلب منها البيانات الرجاء رفع الملف الذي تريد العمل عليه كاملا ويمكنك وضع بيانات افتراضية وليست البيانات الاساسية حتي يستطيع من يقوم بالمساعدة بالمساعدة تقبل تحياتي

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

السلام عليكم ورحمة الله وبركاته بعد اذن أخي الحبيب الاستاذ حماده عمر اتفضل استاذ ايهاب هذه محاولة مني لعلها تفي بالغرض معك حضور3.rar

السلام عليكم ورحمة الله وبركاته اخي الفاضل ابو الزهراء ومعاذ اتفضل الملف المرفق على حسب فهمي لطلبك Overtime1_w.rar

السلام عليكم ورحمة الله وبركاته اخي الفاضل ابو الزهراء ومعاذ اعمل عمود جديد لاضافي يوم الجمعة وانسخ المعادلة الموجوده بخانة عدد الساعات والصقها في خانة الاضافي واترك خانة عدد الساعات فارغ ليوم الجمعة فقط هذا على حسب فهمي لسؤالك

السلام عليكم ورحمة الله وبركاته اخي الفاضل محمد رزق تم تعديل الكود على اساس خلية الدرجة اذا كانت فارغة ويمكنك تعديل رقم الخليه من داخل الكود كما تحب سوف يتم الاخفاء في الطباعة والغاء الاخفاء بعد الطباعة Book1_w.rar

السلام عليكم ورحمة الله وبركاته أخي الحبيب ابوعيد ألف مبروك علي الترقية زادك الله علماً و نفع بك و أعلى نزلك في جنات النعيم