حمادة باشا

الأخ الكريم/ الموسطي السلام عليكم ورحمة الله وبركاته أ- إذا رغبت في الإحتفاظ باللون مع الطباعة غير الملونة : قم بتحديد كامل الصفحة بالإختصار Ctrl+A وأختار No Fill لجعل الخلايا بيضاء وأحفظ الملف بأسم مختلف (myExcel_print) كمثال - ويمكنك إستخدام درجات اللون الرمادي بديلا عن الألوان . ب- إذا رغبت في إلغاء الألوان تماما - قم بتنفيذ الشرح بالأعلي وأحفظ الملف الأساسي تقبل تحياتي

الأخ العزيز/ محمود الاسيوطى السلام عليكم ورحمة الله وبركاته 1- تم الإلتزام بآلية عمل الملف - ماترتب عليه معادلات " شبحية " تحسب وتختفي 2- عند التاريخ المحدد - يتعطل زر حساب الساعات ولا يعمل 3- لابد من التجربة الفعلية - الكود يعالج كل خلية علي حده - السهو أو نسيان أحدها أمر وارد تقبل تحياتي DATA.rar

الأخ الكريم/ الموسطي السلام عليكم ورحمة الله وبركاته أعتقد هذة المشكلة لها علاقة بمتصفح الأنترنت - هل قمت بتثبيت أو إزالة المتصفح حديثا ؟ يمكنك الدخول علي إعدادات متصفح أنترنت إكسبلورر وأجعله المتصفح الأساسي تقبل تحياتي

الأستاذ الكبير/ أبو حنين السلام عليكم ورحمة الله وبركاته عمل رائع ومتميز كالعادة - جعله الله في ميزان حسناتك تقبل تحياتي

الأخ الكريم/ ۩◊۩ أبو حنين ۩◊۩ السلام عليكم ورحمة الله وبركاته الملف يعمل بدون أخطاء - إفتح الكود وغير التاريخ إلي اليوم تقبل تحياتي DATA.rar

الأستاذ الفاضل/سعد عابد السلام عليكم ورحمة الله وبركاته جزاكم الله كل خير - تقبل تحياتي

الأخ الحبيب/ محمود الاسيوطى السلام عليكم ورحمة الله وبركاته كرد سريع - الكود التالي يقوم بعمل الآتي في التاريخ المحدد - ضعه داخل ThisWorkbook: 1- حذف البيانات من الشيت الأول DATA 2- حذف المعادلات من الشيت الثاني RES ( مع الإبقاء علي البيانات - حسب طلبك ) Private Sub Workbook_Open() If Date >= CDate("15/05/2014") Then Application.ScreenUpdating = False Sheet1.Range("B1:I2880").ClearContents With Sheet2.Range("C8:AA40") .Value = .Value End With Me.Save Application.ScreenUpdating = True End If End Sub جعل الكود يقوم محل المعادلات تحتاج لوقت - يمكن ذلك عن طريق أمر Formula - وأعتقد رغبة إحلال الكود محل المعادلات لجعل تفعيل الماكرو يبدو مألوفا دون تفكير - وساعة الصفر .... ( أو لعل الأمر غير ذلك ) - تقبل تحياتي

الأستاذ الفاضل/وليد فتحي السلام عليكم ورحمة الله وبركاته شاكرا لكم الكلام الطيب والمرور تقبل تحياتي

الأخ الفاضل/ محمد أبو البراء السلام عليكم ورحمة الله وبركاته عمل رائع وتنسيق فني عالي يتفوق علي البرامج الجاهزة جعل الله هذا العمل في ميزان حسناتك - وجزيت خيرا تقبل تحياتي

الأستاذ الفاضل/ محمد أبو البراء السلام عليكم ورحمة الله وبركاته جزاكم الله كل خير علي المرور الكريم تقبل تحياتي

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

الأخ الكريم/ AL_AYMAN السلام عليكم ورحمة الله وبركاته في المرفق يتم تحديد الأوراق المطلوبة كرقم مسلسل يمثل ترتيب الورقة في المصنف فإن ناسبك يمكنك إستخدامه - والشرح داخل الملف - تقبل تحياتي Book1-Navigate Through Sheets.rar

الأخت الكريمة/ واثقة الخطوة السلام عليكم ورحمة الله وبركاته أهلا وسهلا بكم في منتدانا العامر المساعدة تبدأ من حضرتكم بإرفاق ملف به تصور للعمل المطلوب مع تفصيل للجزئية المطلوب حلها بمثال لكيفية الحل - ثم تليها جزئية أخري وهكذا يكتمل البرنامج بإذن الله - أو الإنتظار لعل أحد الشباب يكون لديه البرنامج المطلوب جاهز ويقوم بإرفاقه . ( يمكن فقط إرفاق الملفات المضغوطة بأحد برامج الضغط المعروفة WinZip/WinRar) والسلام عليكم ورحمة الله وبركاته

