Aynı olan satırları silmek

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde deneyin.

Range("J" & X & ":S" & X).Delete Shift:=xlUp

 

[yst10]

Korhan bey,

Süper oldu... Sağolun, teşekkür ederim.

İyi çalışmalar, Allaha emanet olun ve kendinize iyi bakın.

Kıymetli bir insansınız, değerinizi bilmek lazım.

Yavuz Tümer

 

[sickomania]

selamlar

selamlar, verdiginiz kod gayet guzel calisiyor.
benim sorunum biraz daha farkli. gercekten cok ugrastim ama bulamadım buna uygun birsey. manuel olarak yapmamda cok uzun zaman gerektirir.

benim sorunum şu

aynı satırları silecek, ama geriye 1 tanesini birakmicak.
yani ayni olan herşeyi tamamen yokedecek. umarım anlatabilmişimdir.

şöyle diyeyim:
mesela elma kelimesi 2 satirdada varsa, 2 satirida silsin.

yardim eden olursa cok makbule gecicek gercekten

 

[Necdet]

Merhaba,

Basit bir örnek sundum, inceleyiniz.

 

[sickomania]

oh ya.

necdet bey çok teşekkür ederim
sayenizde cozdum bu meseleyide 1 haftadır debelenip duruyordum
gerçekten çok teşekkür ederim
çalışmalarınızda başarılar dilerim

 

[sickomania]

çok teşekkürler necdet bey
sayenizde cozdum meseleyi, 1 haftadir debeleniyodum.
ve inanılmaz bi zaman kazanımı sagladım

tekrar cok teşekkür eder
çalışmalarınızda başarılar dilerim
saygilarimla

 

[Necdet]

Saygı bizden, güle güle iyi günlerde kullanınız.

 

[Gorarr]

Mesaj #2 deki kodu (yada önereceğiniz uygun kodu), sayfa3 A sütunundaki tekrarlayan kayıtların silinmesi için nereye ve nasıl bir uygulamam gerekir. Yardımcı olan arkadaşlara şimdiden teşekkürler.

 

[escom]

sevgili meslektaşlarım aynı kodları bulup silme komutunu yaptım ama sorun şuki 47 bin kaydın 28 bini tek kayıt 19 bin mükerrer kayıt ben bunların tekini silip tekini bırakmak istiyorum. aşağıda vermiş olduğun formülü çalıştırdım 2 side aynı sonuç veriyor 28900 kayıt bırakıyor. bana bu konuda yardımcı olurmusun sade A sütünundaki benzer kayıtları kontrol etmesini rica ediyorum.

ekte dosyanın orjinal hali mevcuttur
ilgilenen abilerime şimdiden çok teşekkür ederim

Selamlar,

Aşağıdaki kodla verilerin sıralı olması önemli değildir. Sayma işlemi yaparak mükerrer kayıtları siler.

A sütunundaki mükerrer verileri teke indirir.

Sub MÜKERRER_KAYITLARI_SİL()
    For X = [A65536].End(3).Row To 1 Step -1
    If WorksheetFunction.CountIf(Range("A1:A" & X), Cells(X, "A")) > 1 Then Rows(X).Delete
    Next
    MsgBox "MÜKERRER KAYITLAR SİLİNMİŞTİR.", vbInformation
End Sub

Birden fazla sütuna göre mükerrer kayıt kontrolü yaparak kayıtları teke indirir.

[LEFT]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

[/LEFT]

 

[baydeniro]

Küçük, bir kaç satırlık örnek bir dosya ekleyin, hemen silecek makroyu yazalım.

Aşağıdaki kod A sütununda benzer olan kayıtları siler. (Verinin A sütununa göre sıralı olduğu varsayılarak)

Güzel bir kod, paylaşım için çok teşekkür ederim.

 

[niTRos001]

Arkadaşlar ekteki dosyayı incelerseniz beni daha çabuk anlarsınız. Dosyamda da gördüğünüz gibi ürünsatıları bazen 10 bazen 20 bazen de 5 tane satırların hepsinde aynı bilgiler var bunların sadece ilk olanını bırakıp kalanını silebileceğim bir yöntem söyleyebilirmisiniz bana?

 

[Korhan Ayhan]

Merhaba,

