استفسار : هل من الممكن دمج شرطين لمنع التكرار

[مصطفى حسين]

السلام عليكم ورحمة الله وبركاته 

اساتذتي الافاضل ...

 

لدي ملف ترحيل وبالكود شرط اذا كان العمود A مطابق للاسم المرحل يظهر ان القيمة مكررة وأيضا على على العمود B 

ولكن كل شرط منفصل فاذا تطابقة القيمة في العمود A فيصبح مكرر دون النظر للعمود B

وايضا يطبق على العمود B فاذا اصبحت القيمة متطابقة فإنه مكرر دون الرجوع الى العمود A

 

 

فالسؤال هل من الممكن ان اجعله يبحث عن التطابق للعمودين وليس لعمود واحد  ؟

فاذا تطابقة قيمة العمود A لابد من تطابق قيمة Bليتم منع التكرار.

 

مرفق الكود

 

وشاكرا لكم الافادة والاستفادة الدائمة من خبراتكم 

 

 

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

 

Private Sub CommandButton1_Click()

Dim Lr As Long, Val1, Val2
With Sheets("ارشيف")
Lr = .Cells(Rows.Count, "B").End(xlUp).Row + 1
Val1 = Application.WorksheetFunction.CountIf(.Range("B2:B" & Lr), B1)
Val2 = Application.WorksheetFunction.CountIf(.Range("C2:C" & Lr), C1)
If Val1 = 1 Or Val2 = 1 Then
MsgBox "هذه القيمة مكررة", vbExclamation, "خطأ"
Exit Sub
End If

[أبو حنــــين]

السلام عليكم

جرب ان تغير هذا السطر

If Val1 = 1 Or Val2 = 1 Then

بهذا السطر

If Val1 = 1 And Val2 = 1 Then

ملاحظة

لم اجرب هذا جربه و اخبرني

[مصطفى حسين]

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

[سليم حاصبيا]

جرب التالي في الكود

If Val1> 1 or Val2  >1 Then

[مصطفى حسين]

أحسنت استاذنا الفاضل / سليم حاصبيا 

 

هذا هو المطلوب شاكرا لسعادتك وشاكرا لسعادة الاستاذ / ابوحنين 

 

وجعل الله ماقدمتموه في ميزان اعمالكم الصالحه .