listede birden fazla olan aynı satırları teke indirmek

[aksakkurbaga]

merhaba arkadaşlar... öncelikle sayfadaki bilgiler ve katılımınız takdire değer ... benim bir sorunum var ve makroyla çözebileceğimi düşünüyorum ... başlıktan da anlaşılacağı gibi elimde excel formatında çok büyük bir liste var ve kendini tekrar eden birden fazla satır var ben birden fazla olanları tek e indirmek istiyorum.... bunu makro ile nasıl halledebilirim... tabi makro olması da şart değil daha pratik yöntemler varsa ne ala

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

 

[Levent Menteşoğlu]

Orijinal dosyanızın küçük bir örneğini eklermisiniz.

 

[aksakkurbaga]

günaydın .... dosyanın bir örneği yok fakat durumu anlatırsam örnek bi dosyaya gerek kalmayacak ssanırım... sadece maillerden oluşmuş 5000 den fazla ve alt alta hücrelere sıralanmış bir liste düşünün... ben bu listedeki maillerin birden fazla olanlarını tek e indirmek istiyorum .... örneğin a1 den başlıyor ve a5000 e kadar uzayan maillerden listede 5 tane olan bir maili 1 e indiricem...

açıkcası excel konusunda pek iyi değilim ve bu foruma ilk mesajım

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

 

[danersin]

Bunun için makroya ihtiyacınız yok.

Listeyi seçin veri>süz>gelişmiş süzgeç menüsünde

başka yere kopyala kutusuna işaret,
Hedef hücreyi belirleyin.
Yalnızca benzersiz kayıtlar hücresine işaret. tamam.

umarım o 5000 mail içinde benim maillerim yoktur. nedense spam kokusu aldım.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Mükerrer olanları ayıklayıp sonucu sayfa2 ye yazacaktır.

[vb:1:d32c3e6408]Sub mukerrerayikla()
For a = 1 To [a65536].End(3).Row
If WorksheetFunction.CountIf(Range("a1:a" & a), Cells(a, 1)) = 1 Then
c = c + 1
Sheets("sayfa2").Cells(c, 1) = Cells(a, 1)
End If
Next
End Sub
[/vb:1:d32c3e6408]

 

[aksakkurbaga]

çok saol levent beni büyük bir dertten kurtardın üstelik çabucak ...

iyi günler dilerim

 

[MimRa]

Merhaba
Konyla alakası uzaktan biraz ama yeni bir başlık açıp topic kirliliği yaratmak istemedim. Þirketimizin çalıştığı firmaların bir listesini hazırladım excel'de. ithalat yapanlar bir sayfada, ihracat yapanlar bir sayfada, her ikisini de yapanlar bir sayfada, cidosuna göre, sektörüne göre ... vb.

Þimdi bu firmalardan her sayfada tekrar edenleri verdiğiniz makroyla temizleyip patrona temiz bir liste sunmam gerekiyor. Sdrun şu ki makro nedir nasıl kullanılır bilmiyorum...

Yardımcı olabilirseniz çok sevinirim... Teşekkürler.

 

[Levent Menteşoğlu]

Dosyanızın kısaltılmış bir örneğini eklermisiniz.

 

[MimRa]

Merhaba
Ekte ki örneğe birkaç satır ekledim. Bu şekilde tahminen 350.000 civarında firma bilgisi mevcut. Bunları temizlediğimde ise net rakam 250.000 civarında olması gerekiyor...

İlginiz için teşekkürler...

 

[Levent Menteşoğlu]

Dosyanızda sadece sheet1 de veri var, bu verilerin incelenmesi hangi sütuna göre yapılacak. Yani mükerrer kayıtlar hangi sütunda?

 

[Kemal Demir]

Sn Levent Olaya cozum bulacaktır.Muhakkak ama sole bir onerım var.

Misal B kolonu mukerre baz alınacak sa.

1.Ã?ncelikle B kolonuna göre sortlanırak
2.ilave edilen bir kolona ise su formul yazılabilir, diye dusundum

