مشكله في كود التعديل

[نسورالجو]

السلام عليكم عند اعمل تعديل في صف بشرط اسم الصنف الموجود في عمود I يعدل على اول مره نزلت فيها اسم الصنف لو مكرر

المطلوب عند التعديل يعمل Select على الصف كله حتى اتمكن من التعديل

Private Sub CommandButton2_Click()
 Dim wb As Workbook
 Dim ws As Worksheet
Set wb = ActiveWorkbook
Set ws = Sheets("مخازن")
For Each f In ws.Range("I3:I100000")
If f = TextBox5.Text Then
ws.Select
f.Select
Exit For
End If
Next f
ActiveCell.Value = TextBox5.Value
ActiveCell.Offset(0, -5).Value = TextBox1.Value
ActiveCell.Offset(0, -3).Value = ComboBox5.Value
ActiveCell.Offset(0, -2).Value = TextBox3.Value
ActiveCell.Offset(0, -1).Value = TextBox6.Value
ActiveCell.Offset(0, 3).Value = TextBox7.Value
ActiveCell.Offset(0, 4).Value = TextBox8.Value
ActiveCell.Offset(0, 5).Value = TextBox9.Value
ActiveCell.Offset(0, 6).Value = ComboBox3.Value
ActiveCell.Offset(0, 7).Value = ComboBox4.Value
End Sub

 

[أ / محمد صالح]

الكود الحالي يدور في حلقة في خلايا العمود I

فإذا وجد الاسم المطلوب يحدد خلية الاسم

ويعطي للخلايا المجاورة لها القيم الموجودة في النموذج

إذا كان اسم الصنف مكررا لأكثر من مرة فلا يجدي هذا الكود

وإذا كان هذا مطلوبك إمكانية التعديل على صفوف مكررة

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

ربما يفيدك هذا الموضوع 

بالتوفيق 

[نسورالجو]

شكرا استاذ محمد جزاك الله خيرا

[أ / محمد صالح]

الشكر لله الذي هدانا لهذا