ياسر خليل أبو البراء

بارك الله فيك أخي الحبيب ياسر العربي .. هل فكرت بالأسماء المركبة؟ جرب أن تضع الاسم "عبد الله أحمد عبد السلام"

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

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

بارك الله فيك أخي الكريم علي حيدر موضوع جميل .. واااااااااااااااااااصل إبداعاتك تقبل تحياتي

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

ما هي الخلايا أو النطاق المراد العمل عليه .؟؟ لم تجبني على سؤالي عموماً يمكنك التعامل بهذا الشكل Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Row > 5 Then Call ShowCaledar End If End Sub الشرط هنا العمود الأول .. أي العمود A وليس العمود بالكامل إنما بداية من الصف رقم 6 أي من A6:A نهاية صفوف ورقة العمل أرجو أن تكون قد اتضحت الصورة

ممكن بسطر من الكود تحدد نطاق محددمن الخلايا ..قم بإلقاء مزيد من الضوء على الخلايا المراد العمل عليها بمساعدتك في الأمر أو يمكنك استخدام جملة الشرط If Target.Address="$A$1" then ودا مجرد مثال لخلية واحدة ..بمعنى لو تم اختيار الخلية A1 سيتم تفعيل الكود ولا تنسى أن تضع جملة النهاية للشرط End If

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

وجزيت خيراً أخي الغالي سعد عابد ولك بمثل ما دعوت لي إن شاء الله شاكر مرورك العطر بالموضوع

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

قم بعمل استدعاء لاسم الإجراء الفرعي في حدث ورقة العمل Private Sub Worksheet_SelectionChange(ByVal Target As Range) Call ShowCalendar 'حيث هذا هو اسم الإجراء الفرعي End Sub

وعليكم السلام أخي الغالي أبو حنين وجزيت خيراً بمثل ما دعوت لي .. مشكور على مرورك وتشريفك بموضوعي المتواضع

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

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

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

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

وعليكم السلام أخي الكريم محمد السباعي جرب تغيير هذا الجزء داخل الكود For I = Lr To 6 Step -1 If .Cells(I, 2).Value2 >= Ws.Range("E2").Value2 And .Cells(I, 2).Value2 <= Ws.Range("E3").Value2 Then Ws.Range("B" & Last + J).Resize(1, 4).Value = .Cells(I, 2).Resize(1, 4).Value Ws.Range("A" & Ws.Cells(Rows.Count, 1).End(xlUp).Row + 1 & ":A" & Ws.Cells(Rows.Count, 2).End(xlUp).Row) = .Name .Cells(I, 2).EntireRow.Delete J = J + 1 End If Next I

وعليكم السلام مين إنت ؟! حد يعرف الشخص الحلو ده؟!! الشخص دا لابس طاقية الإخفا .. بيكون مختفي طول الوقت (حدش يقدر يقلعه الطاقية اللي لابسها دي عشان نقدر نشوفه) عوداً حميداً أخي وحبيبي الغالي ومعلمي الكبير أحمد يعقوب .. ويا ريت تشيل الطاقية

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

تفضل أخي الكريم https://www.europeup.com/zet8zac90awh.html طريقة التحميل من الموقع مشروحة في الرابط التالي بالمدونة من هنا

الحمد لله الذي بنعمته تتم الصالحات والحمد لله أن تم المطلوب على خير .. تقبل تحياتي

جرب تغير حرف الـ k اللي هو Small خليه كابيتال .. بس خلاص

عدل المعادلة في الخلية E2 =IF($D2>=1000,($B2-$C2-$D2)/4,"") بالنسبة للجزء الثاني من الطلب غير واضح .. هلا وضعت أمثلة أخرى للتوضيح .. هل هناك ارتباط بين الصفوف؟

إثراءً للموضوع جرب الملف المرفق التالي عله يفي بالغرض إن شاء الله رابط الملف المرفق من هنا

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