نجوم المشاركات

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

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

الأخ الكريم/ marfipo السلام عليكم ورحمة الله وبركاته أهلا وسهلا بكم في منتدانا العامر لو تمكنت من تغيير أسم الظهور إلي العربية لكان أفضل للتواصل وبعد إستئذان الأستاذ الفاضل/ طارق محمود لولا أني جهزت الملف - لأحجمت عن رفعه بعد رؤية الرد الوافي للأستاذ/ طارق لكن عسي أن تحدث منه إفادة - تقبل تحياتي rapport journalier GO Préfas.rar

السلام عليكم أخي العزيز تفضل هذا هو الكود Sub add_new_sheet() d = DateValue(ActiveSheet.Name) + 1 new_name = Format(d, "dd-mm-yyyy") ActiveSheet.Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = new_name [c8] = "'" & new_name For Each ce In [G25:V36] If ce.HasFormula = True Then GoTo 10 ce.ClearContents 10 Next End Sub وهذا الملف مرفق وبه الكود يعمل بالزر الأحمر لاحظ أنني أضفت الحلقة التالية بنهاية الكود For Each ce In [G25:V36] If ce.HasFormula = True Then GoTo 10 ce.ClearContents 10 Next وهي تقوم بمسح البيانات (وليس المعادلات) الموجودة بالنطاق G25:V36 rapport journalier GO Préfas.rar

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

السلام عليكم أخي العزيز تم إضافة أعمدة جديدة بجميع الانواع (3 أعمدة لكل ماركه) لاحظ أنها مخفية، تستطيع إظهارها الآن باختيار العميل فى الخانة J1 يتم الآتي •مسح البيانات القديمة A4:G800 للعميل السابق •استدعاء بيانات العميل (عن طريق فلتر للصفحة المقصوده) من شيت دخول جبنة ثلاجة بما فيها خانة الملاحظات وكذلك من شيت خروج ثلاجة بما فيها خانة الملاحظات •ثم ترتيب البيانات كلها حسب التاريخ •تضبيط المعادلة في العمود F •يتم (بالمعادلات) نقل الكمبات لأعمدة الماركة الخاصة بها فى اى من الخانتين دخول او خروج •يتم بالكود إخفاء أوتوماتيكي لأعمدة الماركات التي ليس بها بيانات لم أفهم ماالذي تريد اضافته فى اجمالى العملاء تفضل المرفق ادخال شيت دخول مع شيت خروج لعمل شيت اجمالى عملاء3.rar

أخى الفاضل / مصطفى حسين تفضل ما تريد فورم ادخال وتعديل.rar

بسم الله تحياتى لاعضاء المنتدى المحترم مرفق برنامج مخزنى ( معادلات و اكواد ) يعطى ارصدة الاصناف _ استخراج رصيد حركة الصنف بين تاريخين _ كود رقم الصنف تلقائى تم ادخال كود طباعه و كود بحث عند ادخال حركة الصنف و استخراج رصيد (من اكواد الاستاذ / عبدالله باقشير ) برنامج مخزن اوفيسنا 2020 _ بحث و طباعه.rar

أخى الحبيب الأستاذ / محمد أبو البراء :fff: بارك الله فيك وجزاك الله كل خير علي هذه التهنئة الرقيقة دمتم فى أمان الله وحفظه وتقبلوا منى وافر الإحترام والتقدير

أخي العزيز اتبع الخطوات في الصورة

فى عمود الترتيب ضع هذه المعادلة وأسحبها لأسفل وضع العلامات التى تريدها فى عمود العلامات سيظهر لحضرتك الترتيب المطلوب =IF(AND(B2<>"";C2<>"");COUNTIF(C$2:C$200;">"&C2)+COUNTIF($C$2:C2;C2);"") تقبل تحيات : أخيك

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

السلام عليكم تفضل أستاذى الفاضل / محمد المصنف1.rar

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

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

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

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

السلام عليكم شرح الكود في الصورة المرفقة

أستاذ / asd2000 السلام عليكم ورحمة الله وبركاته إليك التعديل المطلوب. ملف به التنسيق الكامل وملف آخر لا يوجد التنسيق بناء على طلب حضرتك. 9.rar 999.rar

الأستاذ / asd2000 السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب. 99.rar

