Mükerrer Kayıtlar

[deniz erkaya]

Selam ,
aynı sütunda binlerce müşteri numarası kaydım var ve bunlardan birçoğu bir ya da birden fazla yerde tekrarlanmış.
Ben mükerrer olan bu kayıtların farklı bir sütunda kopyalanarak
" unique " numara şeklinde görüntülenmesi hakkında yardım rica ediyorum.
Yöntem , macro veya formül vs. olabilir.

 

[abazya]

Bu topiği incelermisin
http://www.excel.web.tr/viewtopic.php?t=3801&highlight=m%FCkerrer+kay%FDtlar

 

[deniz erkaya]

Sevgili "abazya" ,

şirket güvenlik uygulamaları sebebi ile eklş dosyayı ne görüntleyebiliyor , nede indirebiliyorum.
Başka bir yöntem ile çözüme ulaşmak mümkün ise ok. , aksi halde ilgine teşekkürler.

 

[Levent Menteşoğlu]

Mükerre kayıtlarınız hangi sütundadır? ayrıca mükerrer olan kayıtların yanınamı not düşülmesini istiyorsunuz. Bunları belirtirseniz size makrolu bir çözüm önerebiliriz.

 

[deniz erkaya]

örnek dosyayı gönderiyorum.
Bir butona atatığımız macro ile ;
sarı sütunda ( N sütunu ) yer alan mükerrer müşteri numaralarına ait tüm kayıtların tıpkı "filter" gibi aynı yerde filitrelenmesini sağlayabilir miyiz?
"advanced filter" da yer alan " unique records only " fonksiyonunun tam tersi gibi.
Ã?nceki isteğimden farklı oldu ama tam aradığım bu.

çok teşekkürler ,

 

[Levent Menteşoğlu]

Sorunuzdan anladığım kadarı ile bir örnek dosya hazırladım. Dosya ekleme aktif olduğunda ekleyeceğim.

 

[Levent Menteşoğlu]

Dosya ektedir.

 

[deniz erkaya]

sayın leventm,
dosya ekleyebilmeme rağmen şirketin güvenlik uygulaması sebebi ile dosya indiremiyorum.
cevap uygun boyutlarda ise forum'a yazarsanız çok sevinirim.

teşekkürler ,

 

[Levent Menteşoğlu]

Sözle anlatmak zor ama ifade etmeye çalışayım.

Ã?ncelikle tablonuzun bulunduğu sayfanızın birinci satırını boş bırakın, tablo başlıklar dahil 2.satırdan başlasın. Sonra birinci satıra iki adet buton yerleştirin. Birinci butona aşağıdaki kodu bağlayın.

[vb:1:cd9ccfb1e5]Public sonsat
Sub listele()
sonsat = Cells(65536, 1).End(xlUp).Row
Range("A3:Q" & sonsat).Sort key1:=[n2]
For a = 3 To sonsat
If WorksheetFunction.CountIf(Range("N3:N65536"), Cells(a, 14)) = 1 Then Rows(a).EntireRow.Hidden = True
Next
End Sub[/vb:1:cd9ccfb1e5]

ikinci butonada aşağıdaki kodu bağlayın.

[vb:1:cd9ccfb1e5]Sub geri()
Rows("3:" & sonsat).EntireRow.Hidden = False
End Sub
[/vb:1:cd9ccfb1e5]

 

[deniz erkaya]

çok teşekkürler leventm,
sheet'in VB'sine kodları insert'leyip butonlara atadım , çok güzel çalıştı.
Ancak 50 - 60 binlik satırları işlemesi baya uzun olabiliyor galiba , herhalde bu sorunu data aralığını daha kısa tutarak halletmeliyiz.

tekrar teşekkürler ,

 

[Levent Menteşoğlu]

sorununuzu çözdüğüne sevindim. 50-60 bin satırlık bir tarama çok zaman alacaktır bu doğru, bunun için döngüsüz bir yol düşünmek gerekir, belki farklı önerilerde çıkabilir.