tek kayıt

[polis-53]

Merhaba arkadaşlar ekteki dosyada bir kişinin birden fazla kaydı var F sutunundaki rakamları bozmadan tek kayıt a nasıl düşürebiliriz yardımlarınızı bekliyorum kalın sağlıcakla

 

[Korhan Ayhan]

Merhaba,

Klasik döngü ile mükerrer kayıt ayıklama işlemini yaptığınızda istediğiniz sonucu alabilirsiniz.

Sayfanızın yedeğini alarak aşağıdaki kodu deneyiniz.

Option Explicit
 
Sub MÜKERRERLERİ_SİL()
    Dim X As Integer
    
    If MsgBox("Mükerrer kayıtlar silinecektir işlemi onaylıyor musunuz?", vbCritical + vbYesNo, "Dikkat") = vbNo Then Exit Sub
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    For X = Cells(Rows.Count, 1).End(3).Row To 2 Step -1
        If WorksheetFunction.CountIf(Range("A1:A" & X - 1), Cells(X, 1)) > 0 Then
            Rows(X).Delete
        End If
    Next
 
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[polis-53]

teşekkür ederim korhan bey