çift kayıtları belirleme

[devran]

Merhaba,
Excele kayıtlarımız farklı kullanıcılar tarafından girilmektedir. Mükerrerliği önelemek için yeni bir kontrol sheeti oluşturmak istiyorum. Bunda da H sütünuna kadar olan değerlerin(7 adet) 2 satırda aynı olması halinde uyarı versin. Benim verilerim 7000 satırlık. Bu veriden çift kayıtları belirlemede nasıl kısa bir yol bulabilirim.
Teşekkürler.

 

[hamitcan]

Linki inceleyin
http://www.excel.web.tr/forumdisplay.php?f=120

 

[Ayhan Ercan]

aşağıdaki kodu kendi dosyanıza göre uyarlayın..

Sub kontrol()
Set s1 = Sheets("sayfa1") ' verilerin olduğu sheet
Set s2 = Sheets("sayfa2") 'Kontrol Sheeti
say = Sheets("sayfa1").[a65536].End(3).Row
For i = 1 To say
If s1.Cells(i, 1) = s2.Cells(i, 1) Then
    If s1.Cells(i, 2) = s2.Cells(i, 2) Then
       If s1.Cells(i, 3) = s2.Cells(i, 3) Then
          If s1.Cells(i, 4) = s2.Cells(i, 4) Then
             If s1.Cells(i, 5) = s2.Cells(i, 5) Then
                If s1.Cells(i, 6) = s2.Cells(i, 6) Then
                  If s1.Cells(i, 7) = s2.Cells(i, 7) Then
                      If s1.Cells(i, 8) = s2.Cells(i, 8) Then
                            MsgBox i & " nolu satırda mükerrer kayıt var."
                            End If
                  End If
              End If
          End If
        End If
    End If
End If
End If
Next
End Sub