Soru Mükerrer Kayıt Silme

[Erhan Köseoğlu]

Ekli belgede
Öğrencilerin okudukları kitap bilgisi bulunmakta.
Bazı öğrenci kayıtları mükerrer olabiliyor, bu mükerrer kayıtların silinmesini istiyorum.
Örneğin, belgedeki ilk 3 kayıt aynı öğrenciye ait, ve aynı kitap bilgileri girilmiş. 2. ve 3. satırdaki mükerrer kayıtların silinmesine ihtiyacım var.
(Aynı kitabı okuyan başka öğrenciler de olacağından Yinelenenleri Kaldır işlevi ile yapamadım.)

 

[askm]

İstediğiniz aşağıdaki kodlar ile oluyor mu. B ve C sütunları aynı ise mükerrer olarak değerlendiriyor.

Sub ASKM_Mükerrer_Kayıt_Silme()
Dim son As Long
son = Range("A" & Rows.Count).End(3).Row
Application.ScreenUpdating = False
For i = son To 2 Step -1
    say = WorksheetFunction.CountIfs(Range("B2:B" & i), Cells(i, 2), Range("C2:C" & i), Cells(i, 3))
    If say > 1 Then
        Rows(i).Delete
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub

 

[halit3]

Alternatif kod

Sub Sil()
Application.ScreenUpdating = False

son = Cells(Rows.Count, "b").End(3).Row
Range("a2:ı" & son).Interior.ColorIndex = xlNone
ReDim ara1(son): ReDim ara2(son): ReDim ara3(son)

For t = 2 To son
ara1(t) = Cells(t, "b") & Cells(t, "c")
ara2(t) = 1
ara3(t) = 2
Next

For i = 2 To son
For j = 2 To son
bulunan = Cells(j, "b") & Cells(j, "c")

If ara2(j) = 1 Then
If ara1(i) = bulunan Then
say = say + 1
If say > 1 Then
ara2(j) = 0

Cells(j, "j") = say
ara3(j) = 0
Range(Cells(j, "a"), Cells(j, "ı")).Interior.ColorIndex = 40
Range(Cells(i, "a"), Cells(i, "ı")).Interior.ColorIndex = 40

End If
End If
End If

Next j
say = 0
Next i


For k = son To 2 Step -1
If ara3(k) = 0 Then
Rows(k).Delete Shift:=xlUp
End If
Next

Application.ScreenUpdating = True
MsgBox "işlem tamam"
End Sub

 

[Erhan Köseoğlu]

İlginiz için teşekkür ederim, verdiğiniz kodlarla silme işlemi gerçekleşiyor.
Aynı belgede F sütünunda tarih, H sütununda da kitapların sayfa sayısı bulunmakta. Aylık olarak öğrencilerin okudukları kitap sayısı ve her öğrencinin okuduğu toplam sayfa sayısını öğrenebilir miyim?

 

[Korhan Ayhan]

Özet tablo kullanarak hızlı analizler yapabilirsiniz.

EKLE menüsünden ulaşabilirsiniz.