Aynı Aya Ait Tarihlerin İlk Sırada Olanı

[baydeniro]

Merhaba arkadaşlar. Aşağıdaki gibi bir listede yani aynı aya ait olan tarihlerden ilk sırada olanı ve bunun solundaki veriyi nasıl bulabiliriz ?

..A............B
258 - 16.03.2012
951 - 09.03.2012
158 - 19.03.2012
845 - 16.03.2012
111 - 22.03.2012


Gerekebn veri 16.03.2012 ve/veya 258 - 16.03.2012 yi bulabilmek !!

 

[Orion1]

Buyurun.

Sub once59()
Dim z As Object, i As Long, liste(), myarr()
Application.ScreenUpdating = False
Range("D:E").ClearContents
Set z = CreateObject("Scripting.Dictionary")
liste = Range("A1:B" & Cells(Rows.Count, "B").End(xlUp).Row).Value
ReDim myarr(1 To 2, 1 To UBound(liste))
For i = 1 To UBound(liste)
    If Not z.exists(liste(i, 2)) Then
        z.Add liste(i, 2), liste(i, 1)
    End If
Next
Range("D1").Resize(z.Count, 2) = Application.Transpose(Array(z.items, z.keys))
Set z = Nothing
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[baydeniro]

Sayın Orion1 çok çok teşekkür ederim. Aslında soruyu iyi aktarmamışım. Bir örnek dosya ekleyeyim.

 

[muygun]

Merhaba;
Doğru anladıysam alternatif olsun.
İyi çalışmalar.