Mükerrer Kayıt Bulma

[frtsngz]

Merhabalar,

3 sütun ve 10000 lerce satırdan olusan ve hergünde binlerce kayıt eklediğim excel dökümanımda 1. sütunda mükerrer kayıtlar çıkıyor. Ben onlar koşullu biçimlendirmeyle renklerini değiştirebiliyorum ancak satır sayısı 10000 lerce olduğundan teker teker aramak zorluk çıkartıyor.

Sorum şu ben kayıtlarımı alt alta hergün yapıştırdığımda farklı bir çalışma sayfasına ya da aynı sayfaya mükerrer kayıtları göstersin.Ekte 7 satırlık bir çalışma yaptım bunun 10000 lerce satırıyla hergün çalışıyorum.

Yardımcı olursanız sevinirim.

İyi Günler

 

[hamitcan]

Aşağıdaki kod işinizi görür zannedersem.

Sub MUK()
[H:J].Clear
son = Application.CountA(Columns(1))

For t = 1 To son
    say = WorksheetFunction.CountIf(Columns(1), Cells(t, 1))
If say > 1 Then
    k = k + 1
    Cells(k, 8) = Cells(t, 1)
    Cells(k, 9) = Cells(t, 2)
    Cells(k, 10) = Cells(t, 3)
End If
Next
[H:J].Sort KEY1:=[H1]
End Sub

 

[mesudiye_052]

örnek çalışma

 

[frtsngz]

Öncelikle Tşk ederim Sn hamitcan ve Sn mesudiye_052

Sn hamitcan ın verdiği kodları yazdığımda 15000 satırda 3 dk da işlem yapıyor işime yaradığını söyleyebilirm.

Sn mesudiye_052 verdiğiniz örnek çalışmada ki 10 satırın altına bir veri yazdığımda 3-5 sn alıyor ben 15000 ve üstü veriyle çalıştığım için biraz yoğun bir formul olmuş. Tşk ederim yine de ilgilendiğiniz için.

İyi Günler,
:hey:

 

[harmehero]

hamitcan
verdiğin bu formül sadece frtsngz'ın sorununu mu çözer? Benim de buna benzer bir derdim var, belirli bir sütunun tüm satırlarında eş verilere sahip tüm hücreleri aynı renkle işaretlemesini veya ayrı bir sayfaya alt alta listelemesini istiyorum. (Ekteki örnek gibi)
Nasıl yapabilirim?

 

[harmehero]

işime yarıyor peki aynı sayfa içinde değil de ayrı bir sayfaya aynı şekilde listeletebilir miyim?

 

[hamitcan]

sütunun tüm satırlarında eş verilere sahip tüm hücreleri aynı renkle işaretlemesini

Bu sorunuzla ilgili daha önce cevaplanmış bir okadar çok çözüm var ki, ben birini veriyorum siz diğerlerini arayarak bulabilirsiniz.

http://www.excel.web.tr/viewtopic.php?t=15896

ayrı bir sayfaya alt alta listelemesini istiyorum.

Aşağıdaki kod işinizi görür sanırım.

Sub MUK()
Sayfa2.[a:c].Clear
son = Application.CountA(Columns(1))

For t = 1 To son
    say = WorksheetFunction.CountIf(Columns(1), Cells(t, 1))
    say2 = WorksheetFunction.CountIf(Sayfa2.Columns(1), Cells(t, 1))
    
If say > 1 And say2 = 0 Then
    k = k + 1
    Sayfa2.Cells(k, 1) = Cells(t, 1)
End If
Next
Sayfa2.[a:c].Sort KEY1:=Sayfa2.[a1]
End Sub

 

[harmehero]

hamitcan çok teşekkür ederim, mesudiye_052'nin koşullu biçimlendirme ile mükerrer işaretleme örneği tam da benim aradığım gibi bir çözüm. k::
Senin verdiğin kod da listeleme için çok işe yarıyor.
Her ikinize de çoook teşekkürler. :icelim:

 

[harmehero]

