Birden fazla tarih arasından en eski olanının seçilmesi!

[yaüendüstri]

Merhabalar,
Elimde yaklaşık 12000 satırlık bir data var ve data aynı satırlara ait farklı tarihleri içeriyor.
Pivot tablo ile dataları gruplayabildim fakat tarihler tek olmadığı için yanlarına yazılamıyor.
Amacım datada ki grupladığım verilere ait ham data da ki ilk tarihi yazmak;

06.02.2017 A ürünü
01.05.2010 A ürünü

Pivot tabloda olmasını istediğim;

01.05.2010 A ürünü

KAç adet olduğu önemli değil giriş tarihi önemli.

Umarım açıklayabilmişimdir.

Teşekkürler

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Tarihlerin A, ürünlerin B sütununda olduğu düşünülerek listelemeyi D ve E sütunlarına yaptırdım.

Sub Ozet_Tablo()
 
    Dim d As Object, i As Long, s, deg
 
    Set d = CreateObject("Scripting.Dictionary")

    For i = 1 To Cells(Rows.Count, "B").End(xlUp).Row
       deg = Cells(i, "B")
       If Not d.exists(deg) Then
           s = Cells(i, "A")
           d.Add deg, s
       End If
    Next i
    
    Range("D1:E" & Rows.Count).ClearContents
    Range("D1").Resize(d.Count, 2) = _
        Application.Transpose(Array(d.items, d.keys))

End Sub

.