Çift kayıtları silmek

[bosweer]

Merhaba arkadaşlar,

Bir konuda yardımınıza ihtiyacım var. Bilgisi olan arkadaşlardan çözümü paylaşmasını rica edeceğim.

Çift olan kayıtları silmek istiyorum.Ancak çiftlerin içinde sileceğini belirtecek bir komut gerekiyor sanırım.

örneğin;
adı soyadı kart
serkan xxx var
serkan xxx yok
aslı yyy yok
aslı yyy var
gökhan aaa yok
gökhan aaa yok

yukarıdaki adı soyadı çift olan kayıtlardan kart seçeneği var olanlar kalsın, yok olanlar silinsin, adı soyadı çift olan kart seçeneğinden ikisi de yok olanlardan da 1 tanesi silinsin istiyorum. Ben veri sekmesinden yinelenenleri kaldır dediğimde kart seçeneği var olan kayıtlardan da silebiliyor.

Yardımlarınızı rica ediyoum.

 

[excel41]

tablonuzu gönderin

 

[Necdet]

Merhaba,

Bilgilerinizden ofis 2007 kullandığınız anlaşılıyor.
2003 ten sonraki tüm ofislerde çift kayıtları silme menüsü geldi.
Veri sekmesinde Yinelenenleri kaldır'ı kullanabilirsiniz.
Bunun için fonksiyon ya da kod yazmaya gerek yok.

Kolay gelsin.

 

[bosweer]

Cevaplarınız için çok teşekkür ederim.
Ancak veri sekmesinden yinelenenleri kaldır dediğimde kart seçeneğinde var olanı silip kart seçeneğindeki yok olanı bırakıyor bazı kayıtlarda.

Örnek olması için bir dosya gönderiyorum.

Teşekkürler

 

[Necdet]

Merhaba,

Dosyanızı No ve Kart sütununa göre A-Z olarak sıraladığımda yinelenenleri kaldır da sadece No ya göre işlem yaptır dediğimde, sizin varlar kalıyor yoklar siliniyor.

 

[bosweer]

Teşekkürler.

 

[orgatu]

özdeyişi beyendim.. ilgi..

 

[niles123]

Merhaba, benim excelde 7000 kadar veriden oluşan ancak har ay üzerine eklenecek yani yıllık ort 14000 adet olan verilerim var ben bunların 6 sütunu çekmek istiyorum nasıl bir makro yazabilirim ?

 

[orgatu]

Bu kodlari denedim ancak, ctrl+c ve ctrl +v yaparak kopyalanan veri satirlarinin cift olan kayitlarini sildiren makro yu bulamadim. Versiyonum 97 2003.

 

[Korhan Ayhan]

Aşağıdaki kodu sayfanızın kod bölümüne uygulayın.

Verileri kopyala yapıştır yaptıktan sonra mükerrer kayıtları temizler.

İşlem "A" sütunundaki gerçekleşir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim X As Long
    For X = Cells(Rows.Count, 1).End(3).Row To 1 Step -1
        If WorksheetFunction.CountIf(Range("A:A"), Cells(X, 1)) > 1 Then
            Cells(X, 1).Delete xlUp
        End If
    Next
End Sub

 

[orgatu]

korhan bey bu makroyu kullanıyorum ama sizin dediğiniz gibi a sütünunda işlem yapıyor.2007 deki gibi tüm satırı taramıyor, benzersiz kayıtlar için satırları karşılaştıracak, hem sayı hem metin olan değerleri.aynı olan satırları tek satıra indirecek.

 

[Korhan Ayhan]

Bir örnek dosya eklerseniz daha iyi sonuç üretebiliriz.

 

[orgatu]

w 1 y 3 benzer satırlar teke düşürülecek
a 3 4 i
w 1 y 3
f 3 4 i
w 1 k 3
f 3 4 i
a 1 y 3
f 3 4 i
w 1 y 3
a 3 4 i

 

[orgatu]

ARADIĞIM KODU FORUMDA BULDUM..

Sub MÜKERRER_KAYITLARI_SİL()
    [IV:IV].ClearContents
    [IV1] = "=A1 & B1 & C1 & D1 & E1 & F1 & G1"
    [IV1].AutoFill Destination:=Range("IV1:IV" & [A65536].End(3).Row), Type:=xlFillDefault
    [IV:IV].Value = [IV:IV].Value
    For X = [IV65536].End(3).Row To 1 Step -1
    If WorksheetFunction.CountIf(Range("IV1:IV" & X), Cells(X, "IV")) > 1 Then Rows(X).Delete
    Next
    [IV:IV].ClearContents
    MsgBox "MÜKERRER KAYITLAR SİLİNMİŞTİR.", vbInformation
End Sub

 

[Emir Hüseyin Çoban]

w 1 y 3 benzer satırlar teke düşürülecek
a 3 4 i
w 1 y 3
f 3 4 i
w 1 k 3
f 3 4 i
a 1 y 3
f 3 4 i
w 1 y 3
a 3 4 i

. . .

Makrosuz ve yardımcı sütun kullanmadan yapmak isterseniz.

Hücre aralığını seçin.

Üst menüden Veri > Veri araçları içerisinde
Yinelenenleri Kaldır' ı tıklayın ve aşağıdaki adımları uygulayın.

. . .

 

[Korhan Ayhan]

Hüseyin Bey,

Üyemiz eski excel versiyonu kullandığı için önerdiğiniz yöntemi kullanamıyor.

Önerinizden yeni excel versiyonu kullanan üyelerimiz faydalanacaktır. Elinize sağlık.

 

[Demet2000]

Merhaba,
Bende bu konuya benzer bir şey sormak istiyorum.
A sütünun daalt alt aynı kodların ikisinde silinmesini istiyorum.Aşağıdaki sütünda bulunan aynı rakamların (örneğin 125 yazan hücrelerin)ikisininde silinmesini istiyorum.
Nasıl yapabılırım.
Şimdiden teşekkür ederim.
Örnek;
125
130
125
127
145
130

 

[Demet2000]

Çift verileri silme

Merhaba,
Aynı sütünda alt alta rakamların çift olanların ikisininde silinmesini istiyorum.
Örneğin;Aşağıdaki verilerden aynı olanlarının ikisininde listeden çıkarılamasını istiyorum
Nasıl yapabilirim.
Tesekkur ederım.
125
145
130
125
127

 

[Demet2000]

çift kayıt silinmesi

Merhaba,
Makroyu denedim fakat istediğim gibi yapamadım.Şöyleki ben aynı olanın bir tanesininde kalmasını istemiyorum.Yani aynı olanların hepsi listeden temizlensin.
Olabilir mi
Tesekkur ederım

 

[sametozyavuz]

Merhaba,
Makroyu denedim fakat istediğim gibi yapamadım.Şöyleki ben aynı olanın bir tanesininde kalmasını istemiyorum.Yani aynı olanların hepsi listeden temizlensin.
Olabilir mi
Tesekkur ederım

1. adım koşullu biçimlendirme yenilenen değerler
2. adım filtre renge göre filtre