Aynı veriyi içeren kutucukların bulunduğu satırları silmek

[conan_276]

Merhaba. Aynı veriyi içeren kutucukların bulunduğu satırlardan 5 tane satır olanları silmek için ne yapmalıyım. Daha açık anlatacak olursam bilgisayarda bir liste var ve bir isimden bikaç tane satırda var.İsimler aynı sütunda.Bi isimden 5 tane ve daha az sayıda olanları silecem.Çok sayıda olanlar kalacak. Yardımlarınız için şimdiden teşekkür ederim.

 

[Ömer]

Merhaba. Aynı veriyi içeren kutucukların bulunduğu satırlardan 5 tane satır olanları silmek için ne yapmalıyım. Daha açık anlatacak olursam bilgisayarda bir liste var ve bir isimden bikaç tane satırda var.İsimler aynı sütunda.Bi isimden 5 tane ve daha az sayıda olanları silecem.Çok sayıda olanlar kalacak. Yardımlarınız için şimdiden teşekkür ederim.

Merhaba,

Bu şekilde deneyin. Veriler A sütununda düşünülmüştür.

Sub EksikOlaniSil()
 
    Dim i As Long, Wf As WorksheetFunction, son As Long
    
    Set Wf = WorksheetFunction
    son = Cells(Rows.Count, "A").End(xlUp).Row
    
    Application.ScreenUpdating = False
    
    For i = son To 2 Step -1
        If Wf.CountIf(Range("A2:A" & son), Cells(i, "A")) < 6 Then
            Rows(i).Delete
        End If
    Next i
    
    Application.ScreenUpdating = True
        
End Sub

.

 

[kayserciyes]

iyi geceler ömer hocam