aynı numaraları silmek

[inowjoin]

merhabalar
hazırladığım bir dosyada excelde bir sutunda sıralanan 1000 tane numara var ve toplu kopyalama yapıyor elimizdeki kodlar toplu kopyalamada aynı numaraları girildiğinde uyarmıyor
benim istediğim toplu numara girildiğinde macro ile butona tıkladığımda aynı numaralar silinip boş kalan hücrelerin otomatik dolması
bu mümkünmü?
bi örnek gönderdim

 

[Ferhat Pazarçevirdi]

Aşağıdaki kod, örneğinize uygun olarak hazırlanmıştır. Bir modül sayfasında kopyalayarak çalıştırınız.

Sub AyniSil()
Set sh = Sheets("Sayfa1")
son = sh.Cells(65536, 2).End(xlUp).Row
For i = 2 To son
 Set rg = Range("B2:B" & i)
    x = Application.WorksheetFunction.CountIf(rg, sh.Cells(i, 2))
    If x <> 1 Then: sh.Cells(i, 2).EntireRow.ClearContents
 Set rg = Nothing
Next i
sh.Range("B2:B" & son).Sort Key1:=Range("B2")
Set sh = Nothing
End Sub

 

[inowjoin]

orjinal dosyayı gönderdim

aslında tamam gibi fakat a c d gibi sutunlarıda siliyor ve boş bırakıyor en azından alttaki değeri alma gibi birşey olabilirmi

orjinal dosyam ektedir

 

[tahsinanarat]

Ekli dosyanızda biraz düzenleme yaptım

Umarım istediğiniz gibi olmuştur, b sutunundaki mükerrer kayıtlardan bir tane birakmak şartıyla diğerlerini silip, a sutunundaki sıra numarasını otomatik olarak yeniden düzenliyor, Kolay gelsin.

 

[inowjoin]

evet güzel olmuş elinize sağlık diğer sayfa için uyarlamaya çalıştım düzenle macrosundan fakat exceli kilitledi çalışmadı. sürekli hazır yazıp duruyor ve exceli kilitliyor. aynı işlerimi diğer sayfa içinde yapabilirmisiniz Teşekkürler

Düzeltme: Kilitlenme olayı derlemeden kaynaklanıyormuş yaklaşık 10 dk sürüyor ve 25000 satırı çözümlüyor bunun dışında sorunsuz çalışıyor tekrar teşekkürler

 

[tahsinanarat]

1.Sayfada düzenlendi

her iki sayfada düzenlendi, dosya adı (telefon numaralar2) değiştiğinde, makro içeriğindeki dosya isimlerini de değiştirmeyi unutmayınız. Kolay gelsin