الاخ الفاضل / طنطاوي تحية طيبة لك ارجو منك ان يكون صدرك اكثر سعة فكل من في هذا المنتدي لايترددون ابدا في تقديم المساعدة علي حسب سعة وقتهم فانت لاتدري ظروف كل فرد تم تنفيذ طلبك بهذا المرفق لعله يكون مقصدك واي تعديل تراه لا تتردد في طرحه تقبل خالص التحية والشكر student 2013-H.rar

السلام عليكم تفضل المرفق ادخال شيت دخول مع شيت خروج لعمل شيت اجمالى عملاء2.rar

جميله جدا و يكفي ان فيها اسم اخي الحبيب الاستاذ المحترم : رجب جاويش و الشكر موصول للأخ الحبيب الاستاذ العزيز : محمد ابو البراء

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

أخى الكريم معذرة لم أستطع الدخول على الإنترنت لظروف خاص بى * اليكم النموذج بعد انشاء محرك بحث برقم الكارته * واخفاء الشيت تماما * اما فيما يختص بالمعادلات داخل الشيت فلا قيمه لها لأن المعادلات موجوده بالفورم نفسه وتقبلوا منى وافر الإحترام والتقدير shaawa@boshkash11.rar

جزاك الله خيرا استاذى الحبيب الاستاذ / ضاحى الغريب وايضا استاذى الحبيب الاستاذ / محمود الشريف جزاكم الله خيرا احبتى فى الله واضيف حقيقة التدين أوجز النبي صلى الله عليه وسلم حقيقة التدين في صدد وصيته إلى أحد الصحابة لما سأله قال قل أمنت بالله ثم أستقم، كلمات جامعات جمعت الدين كله في كلمتين قل أمنت بالله يعنى حقق الإيمان في قلبك ثم استقم في أعمالك في عبادتك في أخلاقك في تعاملك مع الحياة مع الناس، والإيمان بالله لا يكون إلا بمقتضى العقيدة الصحيحة ولا شك وإلا كل يدعي الإيمان بالله، والاستقامة على دين الله لا تكون إلا بمقتضى العمل بشرع الله وبما سنَّه رسول الله صلى الله عليه وسلم لأن حتى الإيمان بالله والاستقامة هي دعوة ولها شروط وضوابط وحقيقة؛ وعلى هذا فإن التدين أمر لا بد أن يحكم حياة المسلم كلها في قلبه وروحه ونفسه وعواطفه ومشاعره وأعماله ومواقفه؛ كل هذه الأمور لا بد أن يتحقق فيها معنى التدين وأول حقائق التدين في بلوغ المراد الشرعي للتدين أول حقيقة في ذلك هي صلاح القلب وصلاح القلب يكون أولاً بتعظيم الله عزَّ وجلَّ بأسمائه وصفاته وأفعاله؛ فإذا أراد المسلم أن يختبر نفسه أو يستجلي حقيقة تعلق قلبه بالله عزَّ وجلَّ فلينظر في حاله إذا قرأ آيات الله إذا قرأ القرآن أو سمعه ثم مرت عليه أسماء الله عزَّ وجلَّ هل يجد في نفسه تأثراً في معاني أسماء الله هل يجد في استعراضه إلى أسماء الله عزَّ وجلَّ والتفكر فيها والتمعن في معانيها هل يجد فيها لها أثراً في قلبه بزيادة تعظيم الله ومحبته ورجائه وخوفه وتقواه، وكل أسماء الله عزَّ وجلَّ لا بد أن تغرز هذه المعاني فإن وجد أثراً طيباً في ذلك فليحمد الله وليعرف أنه بدأ طريق الاستقامة وإن أحس بالغفلة وعدم التأثر بمعاني أسماء الله عزَّ وجلَّ فليفتش عن حاله ثم أيضاً ليستعرض المسلم يختبر قلبه مدى تحقق أركان العبادة في قلبه أركان العبادة العبادة في القلب لا بد أن تقوم على ثلاثة أركان· الركن الأول محبة الله عزَّ وجلَّ محبة التعظيم محبة الله عزَّ وجلَّ بأن يمتلئ قلب المسلم بمحبة الله· ثم ثانياً الخشية: خشية الله وخوفه ثم ثالثاًَ الرجاء تعلق القلب برجاء رحمة الله وعفوه في الدنيا والآخرة إذا امتلئ القلب بهذه المعاني أو شعر بها فلا بد أن تثمر أموراً كثيرة من تقوى الله ورقابه الله والإنابة إليه والتوكل عليه والتعلق به سبحانه في كل الأمور بحيث يحب المسلم إذا امتلأ قلبه بهذه المعاني يحب المسلم ما يحبه الله ويحب من يحبهم الله ويبغض ما يبغضه الله ويبغض من يبغضهم الله ثم لا بد أن يتحقق معنى التدين في صلاح القلب بالتذلل لله سبحانه وتعالى تذلل للقدر والشرع بأن يخضع إلى قدر الله عزَّ وجلَّ ويؤمن بقدر الله ويصبر على قضاء الله وكذلك التذلل بالاستعداد والتسليم للعمل بما أمر الله به والانتهاء عما نهى الله عنه، وكذلك لا بد أن يشعر المسلم إذا حقق التدين في قلبه بالإذعان بشرع الله ثم يستلزم ذلك ما أمر الله به كما قال الله عزَّ وجل:َّ {قُلْ إِن كُنتُمْ تُحِبُّونَ اللّهَ فَاتَّبِعُونِي يُحْبِبْكُمُ اللّهُ } آل عمران 31. يستلزم صلاح القلب ما أمر الله به من اتباع رسول الله صلى الله عليه وسلم ، والاتباع يبدأ بالمحبة بأن يحب المسلم الرسول صلى الله عليه وسلم حتى يكون أحب إليه من نفسه وماله وولده ومن الناس أجمعين، وأن تثمر هذه المحبة عن الاستعداد لقبول ما جاء عن رسول الله صلى الله عليه وسلم من قول أو فعل أو تقرير؛ فيستعد المسلم أولاً لتوقير النبي صلى الله عليه وسلم في كل أحواله ثم اتباع سنته والاهتداء بهديه، أحب ما يحبه الرسول صلى الله عليه وسلم أحب من يحبهم وبغض من يبغضه الرسول صلى الله عليه وسلم وبغض من يبغضهم، كذلك تتجلى حقيقة التدين من حيث صلاح القلب تتجلى في الرقابة لله عزَّ وجلَّ والتي ينتج عنها تقوى الله من راقب الله اتقاه؛ وهذا هو من معاني الإحسان التي أشار إليها النبي صلى الله عليه وسلم في حديث جبريل حينما سأله جبريل عليه السلام عن الإحسان قال أن تعبد الله كأنك تراه، تصوروا هذا المعنى العظيم تعبد الله كأنك تراه ثم قال فإن لم تكن تراه فإنه يراك بهذا الاستشعار تتحقق الرقابة في قلب المؤمن وعقله ومشاعره وروحه وعواطفه الرقابة لله عزَّ وجلَّ، فإذا تحققت الرقابة لله عزَّ وجلَّ فإن المسلم لا بد أن يتقي الله وهذه نتيجة طبيعية، بل نتيجة حتمية كل من راقب الله واتقاه فلا بد أن يقوم بما أوجب الله عليه وأن ينتهي بما نهى الله عنه·

