أبوعبد الله

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

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

أخي العزيز SKYBLUE أشكرك على كلماتك الجميلة وإليك ما طلبت إن شاء الله يكون كما تريد . تقبل تحياتي . أبو عبدالله BOOK18_1.rar

أخي الحبيب خبور خير تتواصل إبداعاتك وأسأل الله أن يتواصل معها الأجر والثواب من رب العباد بكل حرف تنجزه فيما تتحفنا دائماً به . تقبل تحياتي وشكري وامتناني . أخوكم أبو عبدالله

أخي العزيز SKYBLUE رجاء الاطلاع على المرفق وبه الحل ولكن بطريقة مختلفة قليلاً لعله يناسبك إن شاء الله . تحياتي أبو عبدالله BOOK18.rar

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

أخي وأستاذي الحبيب / خبور خير . يحفظه الله ويرعاه السلام عليكم ورحمة الله وبركاته هذه شهادة من استاذي أعتز بها وسامحني على الانقطاع وعدم التواصل معك ولكنك في القلب دائماً . تقبل شكري وامتناني . وهذه إضافة أخرى صغيرة لوضع تاريخ اليوم للفاتورة بعد الترحيل وبالطبع يستطيع المستخدم تغييره . Sub ترحيل() Dim M As Integer, LastRow As Integer, intNewOrderNo As Integer M = Application.CountA([B7:B18]) If M = 0 Or [C3] = "" Or [M3] = "" Or [M4] = "" Then MsgBox "EROOR": GoTo 1 KH = Array(Range("M3").Value, Range("M4").Value, Range("C3").Value) With Sheet2 LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 .Cells(LastRow, 1).Resize(M, 3) = KH .Cells(LastRow, 4).Resize(M, 3) = Cells(7, 2).Resize(M, 3).Value .Cells(LastRow, 7).Resize(M, 9) = Cells(7, 6).Resize(M, 9).Value End With Range("B7:B12,D7:D12,H7:H12").ClearContents intNewOrderNo = Range("M3") + 1 Range("M3") = intNewOrderNo Range("M4") = Date End Sub تقبل حبي وتقديري أخوكم أبو عبدالله

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

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

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

اخي العزيز BU3MMAR رجاء الاطلاع على المرفق وقد تم عمل اللازم . ابو عبدالله Bu3mmar_test.rar

ألف مبروك أخي مصطفي وإلى الأمام دائماً أبو عبدالله

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

أخي الحبيب حسام نور جزاك الله كل خير على هذا العمل الرائع ومن نجاح إلى نجاح . أبو عبدالله

أخي الحبيب / أحمد يعقوب أخي الحبيب / aah_aah2008 لكم كل الشكر والامتنان أبو عبدالله

أخي العزيز / XXX_WALID_XXX أرجو الاطلاع على الملف المرفق وقد تم عمل المطلوب بكود VB ذلك أنه كما أسلف أخي الحبيب محمد عسكر لا يمكن تنفيذ ذلك باستخدام التنسيق الشرطي والله أعلم ، بالملف المرفق شرح لتفاصيل الفكرة أرجو أن تناسبك . تقبل تحياتي أبو عبدالله FLASH_CELL_IF_LESS_THAN_ZERO.rar

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

أخي العزيز ABUZZOUZ أولاً أشكرك على الفكرة والمشاركة الرائعة وقد قمت بعد إذنك بإضافة مفتاحين الأول لإظهار الفورم في حالة تم إغلاقه والثاني لإيقاف الوميض الذي لا يتوقف في الملفات التي من هذا النوع والتي يستخدم بها في الكود خاصية ال TIMER مما يعوق إغلاق الملف في مثل هذه الحالة . ثانياً أود أن أطلب منك بحكم الأخوة التي تجمع بين كل أعضاء هذا المنتدى المتميز بحق أن أوضح أنه من الصعوبة بمكان أن يتعمد أحد من الإخوة تجاهل مواضيع أو مشاركات أو طلبات أحد ، ولكننا جميعاً مطالبون أن نحسن الظن ببعضنا البعض وأن يلتمس كل واحد العذر لأخيه وأن نعلوا فوق مستوى الحساسية الشخصية في التعامل مع الأمور ، وهنا أخي الحبيب أن لا أقصدك طبعاً فأنت أخ عزيز ومشارك متميز ولكن أنصح نفسي وإخواني جميعاً بذلك لوجه الله تعالى ولكي نرقى أكثر وأكثر . أعتذر لك إن كان قد أسائك عدم الرد على مشاركتك وإلى الأمام دائماً وأتمنى لك كل التوفيق والنجاح . أخوك أبو عبدالله Copy_of_Flash_Caption.rar

أخي الحبيب / خبور خير أسعد الله صباحك بكل خير . أرجو الاطلاع على رسالتي لك بالمشاركة الأصلية لهذا الموضوع ورابطها هو التالي : http://www.officena.net/ib/index.php?showtopic=23660 حفظك الله ورعاك وجزاك كل خير أخوك ومحبك / أبو عبدالله

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

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

على عجالة لعل الحل بالمرفق . تحياتي أبو عبدالله OIL.rar

أخي العزيز إضافة إلى ما تقدم به الأخوة جميعاً مشكورين يمكنك تجربة الملف المرفق . تحياتي join_cells.rar

أخي العزيز عماد أشكرك وأشكر أخي الحبيب كريم الذي افتقدناه كثيراً من خلال رده على طلبك وأقدم لك فكرة إضافية إلى جانب فكرة أخي كريم الرائعة وهي أنه بمجرد فتحك للملف فستجد أن عمود مدة الاكتفاء ولكل الخلايا التي تقل عن 3 ( أيام ) فستجد أن تلك الخلايا تومض بلون أحمر كتنبيه على أنها أقل من 3 أيام ، وعليك قبل إغلاق الملف إيقاف التنبيه من أيقونة ( إيقاف التنبيه ) فستجد أنه تم تثبيت اللون الأحمر لنفس الخلايا التي قيمتها أقل من 3 ، وإذا قمت بإضافة أو تغيير أي بيانات وأحببت مراجعة موقف مدة الاكتفاء فقم بنقر أيقونة ( مراجعة مدة الاكتفاء ) فسيتم مراجعة كل العمود بما فيه الإدخالات أو التغييرات الجديدة ليعطيك التنبيه بنفس الطريقة ، ولا تنسى إيقاف التنبيه قبل إغلاق الملف ، هذا ما أسعفني به الوقت وأرجو أن يناسب طلبك . تحياتي أبو عبدالله __________________________.rar

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