BU FORMÜLÜ KULLANMAK İSTEYEN DİĞER ARKADAŞLARA UYARI:

mesudiye_052'nin
http://www.excel.web.tr/viewtopic.php?t=15896 iletisinde verdiği örnekte koşul ve ölçütler arasında ";" noktalı virgül yazılmış doğrusu "," virgül olacak zaten koşullu biçimlendirmeye girerseniz göreceksiniz.

Bir de daha ayrıntılı bir anlatım isterseniz Microsoft'un kendi web sitesinde de buna benzer örnekli bir anlatım mevcut:

http://office.microsoft.com/tr-tr/assistance/HA011366161055.aspx

 

[Ali]

Sn harmehero, Mükerrer kayıt için daha önce foruma eklediğim bir örnek çalışma vardı. Farklı uygulamalarınıda görebilirsiniz

http://www.excel.web.tr/viewtopic.php?t=18767

 

[ercanbayram]

Mükerre kayıt bulma

Arkadaşlar bu konunun bir benzeri bana lazım. A1:A100 ARASINDAKİ hücrelerde aynı metin olan kayıtları görebilmem için kod arıyorum. Bilgisi olan arkadaşlardan yardım istiyorum....

 

[secilhan]

bu konuda bende yardım istiyorum

benim sorunumda bu başlık altında anlatılmış ancak anlatılanlardan pek bir şey anlamadım. tekrar yoracağım için kusura bakmayın..

ekli dosyada görüldüğü gibi bir liste oluşturuyorum, bunu yaparken web sayfasından içerikleri kopyala yapıştır ile alıyorum. liste 40.000 veriyi kapsayacak ancak liste uzun olduğu için satırdaki bilgilerin hepsi aynı olduğunda excel bana ya bir ayıklama yaparsa ya da bir uyarı verirse daha iyi olacak. liste başında tekrar eden bilgileri farkedebiliyorum ancak liste uzadıkça bunu tespit etmem zor olacak. Bu uyarı kopyala+yapıştır yaparken gelirse daha da iyi olur.

şimdiden yardımlarınız için teşekkürler...

 

[hsayar]

Sn. Ali linkiniz çalışmıyor.
Arkadaşlar benimde benzer sorunum oldu...

yaklaşık 1500 kişiden oluşan telefon rehberim var, fakat aynı aileden bazı kişiler ortak telefon numarası vermişler. Bilgisayardan SMS gönderen programımız ise bir numarayı bir kere kabul ediyor ve hatayı söylemiyor. yardımlarınız için teşekkürler



A sütununda isimler var b sütununda telefon numararları

ali 0126 5727000
veli 0126 5727000
ahmet 0126 8854250
vs....

mukerrer kontrol makrosu çalıştığında
mükerrer telefon numaralarını yeni çalışma sayfasının a sütununa telefon numararlarını, b sütununa kimler tarafından kullanıldığını yazacak...
yani

0126 5727000 Ali, veli şeklinde

yardımcı olursanız sevinirim.

 

[baydeniro]

Eski linkler silinmiş. Bu konuda uygulamalı, aktif bir örnek olsa çok iyi olurdu.

 

[isteobenim]

Merhaba,

Forumda mükerrer sil ve aynı olan satırları sil çözümleri mevcut ancak benim şöyle bir çözüme ihtiyacım bulunmaktadır,
Eğer sütundaki mükerrer sayısı tek rakam ise, mükerrerlerden 1 tanesi kalarak diğerleri silinecek, mükerrer sayısı çift rakam ise mükerrer olan tüm değerler silinecek, şeklinde,
Talebim ek dökümanda da belirtilmiştir.

İyi Çalışmalar,

 

[isteobenim]

Merhaba,

Yardımcı olabilirmisiniz, istediğim şekli ile bir uygulama mümkünmüdür,

 

[isteobenim]

Merhaba,

Yardımcı olabilirmisiniz, istediğim şekli ile bir uygulama mümkünmüdür,

 

[isteobenim]

................