أبو أنس حاجب

السلام عليكم ورحمة الله وبركاته الطلب الآخر تم العثور على حل له من الخصائص (خاصية Style يتم أختيار 2-fmStyleDropDownList) منتظر منكم المساعدة في حل المشكلة الآولى. بارك الله لكم وفيكم. المرفق أسفل بعد ما تم إضافة فيه كودين من خلال فورم أحدهم لإضافة عميل والأخر لحذف عميل أظن أنهم في الترتيب الآول للأستاذ الفاضل الغائب الحاضر هادي سالم حفظه الله والأخر للأستاذ الفاضل أبا حنين حفظه الله. المطلوب مراجعتهما وخاصة الخاص بالفاضل أبا حنين لأني عدلت فيه أما الآخر فقد نقلته كما هو والأضافة المطلوبة في كود أضافة عميل بمنع أضافة عميل موجود في القائمة من قبل (أي منع التكرار عند الأضافة). الطلب السابق الخاص بالأهتزاز ما زال قائم حفظكم الله. المرفق: An Order Remittance Journal 6.rar أبو أنس

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

بسم الله الرحمن الرحيم (انا لله وانا اليه راجعون) عظم الله أجركم وأحسن عزاءكم وغفر لميتكم البقاء لله سبحانه وتعالى ونساله وندعوه ان يسكنها فسيح جناته ويغفر لها

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل عبد الله المجرب أبا أحمد حفظكم الله ما شاء الله عليك فهمك عالي الجودة والكفاءة. تقبل كل الشكر والأحترام لشخصكم النبيل. بارك الله بك وفيك وفي ذريتك من بعدك (بعد عمر طويل إن شاء الله حتى ينتفع بعلمك زادك الله علماً على علم ووسع أبواب رزقك). أبو أنس ناصر حاجب

السلام عليكم ورحمة الله وبركاته أساتذتي الكرام حفظكم الله جميعاً كيف لي التخلص من الأهتزازات في الملف عند فتحه وعند أدخال البيانات سببها عندما أدخلت فيه عدد من الكمبوبكس. شاكراً لكم التفضل بالرد سلفاً. والله خير معين. المرفق: An Order Remittance Journal 4.rar أبو أنس

السلام عليكم ورحمة الله وبركاته أخي الفاضل أبا ابرار وأبراهيم (أستدليت من خلال أسم تعريفك بأنهم أبنائك لعلي لم أخطى) حفظكم الله جميعاً. أظن أنه لو ترفق ملف سيكون أفضل للأساتذة الكرام في المساعدة. أبو أنس

السلام عليكم ورحمة الله وبركاته أخوتي الكرام حفظكم الله جميعاً مرفق ملف كشف حساب (يمكن أستخدامه للمورد أو العميل أو غير ذلك ......) قمت بإستخلاصه من أساتذه كثر في المنتدى وفق روية خاصة بي ولكن ممكن الأستفادة منه لانه يحتوي على أكواد قوية في نظري ولا يعتمد على المعادلات إلا في حالات محدودة جداً ممكن الأستغناء عنها مستقبلاً وفيه أمكانيات كثيرة ومتعددة لإستخلاص التقارير وبعدة طرق. وسوف أكتفي هنا بالأشارة إلى زر واحد فقط وهو الأهم لأن بعدها ممكن أكتشاف أمكانيات الملف بل والعبث به بدون التأثير على الملف الأساسي. وهو زر Delusive System يتم استخدامه بعد إدخال البيانات في الملف الأساسي وحفظها. بعد الضغط عليه يتم الخروج من الملف الرئيسي وإنشاء ملف وهمي في الهاردسك D بنفس أمكانيات الملف الرئيسي. على أستعداد لشرح أمكانياته عند الطلب. والله خير موفق ومعين. المرفق: NewBalance.rar أبو أنس ناصر حاجب

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

السلام عليكم ورحمة الله وبركاته أخي الفاضل أبو حكيم حفظكم الله جرب المرفق: رسالة كل زمن معين.rar أبو أنس

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

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

السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظكم الله جرب المرفق لعله المطلوب add.rar أبو أنس

السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظكم الله حاولت المساعدة على قدر إستطاعتي بكود من المنتدى وافقته مع أحتياجك فيما يخص التخلص من التنسيق الشرطي في العمود H والعمل بالكود. أرجو أضافة هذا الكود في حدث الورقة وجربه وذلك بعد أن تحذف جميع شروط التنسيق الشرطي وتخبرني بالنيجة جربته ومشى الحال معي. Private Sub Worksheet_Change(ByVal Target As Range) Dim Rng As Range ' Set Rng = Range("H5:H500") Application.ScreenUpdating = False If Intersect(Target, Rng) Is Nothing Then Target.Interior.ColorIndex = 0 Else Application.ScreenUpdating = False Target.Font.Bold = True If Target.Value < Date Then Target.Interior.ColorIndex = 46 If Target.Value < Date Then Target.Font.Bold = True If Target.Value > Date - 60 Then Target.Interior.ColorIndex = 43 If Target.Value > Date - 60 Then Target.Font.Bold = True If Target.Value > Date + 61 Then Target.Interior.ColorIndex = 50 If Target.Value > Date + 61 Then Target.Font.Bold = True If Target.Value = Date Then Target.Interior.ColorIndex = 44 If Target.Value = Date Then Target.Font.Bold = True If Target.Value = "" Then Target.Interior.ColorIndex = 0 If Target.Value = "" Then Target.Font.Bold = False End If End Sub غير الزمن في الكود حسب أحتياجك في رعاية الله. أبو أنس

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل أحمد يعقوب حفظكم الله جزاكم الله كل خير وبارك بكم وفيكم وفي ذريتكم. الكود يعمل بدقة وكفاءة عالية. أخي الفاضل أرجو أضافة الكود في مكانه الصحيح أي تستبدل الأسطر الثلاثة الأساسية في الكود وهي: .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 عوضاً عن ما هو في كودك وهو السطر أدناه: .Zoom = 100 أرجو أن أكون ساعدت على الإيضاح. أبو أنس عذراً سيدي أحمد يعقوب على التطفل. تم أضافة ملف لاحقاً لكود طباعة التوضيح داخل الكود أيضاً طباعة Zoom.rar

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

السلام عليكم ورحمة الله وبركاته كل الشرف لي أستاذي وسيدي الفاضل ياسر الحافظ حفظكم الله فقط أن تكتب أسمي ولو على الكيبورد لمرة واحدة فما بالك أن تقول أنه إختيار موفق هذا كرم لا أستحقه. أبو أنس (ناصر حاجب)

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل بن علية حاجي حفظكم الله أدام الله عليك الصحة والعافية ورزقك من حيث تحتسب أو لا تحتسب وزادك علماً على علم وأكرمك في الدنيا والآخرة. أنت أهل الخبرة الفطنة. أبو أنس

السلام عليكم ورحمة الله وبركاته تطبيق معادلات سيدي المجرب حفظه الله بالكود فقط للمشاركة ليس إلّا. كل الأحترم والتقدير لسيدي المجرب وسيدي بن علية حاجي أكرمهم الله. المرفق: تسلسل خاص تطبيق معادلات سيدي المجرب بالكود.rar أبو أنس

السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظكم الله مؤقتاً رد على الطلبين الأول والثاني إلى أن يأتي رد الخبراء بالجواب الشافي. المرفق: تسلسل متعدد الطلب الأول والثاني.rar أبو أنس

السلام عليكم ورحمة الله وبركاته أساتذتي وسادتي الكرام حفظكم الله للرفع, رفع الله من شأنكم.

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

السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظكم الله لو تعلم ما أنا فيه من فقر في الأكسيل لضحكت كثيراً ونحن جميعاً فقراء إلى الله. أظن أن أسهل طريقة لنسخ المعادلات تقوم بإختيار المعادلة بدون علامة اليساوي وتنسخها داخل الخلية ثم تحرر الخلية (أي تدخل داخلها وتضيف علامة اليساوي قبل المعادلة وتضغط Enter) وكي تنسخ المعادلة إلى أسفل تقوم بالتأشير بالماوس على الزاوية السفلية اليسرى للخلية حتى يظهر لك المؤشر على شكل علامة + وتقوم بالضغط بشكل مستمر عليها مع السحب إلى أسفل لنسخ المعادلة أو بطريقة النسخ واللصق المباشر او النسخ واللصق الخاص بزر الماوس الأيمن وتختار الصيغ. أرجو أن أكون أوضحت شئ ما لاني سئ في الشرح عادة. المرفق بعد تطبيق المعادلة للأستاذ المجرب حفظه الله test 10 تطبيق معادلة الأستاذ المجرب.rar

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

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل أبا أحمد حفظكم الله أستاذي وسيدي الفاضل الشهابي حفظكم الله جزاكم الله كل خير أظن هنالك أزاحة في المدى لمعادلة سيدي المجرب ربما أثناء النسخ. ستكون المعادلة الأولى كالتالي: =VLOOKUP(E5,$I$12:$K$14,2,0) والثانية: =VLOOKUP(E5,$I$12:$K$14,3,0) أرجو لكم الخير أينما حللتم. أبو أنس

السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظكم الله غيرت المعادلة على حسب فهمي ومقدرتي لان الملف لا يخصني كما أسلفت وهو مرتبط بأكواد ربما تتأثر بأي تغيير لأني لم أدرس الملف بعد لعدم وجود الوقت ولقلة الخبرة في الفيجوال. أرجو أن يكون المطلوب وحاول الرفع دائماً حتى تنال المبتغى من الخبراء. =IF(-ROUND((E5-NOW())+1,0)=0,"إنتهت الإقامة اليوم",IF(-ROUND((E5-NOW())+1,0)>365,"",IF(E5<>"",IF(E5>NOW()+H2,"باقي على إنتهاء الإقامة "&(ROUND((E5-NOW())+1,0))&" يوم","إنتهت الأقامة قبل "&(-ROUND((E5-NOW())+1,0))&" يوم"),""))) ضعها في الخلية E5 ثم أسحب إلى الأسفل. أبو أنس