Forumumuza hoşgeldiniz.

Profilinizde 2010 kullandığınızı belirtmişsiniz. Bu durumda aşağıdaki linkten faydalanabilirsiniz.

http://office.microsoft.com/tr-tr/excel-help/HP010342518.aspx

 

[niTRos001]

Merhaba,

Forumumuza hoşgeldiniz.

Profilinizde 2010 kullandığınızı belirtmişsiniz. Bu durumda aşağıdaki linkten faydalanabilirsiniz.

http://office.microsoft.com/tr-tr/excel-help/HP010342518.aspx

Merhabalar,

Hoşbuldum Korhan bey,
Verdiğniz link işime yaradı ve tüm listemi düzelttim şu anda sql e import ediyorum teşekkür ederim

 

[BirTürk1]

selamlar

EKTEKİ DOSYA İÇİN AYNI OLANLARI DEĞİLDE HÜCRE DEĞERİ "BU KALEM YOK" OLANLARI SİLMEK İSTİYORUM, VE SONUCA GÖRE DİĞER SAYFAYA VERİ GÖNDERMELİYİM BUNUN İÇİN UYGUN KOD NEDİR.
YARDIMLAR İÇİN ŞİMDİDEN TEŞEKKÜRLER.

 

[Fr33AngeL*]

Elinize sağlık çok teşekkür ederim paylaşımınız için...

 

[sakkoyun]

Excelde + karakteri içeren hücreleri silip yerine 0 yazma

Selamlar
Yaklaşık 500000 satırlık excel dosyam var. Bazı hücrelerde çok büyük sayılar var. Örneğin 2,15E+09 gibi. Bu hücrelerin yerinde 0 (sıfır) olmasını istiyorum. Bu silmek istediğim hücrelerin ortak özellikleri, hepsinde 4 karakteri olması. Dolayısıyla, + içeren hücre içeriklerini silip o hücrelere 0 (sıfır) yazacak bir makroya ihtiyacım var. Yardımcı olabilirseniz sevinirim.
İyi günler

 

[slx]

teşekkürler ,işime yaradı

 

[ozyurterdem]

Merhabalar,
C sütünu ve G sütunu üzerinde bazı kodlarım var. bu iki sütunu birbiri ile karşılaştııp G üzerinde bulunan kodları C üzerinden silmek ve ayrıca G de bulunupta C de bulunmayanları C ye kopyalamak istiyorum. Bunun bir çözümü varmıdır?
Yardımlarınız için şimdiden teşekkür ederim.

Not: Eğer C ve G de birbirine benzer tüm kayıtları sildirirsemde sorun ortadan kalkmış oluyor. (Tekrar edenlerden hiçbir veri kalmaması gerekiyor)

 

[fishcookie]

Selamlar,

Aşağıdaki kodla verilerin sıralı olması önemli değildir. Sayma işlemi yaparak mükerrer kayıtları siler.

A sütunundaki mükerrer verileri teke indirir.

Sub MÜKERRER_KAYITLARI_SİL()
    For X = [A65536].End(3).Row To 1 Step -1
    If WorksheetFunction.CountIf(Range("A1:A" & X), Cells(X, "A")) > 1 Then Rows(X).Delete
    Next
    MsgBox "MÜKERRER KAYITLAR SİLİNMİŞTİR.", vbInformation
End Sub

[/CODE]​

[/LEFT]

Korhan bey merhabalar, benim şöyle bir sorum olucak benim önümde uzun bir ürün listesi var ve bu müşterilere gidecek ürünlerin kodları farklı şuan şirket gizliliği adına dosya paylaşamıyorum fakat şöyle anlatayım;

A B
125412 OSMAN TİC
785214 OSMAN TİC
855241 OSMAN TİC
536642 ALİ TİC
643323 VELİ TİC
785215 VELİ TİC

Ben burdaki aynı şirketleri tek satıra indirip, örneğin osman ticarete xxxxxxx deyip başka bir sheet te de bu xxxxxxx in simgelediği ürün kodlarının kopyalanmasını istiyorum bu mümkünmüdür? İşin içinden çıkamadım eğer yardım ederseniz çok makbule geçecektir. Şimdiden teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Özet tablo kullanmayı denediniz mi?