حمادة باشا

الأستاذ/ علي - تفضل Book1.rar

الاستاذ / حمادة مشكور على مجهودك بالفعل الملف به جزء كبير مما اريدة و لكن هناك بعض الخلل و اريد مساعدتك فيه هو مثلا العميل محمد لة ملفين لماذا تم فصل اول ملف فقط و لم يتم فصل الملف التانى يعنى المعادلة بتعمل على فصل الملف الاول من كل عميل اذا تطابق عليه جميع شروط الفصل الأخ الكريم/ علي حسنا - عند تحقق الشروط ما الذي تريد فصله في المثال لدينا : هل تريد شادي السطور الأربعة أم السطرين الذين يحملان "A" و "B" فقط ونفس القول علي محمد بمعني كل ظهور للعميل الذي تحقق به الشرط أم الأسطر التي بها الشرط تحديدا

الأخت الفاضلة/ أم عبدالله عمل متعوب عليه وجهد واضح بارك الله فيكي وكل عام وأنتم بخير

الأستاذ/ علي هذا الملف حسب تصوري والسلام عليكم ورحمة الله وبركاته Book1.rar

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

الأستاذ/ إبراهيم السلام عليكم ورحمة الله وبركاته نعم الملف المرفق يعمل علي إصدار 2007 وماقبله ولا يعمل علي الإصدار 2010 وقد أشرت إلي هذا في مشاركتي إصدار 2010 يحتاج تعديل علي كود API - وللأسف ليس لدي إصدار 2010 حتي أقوم بالتعديل المطلوب . تقبل تحياتي

الأخ الكريم/ محبوب 7 السلام عليكم ورحمة الله وبركاته مرفق تعديلات حسب المطلوب - الشرح والملاحظات داخل الملف Copy Invoice.rar

الأستاذ/ دغيدي الأخت الفاضلة/ أم عبدالله السلام عليكم ورحمة الله وبركاته مر وقت طويل علي آخر لعبة لعبتها ( وفزت فيها ... ) جزاكم الله خيرا - وكل عام وأنتم بخير

الأستاذ/ إبراهيم ابوليلة السلام عليكم ورحمة الله وبركاته الرد الجاهز علي سؤالك .. لا يمكن لأن إكسل 2007 وما قبله يعتمد علي VBA 6 وهي لا تدعم إستخدام عجلة الماوس ( لا أدري عن الإصدارات الأحدث 2010 وما بعده ) طبعا لن نستسلم بسهولة - يمكننا إستدعاء WIndows API المسئولة عن حركة الماوس وندمجها مع كود الفورم الفورم المرفق هو الخاص بكم ضمن موضوع تفعيل خاصية السرد ( سكرول بار ) علي الرابط http://www.officena.net/ib/index.php?showtopic=49385 الإضافات علي الكود : 1- لاحاجة لتعريف السكرول بار الرأسي vertecalscrollbar داخل الفريم Frame1 بدلا عن ذلك قم بإضافة التالي في كود الفورم Private Sub UserForm_Activate() With Me.Frame1 .ScrollBars = fmScrollBarsVertical 'قم بتغيير الرقم أسفل حسب المطلوب .ScrollHeight = .InsideHeight * 2 End With End Sub 2- الإضافات الخاصة بعجلة الماوس تجدها في module1 وأيضا داخل الفورم تقبل تحياتي سكرول.rar

الأخ/ نايف السلام عليكم ورحمة الله وبركاته الكود الذي وضعته حضرتكم سليم وينفذ المطلوب ولاحاجة لتعديله ولكن تأكد من أمرين : 1- أن تقف علي الخلية المطلوبة وتفتح الفورم ( لا أعرف طريقة عمل الفورم لديك ) لأنها المرجع المكاني في كودك . 2- أن تكون الخلية المشار إليها في صفحة "main" غير فارغة لأنها لن تظهر شيء في texbox7 وهذا ما حدث معي عند التجربة ولم ألحظ ذلك وظللت أدور حول نفسي فترة من الوقت حتي أكتشفت الأمر . والتطبيق العملي لما ذكرته ضمن المرفق - ولم أضف علي كودك سوي textbox8 يعرض أسم الصفحة الحالية . تقبل تحياتي Book1-test.rar

كل عام وحضرتكم وجميع الأخوة بالمنتدي بخير وسعادة أعاده الله علي الأمة الإسلامية والعربية باليمن والبركات وعساكم من عواده

أخي/ أبوسعودد السلام عليكم ورحمة الله وبركاته يمكنك حفظ ملف المعادلة بالأسم الذي تريده ثم تضع فيه البيانات المطلوبة أما إن أردت نقل المعادلة إلي ملف جديد لابد من نقل الكود الخاص بها معها حتي يتعرف عليها الإكسل - علي النحو التالي : 1- إفتح الملف الذي به المعادلة 2- إضغط Alt+F11 ستفتح نافذة محرر الأكواد 3- علي اليسار ستجد سطر به كلمة Module1 أضغط بالماوس عليه مرتين 4- من الصفحة اليمني التي ستفتح إستخدم Ctrl+A ثم Ctrl+C لتظليل ثم نسخ كامل الكود 5- بعد ذلك إذهب إلي الملف الجديد وكرر الخطوات 1 و2 6- علي اليسار إن لم تجدسطر Module إستخدم زر الماوس اليمين تظهر قائمة إختار منها Insert > Module 7- داخل النافذة اليمني التي ستفتح إستخدم Ctrl+V ستلصق الكود بها 8- آخر خطوة إحفظ الملف الجديد علي صورة Excel Macro-Enabled Workbook ستجدها في قائمة منسدلة أسفل نافذة الحفظ أو يمكنك إرفاق الملف أضع لك فيه المعادلة إذا كانت الخطوات السابقة غير واضحة تقبل تحياتي

