Yenilenleri kaldırma

[maestrocan]

Merhabalar,

Elimde bir döküman var. Bu dökümanda Ürün kodu fiyatı ve tarihler mevcuttur.
Bir artikel yani kod 1-2-3 satır olabiliyor ve her biri farklı fiyatlı ve farklı tarihli
ben bu listeyi en güncel tarih kalacak şekilde her bir artikeli tek bir satıra çevirebilirmiyim.

dosya ekliyemediğm için yazı ile göstermek zorunda kalıyorum kusura bakmayınız.

Kod Fiyat TARİH
10095004517763123 15.00 01.11.2013
10095004517763123 18.00 01.10.2016

yapacağım işlem sonucunda en altta bulunan 01.10.2016 tarihli satırın kalmasını istiyorum.
yardımlarınız için teşekkürler

 

[yasin1923]

Ben şöyle anladım:
Kod dediğiniz şey neyi ifade ediyorsa onun fiyatı sürekli değişiyor. Bugün 10 tl yarın 15 tl gibi. Siz de alt alta yazdığınız kayıtlardan en güncel olanını burakıp diğerlerini silmek istiyorsunuz.
Kodlar a fiyatlar b ve tarihler c sütununda olsun.
Adım 1 c sütünü seçilirken z de. A ya sıralayın.
Adım 2
D2 hücresi için formül; =eğer(eğersay(a$2:a2;a2)=1;d1+1;d1)
Formülü d sütununda aşağı doğru doldurun.
Sonra diyelimki f sütununda
=indis(a:a;kaçıncı(satır(A1);$d:$d;1);1)
Bunu g ve h sütunlarına kopyalayabilirsiniz
Yok hatası için eğerhata formülünü kullanabilirsiniz vs.
Telefondan yazdığım için formüllerde hata yapmış olabilirim ama işe yarayacağından Emin'im.
Aslında aynısı pivot table ile de mümkün ama onu telefondan hatırlayıp yazmam mümkün değil.

 

[yasin1923]

Kaçıncıdaki 1 0 da olabilir???

 

[maestrocan]

Teşekkür ederim vermiş olduğunuz formül işimi çok kolaylaştırdı.
Emeğinize sağlık

 

[maestrocan]

http://dosya.co/cgjhizblxatl/Excel_yenilenleri_kaldirma.xlsx.html

Yasin bey merhaba,

Vermiş olduğunuz bilgilere göre işlemi yaptım.
Ama bazı sonuçları alamadım. Listede olmasına rağmen sonuç göstermiyor.
Formülleri yaparken yanlış bir işlem mi yaptım acaba kontrol edebilirmisiniz.

Örnek vermek gerekir ise aşağıdaki kodu hiç bir şekilde bulmuyor. Sadece bu kodu bulunduğu 2 satırı başka bir excel dosyasına alıp formülü çalıştırıyorum buluyor sonuçu ama işlemi doğru yapmıyor bu sefer.
0100950071128064061

Gönderdiğim linki inşallah açabilirsiniz.

 

[çıtır]

Sayın maestrocan;
Dosyanız ilgimi çektiğinden ben cevap verdim.Umarım sorun olmaz.Çözüme katkım olsun istedim.Çok veri tarandığından dosyanın açılışı ve çözüm zaman almakta, dosyada gerekli açıklamaları yaptım.Sorununuz çözülmesi dileğimle.Kolay gelsin.
http://s4.dosya.tc/server4/e1xh0k/SONAL.rar.html

 

[Ziynettin]

Büyük tarihe göre fiyat listesi, deneyiniz.

Sub Tarihe_fiyat_listele()
Sheets("Sayfa1").Select
Z = TimeValue(Now)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
a = Range("A3:C" & Cells(Rows.Count, 1).End(xlUp).Row)
Set d = CreateObject("Scripting.Dictionary")
    For i = LBound(a) To UBound(a)
        If d.exists(a(i, 1)) Then
            If a(i, 3) > a(d(a(i, 1)), 3) Then
                d(a(i, 1)) = i
            End If
        Else
            d(a(i, 1)) = i
        End If
    Next i
    ReDim b(1 To d.Count, 1 To UBound(a, 2))
    For Each veri In d.keys
        say = say + 1
        For k = 1 To UBound(a, 2)
            b(say, k) = a(d(veri), k)
        Next k
    Next veri
    Range("E2:G" & Rows.Count).ClearContents
    If say > 0 Then
        [E2].Resize(d.Count).NumberFormat = "@"
        [E2].Resize(d.Count, UBound(a, 2)) = b
        [F2].Resize(d.Count).NumberFormat = "#,##0.00"
        [G2].Resize(d.Count).NumberFormat = "dd.mm.yyyy"
    End If
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı....." & vbLf & vbLf & _
"İşlem sureniz :  " & CDate(TimeValue(Now) - Z), vbInformation
End Sub

http://s8.dosya.tc/server4/akjh2r/Excel_yenilenleri_kaldirma.rar.html