السلام عليكم أخي الحبيب / هاني نتفق جميعا أننا نعرف بعضنا من خلال المنتدي المبارك ولانعرف بعض علي أرض الواقع (إلا قليلا) إذن لايمكن أن يتقدم من يريد المساعدة لمساعدة عضو ويترك الآخر لأسباب بينهما شخصية فلابد أن تسأل نفسك وهذا ما أوجهه لنفسي ولجميع الأعضاء عندما يكون لديهم أسئلة مالذي يجعل من يريد المساعدة يتقدم لمساعدة عضو ويترك الآخر أو يتقدم لموضوع ويترك الآخر؟ هذا سؤال مهم ولابد للجميع الإنتباه لهذا ، سأجيب من وجهة نظري ولكم جميعا التعليق بما تشاؤون أري أن الأسباب لهذا كثيرة وسأذكر منها فقط 3 أسباب رئيسية 1. المجيب لايعرف عن الموضوع ويخشي أن يضلل السائل كأن يسأل السائل سؤالا محاسبيا متخصصا أو سؤالا هندسيا متخصصا أو كأن يسأل السائل أن الإجابة بالأكواد والمجيب لايجيد الأكواد أنا مثلا أبعد عن الفورم لأن غيري كثيرين بارعين فيها ويحلونها بسرعة 2. عدم وضوح السؤال كأن يسأل السائل عن شيء ليس موجودا بالملف ، مثل حالتك هنا في السؤال عن مايدفعه العميل ومايتبقي عليه ولايوجد بالملف كله بجميع ورقاته أي إشارة لما دفعه العميل وماتبقي عليه غير في السؤال فقط ، فكيف 3. السؤال ليس سؤال بل موضوع كبير يستنزف وقت المجيب كأن يسأل السائل أريد عمل برنامج يحسب كذا ويستدعي كذا ويطبع كذا ويخزن في شكل ... في نفس الوقت هنا لن يتقدم للإجابة إلا من لديه وقت كبير، أنا مثلا أري في هذه الحالة أن أفيد بهذا الوقت الكبير 5 او 6 سائلين لعلك لابد أن تعيد طريقة طرح الموضوع أو السؤال فأنت تبذل وقت كبير في المتابعة والإلحاح بدون ان تبذل وقت لإعادة السؤال فعارض السؤال كمندوب المبيعات الذي يعرض سلعته فالمندوب الجيد يسأل نفسه ويلوم نفسه اولا إن لم تباع سلعته أرجو أن يتسع صدرك لردي هذا وتأخذه بمأخذ إيجابي ولاتأخذه سلبيا فلاتظن مثلا أنني أتنصل ، فقد فتحت ملفك هذا عشرات المرات لكني في كل مرة أفتحه أجد نقص هائل من البيانات مثلا أنت وضعت في صفحة العملاء 3 أعمدة فقط هكذا اسم العميل تاريخ فواتيره دين العميل اذا اشترى وتبقى عليه جزء من ثمن الفاتورة وتطلب ترحيل الفواتير لهذه الورقة من صفحة الفاتورة التي بها 7 أعمدة م الصنف العدد الوحدة سعر الوحدة اجمالى ملاحظات طلبت منك قبل ذلك أن تضع النموذج الذي تريده يدويا ، بمعني ضع بيانات حقيقية أو وهميه في ورقة الفاتورة ثم إنقلها يدويا لصفحة العملاء ، حتي يفهم المجيب أي عمود سيترحل لأي مستقبل ، أظنك لوعملت ذلك منذ شهور كان خلص الموضوع ونقطة أخري التي أشرت لك في أول ردي إليها السؤال عن شيء ليس موجودا بالملف ، مثل مايدفعه العميل ومايتبقي عليه ممكن تضيف أنت كما يتراءي لك في صفحة الفاتورة مثلا بين عمود اجمالى و عمود ملاحظات عمودا جديدا به ماتم دفعه مثلا الصنف الأول 120ج إجمالي ، دفع منها 100 فقط ، أين سنضع هذا البيان تقبل مني هذا وأعد صياغة السؤال ، وقد وضعت الرد هنا وليس علي رسالة خاصة لكي يستفيد باقي الإخوة الذين لايجدوا تفاعلا مع أسئلتهم وليشاركنا من أراد فموضوعك أصبح قديم جدا ومن المحزن ألا تستقر علي حل له حتي الآن أظنك بإذن الله تتفهم ذلك ولنعمل جميعا علي العبور للخطوة التالية تقبل ودي وإحترامي لشخصكم الكريم أخوك / طارق محمود

حمدا لله بالنسبة للشرح اول و اخر سطر لتسريع عمل الكود Application.ScreenUpdating = False Application.ScreenUpdating = True هذا السطر يقوم بوضع المعادلة في المدي c2:cx2501 Range("c2:cx2501").FormulaR1C1 = "=IF(sumif(CustmerInvoice!R2C2:R1048576C2,CustmerDataBase!RC1,CustmerInvoice!R2C[1]:R1048576C[1])>0,1,0)" و اخيرا هذا السطر يحول الخلايا الي قيم بدل من المعادلات ليصبح الشيت اسرع و اقل في الحجم Range("c2:cx2501") = Range("c2:cx2501").Value تحياتي

اخى الكريم سألت نفس سؤالك من قبل واتانى الرد التالى فى هذا الكتاب فكل ما يمكن ان اقدمه لك هو ان ارفع لك هذا الكتاب ولجميع الاخوه واشكر مؤلفه وكما اشكر اخى محمود فهو من دلنى عليه