Tarihe Göre Sıralama

[neseterkutsesli]

Merhaba
B sütununda stok kodu aynı olan ürünler var E sütununda adetler var sorum şu tarihi en yeni ne ise sütunda yazan adet'in oraya taşınmasını istiyorum
Örnek BERU-0100 226 385 100 adet 26.12.2018 tarihine taşınacak
sıralama veri seçeneklerinden yapamadım metodunu öğrenebilir miyim başka verilerde var

 

[çıtır]

Giriş sekmesi ,Sıralama ve filitre uygula ,tabloyu seçiniz yeniden eskiye.Dozyanız.

 

[neseterkutsesli]

stok kodu sabit kalacak tarih stok kodu aynı olan değerlerde tarih en yenisi hangisi ise adet kısmı oraya taşınacak soru bu
teşekkürler

 

[Ziynettin]

Bu çalışmayı deneyiniz.

Sub test()
Application.ScreenUpdating = False
Sheets("Sayfa1").Select
son = Cells(Rows.Count, 2).End(xlUp).Row
a = Range("A2:E" & son).Value
Set d = CreateObject("scripting.dictionary")
Set d1 = CreateObject("scripting.dictionary")
    For i = 1 To UBound(a)
        krt = a(i, 2)
        If d.exists(krt) Then
            If a(i, 1) > a(d(krt), 1) Then
                d(krt) = i
            End If
        Else
            d(krt) = i
        End If
        If Not a(i, 5) = "" Then
            d1(krt) = a(i, 5)
        End If
    Next i
    ReDim b(1 To UBound(a), 1 To 1)
    For i = 1 To d.Count
        say = d.items()(i - 1)
        b(say, 1) = d1.items()(i - 1)
    Next i
[E2].Resize(UBound(a)) = b
Application.ScreenUpdating = True
End Sub

 

[neseterkutsesli]

teşekkür ederim kardeşim