كل عام وأنتم بخير أعاده الله علي الأمة الإسلامية بالخير والبركات وعساكم من عواده

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

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

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

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

اخ حمادة باشا انته فعلا باشه ,,, هذا هو المطلوب فعلا ولكني اريد النتيجة تكون موجود او غير موجود تكتب في خلية النيجة وياليت تعطيني المعادلة لاني مو قادر احصل عليها ,,, انا راح اعدل عليها بس اريد المعادلة ,,, الأخ الكريم/ ابو سعودد السلام عليكم ورحمة الله وبركاته أشكرك علي الإطراء - المعادلة بسيطة ولكن شرح المطلوب أحدث إلتباس لدينا - والمشاركين في الحل أساتذة كبار لايشق لهم غبار المعادلة كما طلبت Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("D2")) Is Nothing Then Exit Sub End If On Error Resume Next If Target = 0 Then Range("D3") = "" Exit Sub End If iLastRow = Cells(Rows.Count, "a").End(xlUp).Row For i = 2 To iLastRow If Range("A" & i).Value = Target.Value Then Range("D3") = "الرقم موجود" Exit Sub ElseIf Range("A" & i) > Target Then Exit For End If Next i Range("D3") = "الرقم غير موجود" End Sub ومرفق تعديل الملف بإستخدام هذة المعادلة تقبل تحياتي الرقم موجود-2.rar

بعد إذن الأستاذ/ أبو حنين أعتقد أني فهمت ما يقصده الأخ/ ابو سعودد أو هكذا أتمني ... الرقم موجود.rar

أ/ البروفسير السلام عليكم ورحمة الله وبركاته أحاول أن أدلي بدلوي في الموضوع - عله يساعد في حل المشكلة 1- إذا كان جهازك ضمن شبكة والملف موضوع في Server فلعلك لاتملك صلاحية حذف الملفات 2- حاول أن تراجع الماكرو المذكور ربما يقوم بتكرار حفظ ونسخ الملفات 3- حاول أن تحفظ الملف بأسم جديد ونقله لمكان آخر 4- لابد من حذف النسخ الموجودة داخل XLSTART لأنها ستفتح كل مرة تقوم بفتح الإكسل 5- ما هو برنامج الحماية لديك هل هو AVG قرأت أنه بعض الأحيان يسبب مشاكل مع ملفات TMP أي كان برنامج الحماية لديك حاول الدخول علي إعداداته والتأكد من أنه لايقوم بحجز هذة الملفات ويمنع مسحها 6- إذا كنت تستعمل ويندوز XP تأكد من تنزيل Service Pack 3 - وإذا كنت تعمل بأكسل 2003 حول إلي 2007 والسلام عليكم ورحمة الله وبركاته

الأخ/ هاني السلام عليكم ورحمة الله وبركاته الرجاء الرد علي الملاحظات في الملف المرفق - ليس هناك تعديلات بعد .. صافى الكمية - تحت التعديل.rar

الأخ الفاضل/ أبو حمزة السلام عليكم ورحمة الله وبركاته يمكنك تنزيل وفتح ملف الأستاذ/ محمد يحياوي ثم إضغط Alt+F11 لرؤية الكود المستخدم داخل module2 وإذا أردت معرفة طريقة عمل المعادلة من داخل الإكسل - فالفيديو التالي يشرح الطريقة : http://www.youtube.com/watch?v=KMBrmC74NwI تقبل تحياتي

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

الأخت/ وصال السلام عليكم ورحمة الله وبركاته 1- في البداية أتفق تماما مع ما ذهب إليه الأستاذ/ عبدالسلام كون التنسيق الشرطي لا يلغي من تلقاء نفسه بعد تعيينه وإن خلت الخلية من أي بيانات فمتي عادت البيانات وتحقق الشرط ظهر التنسيق الشرطي مرة أخري . 2- فإذا كان سؤال حضرتكم عن حماية الخلية من الحذف العرضي أو بطريق الخطأ فيكون المطلوب هنا : الضغط بزر الماوس اليمين عند أسم الورقة أسفل الشاشة - ثم حماية الورقة - ثم إختيار درجة الحماية المطلوبة - ثم موافق . 3- وإن كان السؤال عن أمر يختلف عما سبق - أرجو إرفاق مثال عملي عن المطلوب كي نتصور الأمر بشكل صحيح . والسلام عليكم ورحمة الله وبركاته

الأستاذ/ tchankich السلام عليكم ورحمة الله وبركاته طبعا أنا سعيد لأن الكود يعمل معك ولكني أري أن خطأ الكود مازال قائما وبمجرد تحقق شرط الشطر الثاني من جملة IF ستظهر لك نفس رسالة الخطأ مجددا Run-time error 1004 Application-defined or object-defined error وأقصد الكود التالي : Else Range("$A$22:$A$65000").End(xlDown).Select Selection.Offset(1, 0).PasteSpecial (xlPasteValues) لذا جرب الإحتمال الثاني وأخبرني بالنتيجة تقبل تحياتي