ضبط كود زر التعديل

[احمد عمر شوقى]

لدى مشروع بسيط و لكن هناك مشكلة و هى كالاتى : زر التعديل لا يعمل بشكل جيد على الرغم اننى قمت بالتأكد من الاكواد 

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

EQUIPM.xlsm

[محي الدين ابو البشر]

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()

 

[احمد عمر شوقى]

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

[محي الدين ابو البشر]

حسناً

استبدل

Private Sub ListBox1_Click()

بـ 

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

 

[احمد عمر شوقى]

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