=if(b1=b2;"tekrar";"farklı")
=eğer((b1=b2;"tekrar";"farklı")


3.sorgu ıkı kolon ıcın yapılacaksa ikinci klon atıyorum C ise

=if(and(b1=b2;c1=c2);"tekrar";"farklı")
=eğer(ve(b1=b2;c1=c2);"tekrar";"farklı")


***sonuc**
tekrar kısımları cıkarır veyahut silersen datan içerisinde mukerrer kayıt kalmaycaktır.

Umarım yardımcı olmusumdur.

 

[MimRa]

örnekte gördüğünüz formatta 350.000 firma var. bir bölümü farklı bir dosyada. aynı dosya içerisinde birkaç sayfa olanlar var. hepsini tek sayfada birleştirip firma ismi tekrar edenleri çıkarmam gerekiyor. pazartesi sabahı masamda olsun dedi patron. tek tek temizlersem tüm hafta sonum mahvolacak...

 

[danersin]

Sn. Mimra sizin için önemli olan işi çözmekse (makrosunu öğrenmek değilse) neden benim önerdiğim yolu denemiyorsunuz.


Listeyi seçin veri>süz>gelişmiş süzgeç menüsünde
başka yere kopyala kutusuna işaret,
Hedef hücreyi belirleyin.
Yalnızca benzersiz kayıtlar hücresine işaret. tamam.


Sizin verileriniz 3 ayrı sayfada olabilir ama ilk olarak muhakkak dosyanızın yedek/lerini aldıktan sonra bu sayfalardaki listeleri alt alta kopyalayın (excel satırlarına sığdığı kadarını) sonra yukarıdaki işlemleri yapın. sizin 350.000 satırınız varsa bu işi 5-6 defa yapacaksınız demek. ama hepsi hepsi 3-4 dkka alır ayıklamak tümünün.

 

[MimRa]

Teşekkürler ilginiz için.
Anlayamamıştım sizin yazdığınız cevabı. Þimdi tekrar okudum ve sorunu çözdüm.

Tekrar teşekkürler.

 

[omerceri]

gelişmiş süzgeç yardımı ve makrolarla uğraşırken mesele çözülmüş.
bir örnek hazırlamıştım ilgilenenlere

 

[necmi2085]

Merhaba
Çalışma dosyasında sayfa 1 de tüm liste var sayfa 2 de ise sayfa 1 de olan mükerrer numaralar var
Sayfa 2 de olan numaraları sayfa 1 de görmek istiyorum .
yardım için teşekkürler.

 

[kurtibo]

Aşağıdaki kodu deneyin. Mükerrer olanları ayıklayıp sonucu sayfa2 ye yazacaktır.

[vb:1:d32c3e6408]Sub mukerrerayikla()
For a = 1 To [a65536].End(3).Row
If WorksheetFunction.CountIf(Range("a1:a" & a), Cells(a, 1)) = 1 Then
c = c + 1
Sheets("sayfa2").Cells(c, 1) = Cells(a, 1)
End If
Next
End Sub
[/vb:1:d32c3e6408]

Merhaba Levent hocam;

Bu formulu sutun olarak A dan G ye kadar genisletmemiz mumkun olur mu ? Nasil yapabilirim?

 

[pitchoute]

Merhaba Levent hocam;

Bu formulu sutun olarak A dan G ye kadar genisletmemiz mumkun olur mu ? Nasil yapabilirim?

Merhaba,

Sub MukerrerAyiklaAG()
    Dim a As Long
    Dim c As Long
    Dim sutun As Integer
    
    Sheets("Sayfa2").Cells.ClearContents
    
    For sutun = 1 To 7
        c = 0
        
        For a = 1 To Cells(Rows.Count, sutun).End(xlUp).Row
            If WorksheetFunction.CountIf(Range(Cells(1, sutun), Cells(a, sutun)), Cells(a, sutun)) = 1 Then
                c = c + 1
                Sheets("Sayfa2").Cells(c, sutun) = Cells(a, sutun)
            End If
        Next a
    Next sutun
End Sub