• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Aynı olan satırları silmek

Selamlar,

Aşağıdaki şekilde deneyin.

Kod: 
Range("J" & X & ":S" & X).Delete Shift:=xlUp
 
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
 
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
 
Son düzenleme:
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
 
ç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
 
Saygı bizden, güle güle iyi günlerde kullanınız.
 
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.
 
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

Korhan Ayhan' Alıntı:
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.
Kod: 
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.
Kod: 
[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]
Genişletmek için tıkla ...
 

Ekli dosyalar

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?
 

Ekli dosyalar

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.
 

Ekli dosyalar

Son düzenleme:
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
 
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)
 
Son düzenleme:
Korhan Ayhan' Alıntı:
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.
Kod: 
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]
Genişletmek için tıkla ...

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.
 
Merhaba,

Özet tablo kullanmayı denediniz mi?
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst