satırda bulunan tekrar eden kodları ile ilişiktekilerini silmek

[ozlem.cg]

Merhaba
3000 kalemlik bir listem var. Bu listemde bir sütünda bulunan kodların tekrar edenlerin silinmesini istiyorum. Ekte örn. yolluyorum. Yardımınız için teşekkürler.

 

[Orion1]

Dosyanız ekte.

Sub mukerrer_sil()
If MsgBox("Mükerrer kod kayıtlarını silmek istiyormusunuz?", vbYesNo, "MÜKERRER SİLME") = vbNo Then Exit Sub
Application.ScreenUpdating = False
For i = Cells(65536, "B").End(xlUp).Row To 2 Step -1
    If WorksheetFunction.CountIf(Range("B2:B65536"), Cells(i, "B").Value) > 1 Then
        Range("A" & i & ":F" & i).Delete (xlUp)
    End If
Next i
Application.ScreenUpdating = True
MsgBox "Mükerrer kayıtlar silinmiştir..!!", vbOKCancel + vbInformation, "MÜKERRERLER SİLİNDİ"
End Sub

 

[ozlem.cg]

teşekkür ederim ama ben bu şekilde uygulamayı bilmiyorum. Bana formül yöntemiyle yardımcı olursanız sevinirim.

 

[Orion1]

Formülle satır silinmez ki !?

 

[ozlem.cg]

Teşşekkür ederim. Makroyu bilmediğim için formülle oluyorsa formül demiştim ama hazırladığınız tabloya bilgileri kopylayıncada sorunum çözüldü Keşke makroyu bilebilseydim.
Tekrar teşekkürler.

 

[Necdet]

Merhaba,

Formülle çift olanlar bulunup Süzdürerek kayıtlar silinebilir. Biraz uzun yöntemdir ama makro bilmeyince işe yarar.

G2 :

=EĞER(EĞERSAY($B$2:B2;B2)>1;"Sil";"")
=IF(COUNTIF($B$2:B2;B2)>1;"Sil";"")

 

[ozlem.cg]

Süpersiniz ya