مهند محسن

للرفع أكرمكم الله

السلام عليكم اساتذتى واحبائى الكرام ارجو التلطف والتكرم على ضبط كود الإضافة بالفورم بحيث يتم اضافة البيانات الى صفحات عديدة بمجرد تحديد الصفحة المفروض الترحيل اليها من الكمبوبوكس1 بداية من الخلية A17:l44 فالمشكلة تكمن ايضا عندما يتم الكتابة والإدخال بداية من التكست بوكس2 الى التكست بوكس 6 يبدو الأمر الطبيعى ولكن تظهر المشكلة عندما اكتب فى التكست بوكس7 الخاص بتاريخ الإصدار يقوم من جانبه بمحو وحذف كل البيانات المدخلة فى التكستات السابقة له فما هو الحل بارك الله فيكم وجزاكم الله كل خير Private Sub CommandButton2_Click() Set X = ActiveSheet If Me.ComboBox1.Value = "" Then MsgBox "ÚÝæÇ íÌÈ ÇÎÊÇÑ ÇáÔíÊ ÇáãÑÍá Çáíå ÇáÈíÇäÇÊ" Exit Sub End If Worksheets(Me.ComboBox1.Value).Activate Dim lastrow lastrow = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row lastrow = lastrow + 1 Cells(lastrow, 1) = Me.TextBox1.Value Cells(lastrow, 2) = Me.TextBox2.Value Cells(lastrow, 3) = Me.TextBox3.Value Cells(lastrow, 4) = Me.TextBox4.Value Cells(lastrow, 5) = Me.TextBox5.Value Cells(lastrow, 6) = Me.TextBox6.Value Cells(lastrow, 7) = Me.TextBox7.Value Cells(lastrow, 8) = Me.TextBox8.Value Cells(lastrow, 9) = Me.TextBox9.Value Cells(lastrow, 10) = Me.TextBox10.Value Cells(lastrow, 11) = Me.TextBox11.Value Cells(lastrow, 12) = Me.TextBox12.Value TextBox2.SetFocus End Sub Search 2.xlsm

احسنت استاذى الكريم بارك الله فيك

للرفع رجاءا

السلام عليكم اساتذتى واخوان الكرام ارجو التكرم على مساعدتى فى ضبط واصلاح كود التعديل فى الفورم ولكم جزيل الشكر Private Sub CommandButton1_Click() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets For Each f In ws.Range("a17:b100") If f = TextBox1.Text Then ws.Select f.Select Exit For End If Next f Next ws For Each ws In ThisWorkbook.Worksheets ActiveCell.Value = TextBox1.Value ActiveCell.Offset(0, 1).Value = TextBox2.Value ActiveCell.Offset(0, 2).Value = TextBox3.Value ActiveCell.Offset(0, 3).Value = TextBox4.Value ActiveCell.Offset(0, 4).Value = TextBox5.Value ActiveCell.Offset(0, 5).Value = TextBox6.Value ActiveCell.Offset(0, 6).Value = TextBox7.Value ActiveCell.Offset(0, 7).Value = TextBox8.Value ActiveCell.Offset(0, 8).Value = TextBox9.Value ActiveCell.Offset(0, 9).Value = TextBox10.Value ActiveCell.Offset(0, 10).Value = TextBox11.Value ActiveCell.Offset(0, 11).Value = TextBox12.Value Next ws MsgBox "Êã ÊÚÏíá ÇáÈíÇäÇÊ ÈäÌÇÍ" TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" TextBox4.Value = "" TextBox5.Value = "" TextBox6.Value = "" TextBox7.Value = "" TextBox8.Value = "" End Sub Search.xlsm

من فضلك ارفع ملف بما تريد وبين عليه طلباتك بالتفصيل

وعليكم السلام الكود يعمل معى بكل كفاءة دون اية مشاكل فيجب عليك وضعه فى حدث ThisWorkBook

نقريبا المطلوب ليس بالسهل او الهين وما الغرض من هذا ؟!!!!!

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

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

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

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

وعليكم السلام لابد من رفع ملف للعمل عليه فلا يمكن العمل على التخمين

أهلا بك اخى الكريم فى المنتدى دائما لا يمكن العمل بدون ملف فلا يمكن العمل على التخمين فاذا كنت تريد ان تكون المشاركة فعالة ومجدية فعليك برفع ملف وشرح بالتفصيل ما تريده

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

بارك الله فيك استاذى علي حل ممتاز الا يكفيك هذا الحل اخى الكريم ؟!!!!!!!!!!!

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

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

ممتاز بارك الله فيك وفى تقدم دائما ان شاء الله

ممتاز بارك الله فيك

ممتاز بارك الله فيك

ممتاز بارك الله فيك

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

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

عامة كل ملفات الإكسيل عندما اقوم بفتحها تظهر هذه الرسائل كما ترى 1.xlsm