En son tarihte eklenen veriyi bulup eskileri silme

[nerelerdesin]

Merhaba Arkadaşlar,

İçinden çıkamadığım bir sorun var yardımcı olursanız sevinirim.

Biz şirkette hergün bu excel tablosuna yeni veriler ekliyoruz. Eklediğimiz verileri sekreter hanım topluyor.
Sekreter'in topladığı verileri tablonun en sonuna kopyalıyoruz. Ve bazen aynı firmalarla farklı tarihlerde görüşme yapıyoruz. Benim istediğim aynı isimdeki firmalarla yaptığımız görüşmelerden sadece en son tarihte yaplan görüşmenin kalmasını nasıl sağlayacağım. Eskiler Silinsin.

Dosya indir: http://rapidshare.com/files/4885626/yardim.rar
MSN asdreim huozturk@hotmail.com

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Ama dosyanızda aynı kurum ismi farklı şekillerde yazıldığı için kod doğru çalışmaz, kurum isimleri aynı şekilde yazılmalıdır. Bunu sağlamak içinde kurum isimlerini bir liste yapıp sonrada B sütununda veri doğrulama ile seçtirmenizi öneririm. Birde çok sayıda kurum ismi olmayan boş hücre mevcut. Kod bunları pas geçiyor.

Sub ensonkayitkalsin()
[b4:f65536].Sort key1:=[d3], key2:=[b3]
For a = 4 To [d65536].End(3).Row
say = WorksheetFunction.CountIf([b:b], Cells(a, "b"))
If say > 1 And Cells(a, "b") <> "" Then Rows(a).ClearContents
Next
Range("d4:d" & [d65536].End(3).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[nerelerdesin]

Öncelikle Cevap Verdiğiniz için Teşekkürler.

Verdiğiniz makroyu kullandım Levent Bey,
Ama lerde söyle bir sorun olacağını düşünüyorum.
Verilen makroda aynı GÖRÜŞÜLEN KİŞİ / MAKAM adlarını arayıp bulup en son üzerinde değişiklik yapılanı silmeden diğerlerini siliyor.

Aslında ben AYNI "GÖRÜŞÜLEN KİŞİ / MAKAM" isimlerini eklenme tarihine göre arayıp en son tarihte eklenen kalsın şeklinde yapmasını istemiştim.

Nedeni ise ilerde eski eklenen veri üzerinde oynama yapılırsa o zaman güncellenmiş olanı silip eski üzeerinde oynanmış olanı sanki yeniymiş gibi bırakıp silmemesi.

 

[Levent Menteşoğlu]

Yukarıdaki kodu yeniledim tekrar deneyin.

 

[nerelerdesin]

Çok TEŞEKKÜR EDERİM şimdi çalıştı
bi sorun olursa ilerde Tekrar size başvura bilirim sanırım

Şimdi yapmam gereken kodu öğrenmem sanırım
Mantığını yani, Siz hemen yazıyorsunuz ama biz son kullanıcılar kodları anlamakta çok güçlük çekiyoruz.

Allah razı olsun siz ve sizin gibilerden.

 

[Levent Menteşoğlu]

Rica ederim. Sadece bana değil tüm foruma başvurabilirsiniz.