احمد عمر شوقى قام بنشر مارس 15, 2022 مشاركة قام بنشر مارس 15, 2022 لدى مشروع بسيط و لكن هناك مشكلة و هى كالاتى : زر التعديل لا يعمل بشكل جيد على الرغم اننى قمت بالتأكد من الاكواد اتمنى منكم المساعدة فى حل هذه المشكلة .......و لكم منى جزيل الشكر و التقدير EQUIPM.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة محي الدين ابو البشر قام بنشر مارس 16, 2022 أفضل إجابة مشاركة قام بنشر مارس 16, 2022 If Sheets("ورقة1").Cells(Y, 1) = TextBox1.Text Then Exit For End If Next Y With Sheets("ورقة1") .Cells(Y, 2) = ComboBox1.Text .Cells(Y, 3) = TextBox2.Text .Cells(Y, 4) = TextBox3.Text .Cells(Y, 5) = TextBox4.Text .Cells(Y, 6) = TextBox5.Text .Cells(Y, 7) = TextBox6.Text .Cells(Y, 8) = TextBox7.Text .Cells(Y, 9) = TextBox8.Text End With جرب هذا التعديل على Private Sub CommandButton2_Click() 2 رابط هذا التعليق شارك More sharing options...
احمد عمر شوقى قام بنشر مارس 16, 2022 الكاتب مشاركة قام بنشر مارس 16, 2022 اولا اعتذر اخى محى الدين عن الخطأ فى اسمك و لك منى جزيل الشكر على اهتمامك و ثانيا لقد قمت بتجربة الكود و لكن للاسف لم يعمل و مازال الزر فى نفس الحالة رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر مارس 16, 2022 مشاركة قام بنشر مارس 16, 2022 حسناً استبدل Private Sub ListBox1_Click() بـ Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 1 رابط هذا التعليق شارك More sharing options...
احمد عمر شوقى قام بنشر مارس 16, 2022 الكاتب مشاركة قام بنشر مارس 16, 2022 شكرا جزيلا سيدى الفاضل على اهتمامك .....تم التعديل بنجاح و شكرا لك مرة اخرى و تحياتى لكل المشرفين و رواد المنتدى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان