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

الاخ سليم حاصبيا انك انسان مؤدب هذه هي القواعد القديمة التي نفتقدها

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

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

اخي العزيز قصدك هكذ مثل هذا المثال المرفق ؟؟! Database1.rar

سليم حاصبيا اخى الفاضل تحياتى و ايام مباركه تعودنا ان يكون هناك هديه مع الترقيه مبنحبش العيديه تكون ناشفه ياسر خليل أبو البراء _ عمر الحسيني _ أبو حنــــين مش كده ولا ايه فى الانتظار و كل عام و انتم بخير

وعليكم السلام أخي محمد ملفك يعمل بشكل ممتاز ولا مشكلة فيه عندي حاول توضح ما هي رسالة الخطأ التي تظهر لديك؟ انقر على كلمة Debug ثم انسخ سطر المشكلة إلى المشاركة أو صور المشكلة لتتضح الصورة الخطوات التي قمت بها صحيحة إن شاء الله والكود يعمل وإليك الدليل 2016-09-08_07-06-01.rar

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

احلى واغلى تحية لهذا الصرح العظيم وكل عام وانتم بخير وهذا المنتدى فى تقدم وازدهار

عزيزي لحل اشكالية التنسيق من الوورد بالماوس الايمن على حقل الدمج واختر الخيار toggle field codes سيظهر لك جملة بين قوسين . بعد اسم الحقل وقبل القوس الاخير اكتب الفورمات المناسبة لنوع الحقل سواء رقم او تاريخ مثلا للرقم \#0.00 وسيظهر الحقل كامل بهذا الشكل وعلى اساس ان اسم الحقل avg {MERGEFIELD avg \#0.00} بالتوفيق

الاخ احمد ديدو تم عمل المطلوب وفي انتظار اكتشاف الاخطاء شاهد المرفق Omar_3.rar قبل البدء في قاعدة بيانات جديدة يجب حذف الدتا الموجدة بالاوراق التالية كود الصنف اضافة صنف صرف صنف حركة_المخزن في ورقة حركة_المخزن احظر حذف الخلايا التي بها معادلات ذات اللون اللبنى اما اوراق المخازن الخمسة لا تخذف شئ منها سوف يحدثها البرنامج تلقائيا ملحوظة في الموديول Module3 يوجد ماكر بأسم Copier اذا كان عندك بيانات جاهزة تم نسخها الي ورقة كود الصنف ولم يتم ادخالها عن طريق الفورم الخاص بتكويد الاصناف نفذ هذا الماكرو ليعمل علي ترحيلها الي ورقة حركة_المخزن تسهيلا لك يستخد هذا الكود مرة واحدة فقط تحياتي لك كل سنه انت طيب وكل اعضاء المنتدي الكرام طيبين وبخير اعادة الله علي الامة الاسلامية بالخير واليمن والبركات عيد سعيد

أستاذى الفاضل / ياسر ...... السلام عليكم ورحمة الله وبركاته فى هذا الملف اعتمدت على عدد كل فصل 60 تلميذا ، ولكن يمكن عمل بعض التعديلات البسيطة ليوافق الفصل أى عدد وليكن 80 وهذا غير معقول لأن يكون الفصل بهذا العدد ومهما يكن يمكن عمل ذلك واستخدام خاصية شطر القائمة إلى قائمتين متساويتين تقريبا ، وهذا ما فهمته من قصدك فى التعليق السابق تقبل وافر تحياتى واحترامى

السلام عليكم ورحمة الله الصق هذا الكود فى موديول وخصص له زر Sub Tarhil_Boys() Range("C11:U46").ClearContents Range("C55:U89").ClearContents LR = Sheet1.Cells(Rows.Count, 3).End(xlUp).Row For R = 9 To LR If Sheet1.Cells(R, 4) = "ذكر" Then B = Application.WorksheetFunction.CountIf(Sheet1.Range("F9:F" & R), Cells(2, "M")) If Cells(2, "M") = Sheet1.Cells(R, 6) Then B = B + 11 Range("C" & B) = Sheet1.Cells(R, 3) Range("D" & B) = Sheet1.Cells(R, 27) Range("E" & B) = Sheet1.Cells(R, 9) Range("F" & B) = Sheet1.Cells(R, 10) Range("G" & B) = Sheet1.Cells(R, 11) Range("H" & B) = Sheet1.Cells(R, 12) Range("I" & B) = Sheet1.Cells(R, 19) Range("J" & B) = Sheet1.Cells(R, 5) Range("K" & B) = Sheet1.Cells(R, 2) Range("Q" & B) = Sheet1.Cells(R, 14) Range("T" & B) = Sheet1.Cells(R, 18) End If End If Next Call Tarhil_Girls End Sub Sub Tarhil_Girls() x = Cells(Rows.Count, 3).End(xlUp).Row - 1 LR = Sheet1.Cells(Rows.Count, 3).End(xlUp).Row For R = 9 To LR If Sheet1.Cells(R, 4) = "أنثى" Then B = Application.WorksheetFunction.CountIf(Sheet1.Range("F9:F" & R), Cells(2, "M")) If Cells(2, "M") = Sheet1.Cells(R, 6) Then B = B + 64 - x Range("C" & B) = Sheet1.Cells(R, 3) Range("D" & B) = Sheet1.Cells(R, 27) Range("E" & B) = Sheet1.Cells(R, 9) Range("F" & B) = Sheet1.Cells(R, 10) Range("G" & B) = Sheet1.Cells(R, 11) Range("H" & B) = Sheet1.Cells(R, 12) Range("I" & B) = Sheet1.Cells(R, 19) Range("J" & B) = Sheet1.Cells(R, 5) Range("K" & B) = Sheet1.Cells(R, 2) Range("Q" & B) = Sheet1.Cells(R, 14) Range("T" & B) = Sheet1.Cells(R, 18) End If End If Next End Sub

