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

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

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

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

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

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

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

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

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة القائمة المنسدلة بدون فراعات تم ارفاق كود الحل من الفاضل ا / رحمه الله_ الحسامي _ هشام شلبى _ بن علية حاجي و لا تنسونا من صالح الدعاء تحياتى book_HOSSMI-new.rar _HISHAMمنسدلة بدون فراغات.rar _BEN ALYAهشام_عماد.rar

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

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

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

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

أخي الكريم أهلاً بك في المنتدى ونورت بين إخوانك وأسرتك وكل عام وأنت بخير يرجى تغيير اسم الظهور للغة العربية ، والإطلاع على التوجيهات في الموضوعات المثبتة في صدر المنتدى قم بتغيير النص الموجود في الخلية G22 إلى النص SV SKED ثم ضع المعادلة التالية في الخلية H22 =SUMPRODUCT((Table2[FLIGHT STATUS]=G22)*(Table2[GPU NO]<>"")) أرجو أن تفي بالغرض إن شاء المولى تقبل تحياتي

أستاذى الفاضل / ياسر ...... السلام عليكم ورحمة الله وبركاته فى هذا الملف اعتمدت على عدد كل فصل 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

السلام عليكم الاستاذ الفاضل ابو حنين ارى ان الشرط الثانى الذى تم وضعة يتعامل مع ان الصنف لا يكون فارغ وهذا غير المطلوب بمعنى اذا تم وضع امام المندوب احمد فى السطر الاخير صنف اى فون6 ستظهر المعادلة 4 وهذا غير صحيح لانه تعامل مع 3 اصناف فقط وكل عام والاسرة الكريمة بكامل الصحة والعافية والستر

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

رغم انه لا يمكن الدخول في المنطقة التي يتواجد بها أخي سليم عندما يتعلق الامر بالدوال لكن جرب هذه الطريقة خفية قبل ان يكتشفنا 11.rar

تحياتى ابدأ بنفسك و ارفق ملف و للمساعده اطلع على المرفق مدونة اعمال ايقونات الماس لمنتدى اوفيسنا

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

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

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

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

ياسر خليل أبو البراء اخى الفاضل بارك الله فيك و اتمنى من الله لك مزيدا من الصحة و العافيه تحياتى

بارك الله فيك أخي الكريم جلال وجزيت خيراً صراحة الأعمال التي قدمها العمالقة أمثال الحسامي رحمه الله تحتاج لدراسة وفي بعض الأحيان تنقيح بسيط .. جربت الملف إذ أنني لا أحب أن أحمل الملف وحسب بل أقوم بالإطلاع عليه ودراسته دراسة متأنية للاستفادة منه قبل نقده وإذا تطلب الأمر تعديل أذكره لكي يستفيد الجميع هناك شرط إدخال البيانات غير سليم في الكود المقدم .. راجع الملف مرة أخرى وستتأكد من ذلك ولذا يجب التعديل على الشرط بالشكل التالي If (([U1] = 1 Or [U1] = 2) And a1 = "") Or (([U1] = 3 Or [U1] = 4) And (a1 = "" Or a2 = "")) Then MsgBox prompt:="تأكد من إدخال كافة البيانات", Title:="خطأ" Exit Sub End If تقبل تحياتي

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

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

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

وعسى الجنة مثواكم

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

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

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

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

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

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

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

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

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

بعد تحويل النصوص الى تاريخ حسب المغادلة المذكورة في مشاركة سابقة =--(MID(TRIM(G2),(FIND("/",TRIM(G2),4)+1),4)&"/"&LEFT(TRIM(G2),2)&"/"&MID(TRIM(G2),FIND("/",TRIM(G2))+1,2)&" "&MID(TRIM(G2),(FIND(":",TRIM(G2))-2),2)&":"&RIGHT(TRIM(G2),2)) استعمل المعادلات المذكورة في العامودين D & E in sheet1 (النطاق الاصفر و ستفرج ان شاء الله) و حتى نهاية النطاقين calculation-SALIM.rar

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

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

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

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

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

وعليكم السلام أخي الكريم محمد أبو عبد الله 1 - قم بالدخول للرابط التالي لنسخ الكود بالكامل 2- افتح المصنف الخاص بك واضغط Alt + F11 للدخول لمحرر الأكواد 3- من قائمة Insert أدرج موديول جديد والصق فيه ما قمت بنسخه من أكواد 4- آخر جزء في الكود سيتم نقله إلى حدث ورقة العمل "ورقة2" .. لذا قم بتحديد آخر جزء في الكود ثم اضغط Ctrl + X لقص هذا الجزء ووضعه في مكان آخر 5- من نافذة المشروع انقر دبل كليك على ورقة العمل "ورقة2" لتضع الكود الذي تم قصه إلى هذا الموديول 6- اذهب لورقة العمل المسماة "ورقة2" واختر الفصل المطلوب إعداد قائمة له .. من الخلية J1 رابط الكود من هنا

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

الحمد لله الذى تتم بنعمته الصالحات

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

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