المطلوب عدم تكرار اسم الصنف بشرط التاريخ

[نسورالجو]

السلام عليكم المطلوب يعني لو الصنف 1 تكرر مع التاريخ 01-07-2021 يمنع الترحيل لو اتغير التاريخ او الصنف يرحل

wor.xlsm

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

يمكنك استعمال هذا الكود في حدث الضغط على زر إدخال

Private Sub CommandButton1_Click()
Sheets(1).Activate
lrow = Range("e" & Rows.Count).End(xlUp).Row + 1
If WorksheetFunction.CountIfs(Range("D2:D" & lrow), ComboBox1.Value, Range("E2:E" & lrow), ComboBox2.Value) = 0 Then
Range("d" & lrow).Value = ComboBox1.Value
Range("E" & lrow).Value = ComboBox2.Value
ComboBox1.Value = ""
ComboBox2.Value = ""
Else
MsgBox "إدخال مكرر"
End If
End Sub

بالتوفيق

[نسورالجو]

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

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

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