ابو حمادة

شكرا ليك استاذي الغالي بس لو ممكن تعدل الكود بحيث يكون مع مفتاح الاضافه وليس في حدث التكست بوكس دا الكود حول اركبه على بعضه واشتغل بس بتظهر الرساله تفيد ان الاسم موجود سابقا وبيتم الاضافه ايضا Private Sub CommandButton1_Click() Dim Lr As Integer, ws As Worksheet Set ws = Worksheets("æÑÞÉ1") Lr = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row For Each cl In Range("b5:b" & Lr) If Me.TextBox1.Text = cl.Text Then MsgBox ("åÐÇ ÇáÇÓã ãæÌæÏ ãÓÈÞÇ Þã ÈÇÎÊíÇÑÇÓã ÂÎÑ End If Next cl ws.Cells(Lr, 2).Value = Me.TextBox1.Text ws.Cells(Lr, 3).Value = Me.TextBox2.Text ws.Cells(Lr, 4).Value = Me.TextBox3.Text End Sub

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

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

الموضوع صعب اوي للدرجادى ولا ايه اين هم عباقرة المنتدي الافاضل دا اسم الشيت

بجد الله ينور ياباشا زادك الله علما الشهابي الف شكر ليك ولكل من ساهم في مساعدى طائع وجزاكم كل خيرا

ياباشا بدون اى اسف انا ال بعتذر لو كان طلبي صعب شويه وتاعب حضرتك معايا

ياباشا دا تقريبا ملف ملوش اي علاقه بطلبي انا مش فاهم انا عايز البيانات علي اليوزر فورم حضرتك بعتلى ملف مش فيه يوزر فورم اصلا

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

دا ملف امنى يكون هناك حل كل المكلوب استخدام عمود الاسم للبحث بدلا من رقم المسلسل يعني عند اختيار الاسم يم جلب البيانات بتعه لليوزر فورم استخدام vlookup مع الفورم.rar

السلام عليكم ورحمة الله تعالي وبركاته ......... الاخوة الافاضل اساتذتي الكرام يوجد كود استدعاء بيانات من الشيت الى اليوزر فورم ولكن بيتم الاستدعاء برقم المسلسل اريد ان يكون الاستدعاء بالاسم وليس رقم المسلسل وعند تعديله للاسم بيحصل خطأ ارجو معرفة السبب الكود موجود اسفل الصورة ولكم منى تحياتى Private Sub ComboBox1_Change() Dim LR As Long Set ws = ThisWorkbook.Sheets("ورقة1") LR = Sheets("ورقة1").Cells(Cells.Rows.Count, "A").End(xlUp).Row Me.TextBox1.Value = Application.WorksheetFunction.VLookup(Val(ComboBox1.Value), ws.Range("a5:z" & LR), 2, 0) Me.TextBox2.Value = Application.WorksheetFunction.VLookup(Val(ComboBox1.Value), ws.Range("a5:z" & LR), 3, 0) Me.TextBox3.Value = Application.WorksheetFunction.VLookup(Val(ComboBox1.Value), ws.Range("a5:z" & LR), 4, 0) Me.TextBox4.Value = Application.WorksheetFunction.VLookup(Val(ComboBox1.Value), ws.Range("a5:z" & LR), 5, 0) End Sub مرفق ملف توضيحي اكثر ......... ولكم منى جزيل الشكر

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

انا بشكرك لاهتمامك ومحاولة مساعتى اخي الغالي واستاذي الفاضل ولكنى اتمنى ان يكون التعديل علي نفس الكود الموجود في النسخه الاصليه لتركيبه علي الملف الاصلي لان كل الشروط الموجوده مطلوبه تنفيذها بدقه وان الصفحات بها عدد توقيعات كل 25 صف يليه 3 صفوف متروكه للتوقيع ولهذا افضل تعديل الكود لانه يحتوى على كل الشروط واعمل به جييدا علي شيتت اخر ولكننى بسبب عدم خبرتى لا اعرف ان اعدل عليه لاستخدامه في هذا الشيت ايضا وجزاك الله كل خيرا لاهتمامك

الله ينور ياباشا بجد تسلم ايدك استاذي الغالي بجد انا شاكر ليك جدا مجهود اكثر من رائع جزاك الله كل خيرا وزادك الله علما تنفع به الناس لو امكن ان تساعدنيفي هذا الملف لو امكن ولك جزيل الشكر والتقدير

السلام عليكم ورحمة الله ايه مافيش حد بيرد عليا ليه الموضوع صعب اوى للدرجادي ؟؟؟؟

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

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

دا الملف الاصلي اتمنى تركيب الكود عليه وشكرا لكم جمع للورقه.rar

دا الملف الاصلي اتمنى تركيب الكود عليه وشكرا لكم جمع للورقه.rar

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

شكرا لاهتمامك استاذي انا بالفعل عملت مفتاه لتشغيل الماكرو ولكنه بيكون الجمع بردو في نفس الصف ممكن حضرتك تطبقه على ملف وتجرب بنفسك

السلام عليكم ورحمة الله

شكرا ليك استاذي الغالي بس الكود بيشتغل علي صف واحد لما ازود عدد البيانات بعد اضافه بيانات اخرى لا يتم جمعها

شكرا ليك اخى الغالي استاذ سليم حاصبيا عمل رائع ولكن انت حليت المشكله بنظام المعادلات انا عايز اشتغل بنظام الكود الموجود وليس الدوال وجزاك الله كل خير استاذي الفاضل ايه الموضوع صعب اوى ولا ايه ياجماعه اتمني حد يرد عليا من الاساتذه الاجلاء واكون شاكر لاساتذتتي الكرام

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

شكرا ليك اخى الغالي استاذ سليم حاصبيا عمل رائع ولكن انت حليت المشكله بنظام المعادلات انا عايز اشتغل بنظام الكود الموجود وليس الدوال وجزاك الله كل خير استاذي الفاضل فين اهل الخبره هل من مجيب ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