الأخ الكريم/ محمد ابراهيم 78 السلام عليكم ورحمة الله وبركاته يمكن ذلك في محرر الأكواد - النافذة اليسري - ضع الماوس علي الفورم المراد نسخه ثم من قائمة زر الماوس الأيمن Export File حفظه بالأسم والمكان المطلوب ويتم إستدعاء الفورم عن طريق الإختصار Ctrl+M أو القائمة الرئيسية Import File أو من قائمة زر الماوس الأيمن Import File - تقبل تحياتي

تفضل أخي الكريم Sub macro1() For i = 4 To 1000 If Sheets("2").Range("E7") = Sheets("1").Range("B" & i) Then Sheets("1").Range("B" & i) = Sheets("2").Range("E35") MsgBox "تم النقل بنجاح", vbInformation Exit Sub End If Next i MsgBox "القيمة غير موجودة", vbInformation End Sub

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

الأخ الكريم/ محمد ابراهيم 78 السلام عليكم ورحمة الله وبركاته وبعد إستئذان الأخوة الأفاضل تم تعديل الكود ليناسب الغرض تقبل تحياتي Excel2.rar

الأخ الكريم/ krimo145 السلام عليكم ورحمة الله وبركاته وبعد إستئذان الأخ الكريم/ محمد الشابورى صاحب المشاركات القوية جرب عمل الخطوات التالية - كمحاولات لحل المشكلة : 1- عند تسجيل المكتبة بالأمر Regsvr32.exe fm20.dll يجب تكون لك صلاحيات مسئول النظام Administrator 2- هل حدث الأمر فجأة ؟ بمعني لم تظهر الرسالة من قبل وبدأت تظهر حديثا - إن كان الوضع كذلك قم بعمل System Restore لإعادة الويندوز إلي حالته الأولي - حيث في بعض الحالات يكون الخطأ مرتبط بالريجستري 3- إذا كان الويندوز XP تأكد من تثبيت Service Pack 3 4- أعد نسخ الملف fm20.dll من السي دي وقم بتسجيله مرة أخري - لربما كان معطوبا . 5- تثبيت نسخة جديدة من برنامج الأوفيس هذا ما يحضرني الآن - بالتوفيق - تقبل تحياتي

الأستاذ الفاضل/رجب جاويش السلام عليكم ورحمة الله وبركاته كود رائع - جزاكم الله كل خير تقبل تحياتي

الأستاذ الكبير/ جمال عبد السميع السلام عليكم ورحمة الله وبركاته مثلك لا يستأذن - جزاك الله كل خير عمل رائع تقبل تحياتي

الأخ الكريم/ محمدنت912 السلام عليكم ورحمة الله وبركاته لم أستوعب المطلوب بشكل كامل من حيث كيفية ظهور الباب الأول والباب الثاني قائمة مثلا - ثم ماذا بعد ذلك ؟ أين ستذهب بنا هذة القائمة ؟ علي أية حال - أرفقت تصور للحل - فإن نال إستحسانك يمكن التعديل عليه بما يتوافق مع المطلوب - تقبل تحياتي . استمارات.rar

أستاذنا الكبير/عبدالله باقشير السلام عليكم ورحمة الله وبركاته حل ممتاز - جزاكم الله كل خير

الأخ الكريم/ إبراهيم السلام عليكم ورحمة الله وبركاته لتعيين معادلة للخلية تستخدم التالي : Range("Ax").Formula = "" حيث A العمود - وx رقم الصف - ثم تضع المعادلة المطلوبة بين القوسين كما تضعها داخل الصفحة تماما تقبل تحياتي

الأخ الكريم/ mdالجعفري السلام عليكم ورحمة الله وبركاته أهلا وسهلا بكم في منتدانا العامر لو تفضلت بإرفاق ملف به البيانات وطريقة تنسيقها - والمطلوب فيها لكان أفضل وأدق في الإجابة والشباب هنا - بفضل الله تعالي - علي أهب الإستعداد للحل - تقبل تحياتي

الأخ الكريم/ إبراهيم السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا علي الدعاء الجميل - ولك مثله بإذن الله فكرة الحل تعتمد علي إضافة سطر أسعار جديد في الصف رقم 4 مع كل تحديث وترحيل السطر السابق للأسفل المعادلة المطلوبة تقع في الصف رقم 4 مع البيان الجديد - علي إعتبار البيان القديم أخذ معادلته من التحديث السابق ولإضافة المعادلة إلي خلية المتوسط - نستخدم الكود التالي ( حيث sh2 تشير إلي صفحة الشركة ) : sh2.Range("K4").Formula = "=Average(D4:D5)" تقبل تحياتي