جرب هذ الطريقة 22.rar

طيب توكل على الله اضف وعدل ما تريد لك مطلق الحرية فيما تشاء والمشاركة فى عمل مثل هذا ستكون قطعا ممتعة ومثمرة ورائعة

شكرا على الموضوع والاجابة من المهندس ياسر

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة زر ترحيل واحد بدلا من 4 ازارير ترحيل تم ارفاق كود الحل من الفاضل _ رحمه الله/ الحسامي و لا تنسونا من صالح الدعاء تحياتى 333-معدل (2).rar

السلام عليكم ورحمة الله وبركاته كنت اضافت مشاركة سابقا ولكن لا اعرف لماذا لم يتم اضافتها .. ما علينا سوف اكتبها مرة اخرى بداية انت تعرف ان الموظف طبقا للقانون يستحق خلال العام الاول فى الخدمة يستحق 15 يوم اعتيادى و7 عارضة ثم اجازة سنوية 21 يوم اعتيادى و 7 عارضة لاول 10 سنوات خدمة ثم يستحق 30 يوم اعتيادى و7 عارضة لاكثر من 10 سنوات خدمة ثم يستحق 45 يوم اعتيادى و7 عارضة بعد سن الخمسين .. تمام ما رأيك يا اباجودى لو اضفنا فى بيانات الموظف حقل يسمى تاريخ ميلاد الموظف او العامل وحقل تاريخ الالتحاق بالعمل وبناءً عليها بشكل اتوماتيك يتم منحها الاجازة التى يستحقها هذه مجرد بداية .. وانا معك اذا ارات التنفيذ تحياتى وهناك بعض الاضافات الاخري سوف ياتى وقتها

بارك الله فيك اخي العزيز محمد ابا جودي علي ماتقدمه وكل عام وانت بخير

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

الف الف مبروك اخي سليم .. ترقية مستحقة بجدارة وفي محلها .. اتمنى لك التوفيق

من جد وجد من يكرمه ويستفيد من قدراته

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

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

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

تم عمل المطلوب 5555.rar

الف مبروك استاذ سليم و عقبال الاستاذ عمر و الاستاذ ابو حنين ان شاء الله

تمام اخي المهم ان توصل الى النتيجة

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

الف الف مبروك للاستاذ المحترم سليم حاصبيا جدير بالترقية

السلام عليكم اخي العزيز ياسر المسكلة ليست في الاوامر ولكن عند الاختيار من القائمة لا يتم الفلترة ويتم استدعاء جميع البيانات علما باني استخدم اكسيل 2003 دمت بكل خير تحياتي

اليك المعادلة المطلوبة _(تضغها في الخلية C5 ,و تسحب نزولاً) =IF($B5="","",HLOOKUP($B5,$D$1:$H$2,2,0)+COUNTIF($B$5:B5,B5)-1)

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

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

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

الف مبروك اخى سليم والى الامام

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

كل عام و انتم بخير

تفضل تعديل لدالة topten TOPTEN.rar

الف مبروك استاذنا الكبير سليم

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

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

وعليكم السلام المثال غير واضح حضور الساعة الثانية عشرة مساء والخروج الساعة العاشرة صباحا والتأخر ساعتين ؟ عادة التأخر يحسب ما بعد الحضور الرسمي فمثلا اذا كان الحضور مقررا الساعة الثامنة صباحا ثم ان العامل اتى الساعة الثامنة والربع هنا يتم تسجيل 15 دقيقة تأخر هذه الآلية غير واضحة في مثالك

جزاكم الله كل الخيـــر انا حاولت فى الكود وما راضى يشتغل والان سبحان الله كنت اجرب مرة اخرى وهذا ما عمل معى واشتغل الان على اكمل وجه Private Sub ShowPassword_AfterUpdate() If Me.ShowPassword.Value = True Then Me.txtPassword.InputMask = "" Else Me.txtPassword.InputMask = "password" End If End Sub

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

العفو استاذ عبدالله وهذه فكرة اخرى sumdebit2: DSum("[debit]","entry","left([code]," & Len([code]) & ")=" & [code]) بالتوفيق

sumdebit: DSum("[debit]","entry","[code] like '" & [code] & "*'")

الاستاذ المحترم / محمد الدسوقي السلام عليكم ورحمة الله وبركاته اللهم بارك مجهود ممتاز و حل رائع ينم عن امكانيات عالية في الاكسيل جعلك الله عون للمشتركين في هذا المنتدا العظيم ( منتدا اوفيسنا ) بارك الله في جميع المنتمين الي هذا الصرح الرائع

إليك الملف التالي حسب ما فهمت من طلبك Saving Workbook Counter.rar