Mükerreri otomatik olarak tek kayıt görsün

[eminuslu]

Sevgili arkadaşlar Excele yazdığım isimlerden aynı olanları otomatik olarak tek kayıt görsün YANİ BUTONA TIKLAMADAN aynı isimde olan bilgilerden birisini otomatik olarak görüp diğerini silsin bu vesile ile tek kayıt yapılmış olsun bu konuda bana yardımcı olmak için gayret gösteren herkese sonsuz teşekkürlerimi sunarım dosyam ektedir

 

[hamitcan]

http://www.excel.web.tr/showthread.php?t=42864&highlight=tekrarlanan+silme
Arama yapın, daha çok örnek bulabilirsiniz.

 

[eminuslu]

Hamit bey size teşekkür ederim benim sorum butonla silmek değil yazarken otomatik olarak aynı adı gördüğünde silsin istiyorum

 

[tbulent]

Sn.eminuslu

Forum ustalarının daha önce eklemiş oldukları örneği ekliyorum. Umarım işinizi görür.

 

[1Al2Ver]

Merhaba,

Sayfanın kod'una ;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For b = [b65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("b1:b" & b), Cells(b, "b")) > 1 Then Rows(b).Delete
Next
End Sub

yazarak dener misiniz ?

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    For a = [B65536].End(3).Row To 1 Step -1
        If WorksheetFunction.CountIf(Range("B1:B" & a), Cells(a, "B")) > 1 Then Rows(a).Delete
    Next
End Sub

 

[eminuslu]

Cevap veren arkadaşlarım şimdiki örnek ve kodlar tam istediğim gibi sizlere minnettarım teşekkürler