مطلوب التعديل في كود تعديل البيانات

[نسورالجو]

السلام عليكم المطلوب التعديل لكود تعديل البيانات بشرطين التاريخ واسم الصنف  "ComboBox1" به اسم الصنف "ComboBox2" به التاريخ ، لانه توجد اصناف مكررة في نفس التاريخ

Private Sub CommandButton5_Click()
Dim ws As Worksheet
Set ws = Sheets("اصناف")
For Each F In ws.Range("c5:c5000")
If F = ComboBox1.Text Then
ws.Select
F.Select
Exit For
End If
Next F
ActiveCell.Value = ComboBox1.Value
ActiveCell.Offset(0, 4).Value = TextBox4
ActiveCell.Offset(0, 5).Value = TextBox5
ActiveCell.Offset(0, 6).Value = TextBox6
ActiveCell.Offset(0, 9).Value = TextBox7
ActiveCell.Offset(0, 10).Value = TextBox8
MsgBox "تم تعديل البيانات بنجاح"
End Sub

التاريخ يوجد في عمود  A5   والصنف في عمود C5

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

كان ينبغي تحديد موضع عمود التاريخ

على فرض ان اسم الصنف في العمود C والتاريخ في العمود D

Set ws = Sheets("اصناف")
For Each F In ws.Range("c5:c5000")
If F = ComboBox1.Text and F.Offset(0, 1) = ComboBox2.Text Then
ws.Select
F.Select
Exit For
End If
Next F
ActiveCell.Value = ComboBox1.Value
ActiveCell.Offset(0, 4).Value = TextBox4
ActiveCell.Offset(0, 5).Value = TextBox5
ActiveCell.Offset(0, 6).Value = TextBox6
ActiveCell.Offset(0, 9).Value = TextBox7
ActiveCell.Offset(0, 10).Value = TextBox8
MsgBox "تم تعديل البيانات بنجاح"
End Sub

بالتوفيق 

[نسورالجو]

التاريخ يوجد في عمود  A5   والصنف في عمود C5

 

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

الجزء الخاص بالتاريخ على افتراض انه في العمود D الذي يلي C بمقدار عمود 1 هو

F.Offset(0, 1) = ComboBox2.Text

ولتغييره للعمود A الذي يسبق C بمقدار 2

F.Offset(0, -2) = ComboBox2.Text

لذلك جرب الكود كاملا

Set ws = Sheets("اصناف")
For Each F In ws.Range("c5:c5000")
If F = ComboBox1.Text and F.Offset(0, -2) = ComboBox2.Text Then
ws.Select
F.Select
Exit For
End If
Next F
ActiveCell.Value = ComboBox1.Value
ActiveCell.Offset(0, 4).Value = TextBox4
ActiveCell.Offset(0, 5).Value = TextBox5
ActiveCell.Offset(0, 6).Value = TextBox6
ActiveCell.Offset(0, 9).Value = TextBox7
ActiveCell.Offset(0, 10).Value = TextBox8
MsgBox "تم تعديل البيانات بنجاح"
End Sub

وكان ينبغي أن تتوصل لها وحدك

بالتوفيق 

[نسورالجو]

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

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

جميعا بإذن الله