اذهب الي المحتوي
أوفيسنا

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

نسورالجو

بواسطه نسورالجو
في منتدى الاكسيل Excel

 مشاركة
إذهب إلى أفضل إجابة Solved by أ / محمد صالح,

الردود الموصى بها

  • أفضل إجابة
أ / محمد صالح

أ / محمد صالح

قام بنشر
  • أفضل إجابة
قام بنشر

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

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

بالتوفيق

  • Like 3

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept