عدم تكرارالبيانات بناءاً على عدة شروط

[Shafik]

السلام عليكم 

اخواني احاول عمل معادلة لمنع التكرار باستخدام countifs 

بناءا على عمودين وعدة سطور ولكن تفشل بسبب السطور .

الملف هو جدول

كل سطر يحتوي على بيانات الدرس واسماء الطلاب 

المطلوب لو تكرمتم

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

بناءا على التالي 

عمود التاريخ date

عمود الوقت  time 

و٣ اعمدة للطلاب  students

جزاكم الله كل خير. 

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

Tech.xlsx

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

جرب هذا الملف صفحة "salim"

Sub FIND_DUP()
Dim I%, M%, REP As Range, COL As Collection
Dim My_rg As Range
Set COL = New Collection
Set My_rg = Range("B3").CurrentRegion
If My_rg.Rows.Count = 1 Then Exit Sub

Set My_rg = My_rg.Offset(1).Resize(My_rg.Rows.Count - 1)
My_rg.Interior.ColorIndex = xlNone

For I = 4 To My_rg.Rows.Count + 3
On Error Resume Next
  COL.Add I, Cells(I, 2).Value & "*" & Cells(I, 4).Value & "*" _
   & Cells(I, 8).Value & "*" & Cells(I, 9).Value & "*" _
   & Cells(I, 10).Value & "*"
If Err.Number <> 0 Then
      M = M + 1
     If REP Is Nothing Then
      Set REP = Cells(I, 2).Resize(, 9)
     Else
      Set REP = Union(REP, Cells(I, 2).Resize(, 9))
     End If
End If
  Err.Number = 0
 Next
If Not REP Is Nothing Then
  REP.Interior.ColorIndex = 6
End If
Set COL = Nothing: Set REP = Nothing
End Sub

الملف مرفق

SHAFik.xlsm

[Shafik]

اخي سليم الملف رائع ، ولكن انا خطأي لم اوضح انه يمكن زيادة اعدة الطلاب ، هل من الممكن ان توضح لي ماذا يحب ان اعدل بالمعادلة حتى تشمل عدد غير منتهي  او على الاقل ٣٠ عمود جديد للطلاب ؟ وجزاك الله كل خير 

Tech.xlsx