Süz ile Ayıklamak

[Ecstasy]

ÇOK UZUN VERİLER VAR ELİMDE BAÞKA KONU BAÞLIÐI AÇMAK İSTEMEDİM SÜZ İLE İLGİLİ OLDUÐU İÇİN.
BU VERİLERDEN DEÐİÞİK YERLERDE AYNI TANIMLI PARÇALAR VAR.BEN BU AYNI OLANLARIN HEPSİNİ SİLMEK İSTYİYORUM HEPSİNDEN BİRER TANE KALMASINI YANİ.
BUNU NASIL YAPABİLİRİM ACABA.
YARDIM BEKLİYORUM.
İYİ GÜNLER

 

[Levent Menteşoğlu]

Bu şekilde yardımcı olmak pek mümkün değil, lütfen bir örnek dosya ekleyin.

 

[Ecstasy]

Ã?RNEK GİBİ BİÃžİ AÞAÐIDADIR.

 

[Levent Menteşoğlu]

Ekteki dosyayı inceleyin.

 

[LEVTEPE]

aynı verileri ayıklamak

Sayın Ecstasy

Aynı olan verileri

Veri - Süz - Gelişmiş Süzgeç İle ayıklayabilirsiniz.

Eylem - Başka Bir Yer Kopyala olmalı ve Yalnızca benzersiz kayıtlar işaretlenmiş olmalı

Ã?rnek 1000 Kayıt içindir .Daha fazla kayıt için Liste Aralığı Ve Hedef Değiştirilmelidir.

 

[Ecstasy]

Sağolun Arkadaşlar yardımcı Olduğunuz için.işimi gördünüz..

iyi Çalışmalar.

 

[Ecstasy]

Sayın Leventm;

Sub mukerrer()
Columns(256).ClearContents
[d2:e65536].ClearContents
For a = 2 To [a65536].End(xlUp).Row
Cells(a, 256) = Cells(a, 1) & Cells(a, 2)
Next
For b = 2 To [a65536].End(xlUp).Row
If WorksheetFunction.CountIf(Range("IV2:IV" & b), Cells(b, 256)) = 1 Then
c = c + 1
Cells(c + 1, 4) = Cells(b, 1)
Cells(c + 1, 5) = Cells(b, 2)
End If
Next
Columns(256).ClearContents
End Sub

bunların açıklamasını yapmanız mümkün mü acaba?

 

[abas]

sayın levent acaba bu işlemi butona basbadan veriyi girer girmez yapamazmıyız ve bana sadece tekrarı olmayanlarla ve tekrarlanan verilerden 1 tane olması gerekiyor yardımlarınız için teşekkür edrim

 

[Ecstasy]

GÃ?RÜNÜM-ARAÇ ÇUBUKLARI-Ã?ZELLEÞTİR
ORADAN
MAKROLAR-Ã?ZEL DÜÐMEYİ AL.SAÐ TUÞ YAPIP BU MAKRO ATA DE.
OLAN MAKROYU BU DÜÐMEYE ATAYABİLİRSİN.
YADA KISAYOL TUÞUDA ATAYABİLİRSİN SANA BAÐLI
MUTLU GÜNLER