Aynı satırları temizlemek

[mustafa58]

Ekteki dosyada orjinal adlı sayfadaki verileri stok kodu veya model kısmına göre karşılaştırma yaparak aynı olan satırların belli kolonlarını temizlemek istiyorum. Yani hedef bilgi sayfasındaki hale dönüştürmek istiyorum.
Yardımcı olabilirseniz sevinirim.
Saygılarımla
Mustafa GÜNDÜZ

 

[mustafa58]

Mükerrer kayıtların temizlenmesi

Sanırım konuyu iyice anlatamadım. Forumda mükerrer kayıtlarla ilgili arama yaptım. İstenenler hep mükerrer satırların temizlenmesi veya farklı renklendirme ile ilgili ben ise içeriğin temizlenmesini istiyorum yardımlarınız için şimdiden teşekkürler.

 

[mehmett]

Dosyanızda bir sorun var galiba, ben açamadım.

 

[mustafa58]

Birde rarlı olarak ekleyeyim

Dosyanızda bir sorun var galiba, ben açamadım.

bende hiçbir sorun yok belki eklerken hata yaptım.

 

[Korhan Ayhan]

Selamlar,

Bu eklediğiniz dosyadada açılınca içinde hiçbir veri gözükmüyor. Ve dosya açılırken yükleme hatası şeklinde bir uyarı veriyor. Tekrar güncellermisiniz.

 

[mustafa58]

hemen yolluyorum

Selamlar,

Bu eklediğiniz dosyadada açılınca içinde hiçbir veri gözükmüyor. Ve dosya açılırken yükleme hatası şeklinde bir uyarı veriyor. Tekrar güncellermisiniz.

Umarım bu kez başarılı olur

 

[Korhan Ayhan]

Selamlar,

Maalesef hala aynı hatayı veriyor ve dosyaların içinde veri görünmüyor.

 

[mustafa58]

sanırım dosya olmadanda çözüm olur.

forumda mükerrer kayıtlar için arama yapınca mükerrer kayıt satırlarını silen macrolar var. Benim istediğim a kolonunda mükerrer kayıt bulunca (veriler sıralı
yani mükerrer kayıtlar altalta ) satır silme değil o hücrelerde içerik temizle yapması.yani bir tane bırakarak.
çok teşekkürler.

 

[mustafa58]

dosya gönderme

dosya gönderemeyişim sanırım xp deki güvenlik ayarlarından kaynaklanıyor.
Sorunu çözmeye çalışıyorum. Sizleri uğraştırdığım için çok çok özür dilerim.
Saygılarımla.
Mustafa GÜNDÜZ

 

[mustafa58]

son bir kez dosya eklemek istiyorum

yarattığım dosya kirliliği için özür dilerim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub MÜKERRER_KAYITLARI_TEMİZLE()
    For X = [A65536].End(3).Row To 1 Step -1
    If WorksheetFunction.CountIf(Range("A1:A" & X), Cells(X, "A")) > 1 Then Range("A" & X & ":C" & X & "," & "F" & X & ":H" & X).ClearContents
    Next
    MsgBox "MÜKERRER KAYITLAR TEMİZLENMİŞTİR.", vbInformation
End Sub

 

[mustafa58]

Mükemmel

Sayın COST CONTROL
Yazmış olduğunuz macro bir cerrah titizliği ile çalışıyor.
Emeğinize sağlık. Forumda yer alan herkese teşekkürler...
Eğer kayıtları sıralı olmayan veriler içinde çalışır hale getirilirse bir çok kişinin işne yarar diye düşünüyorum.
Saygılarımla.

 

[Korhan Ayhan]

Selamlar,

Kullanmış olduğumuz kodda sıralama önemli değildir. Verilerinizin sıralaması karışık olsada çalışacaktır. Ayrıca bu kodu yazan Sn. fructose' dir. Ben sadece sizin dosyanıza uyarladım.