Mükerrer kayıtlar

[sunbrese]

arkadaşlar bu konuyla ilgili bütün linkleri inceledim,birçok örnek işlenmiş ama heralde acemiliğimden bana uyan kodu yapamadım. Benim istediğ şu bi sayfadaki isimleri karşılaştırıp diğer sayfaya mükerrer olan kayıtlardan yalnız birini aktarması. Ekleyeceğim dosyayla sorun daha iyi anlaşılacaktır sanırım. yardımlarınızı bekliyorum ve şimdiden yardımlarınız için teşekkür ederim.

 

[Ali]

Dosyanızın modül kısmına

Function Benzersiz(Aralik As Range, i As Integer)
Application.Volatile
Dim ciftolmayan As New Collection
For Each ce In Aralik
On Error Resume Next
ciftolmayan.Add ce, CStr(ce)
Next ce
If i > ciftolmayan.Count Then
Benzersiz = ""
Else
Benzersiz = ciftolmayan(i)
End If
End Function

fonksiyonu ekleyip. Benzersiz listeyi alacağınız kısıma

=Benzersiz(Eğitimler!$A$13:$AS$13;SATIR()) yazıp aşağı doğru çoğaltın.Eğitimler kısımda hazırladığınız sütun sayısı kadar bu listeyi çekerek uzatabilirsiniz.

 

[alpi]

tekrarlanan verilerin bulunduğu sutünu seçin

Veri/Filitre Uygula/Gelişmiş filitre sekmelerini tıkatın

açılan formda gerekli düzenlemeleri yapın ve tamamı tıklatın.

 

[Orion1]

Merhaba.
Sayın Üstadlarım cevap yazmış.
Bende makro ile bir düğmeye basarak benzersiz kayıtları H sütunun da listeleyen küçük bir makro çalışması yaptım.Bir inceleyin derim.
İyi çalışmalar.
--------------------------------------------------------
Listeleme BZ sütununa Kadar Uyarlandı.
Tekrardan indirip deneyiniz.Kolay gelsin.

 

[sunbrese]

merhaba
arkadaşların ilgisinden dolayı hepsine teşekkür ederim.
Sezar kardeşim gönderdiğin dosyada zannedersem Eğitimler sayfasında sadece "H" sütunundaki verilere bakıyor. Bende tamamına uygulayamadım. Kodu "A13:BZ150" aralığında düzelterek tekrar göndersen çok iyi olur.

 

[Orion1]

Merhaba.
BZ sütununa Kadar Listeleme yapacak şekilde uyarladım.
Sayfayada Bir Tanede Listbox Koydum.Listbox'a İsme Tıklayınca Dağa önceden Yazılmış kodlar gereği o kişinin bilgileri geliyor.
Umarım beğenirsiniz.
Dosyayı Tekrardan indirip bir deneyiniz.
İyi çalışmalar.

 

[sunbrese]

merhaba
sezar kardeşim tam istediğim gibi olmuş, emeğinize sağlık, hakkınızı helal edin.

 

[Orion1]

Rica ederim.
İyi çalışmalar dilerim.