السلام عليكم ورحمة الله وبركاته
اساتذتي الافاضل ...
لدي ملف ترحيل وبالكود شرط اذا كان العمود 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