tarihi en büyük olan data vlook

[honestman]

Merhaba,


Dosyalara ait işlem tarihleri ve durumları mevcut. Amacım dosyanın en son tarihteki durumunu yani son durumunu bulmak. MAX ve VLOOKUP ile yapamadım malesefm. Mümkünse data fazla olacağından vba ile bir çözüm. Teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

Sub Son_Durum_Bul()
    Application.ScreenUpdating = False
    Son = Cells(Rows.Count, 1).End(3).Row
    Range("F2:F" & Rows.Count).ClearContents
    For X = 2 To Cells(Rows.Count, "E").End(3).Row
        Formul = "=INDEX(C2:C1000,MATCH(""" & Cells(X, "E") & """&" & "LARGE(IF(A2:A1000=""" & Cells(X, "E") & """,B2:B1000),1),A2:A1000&B2:B1000,0))"
        Formul = Replace(Formul, 1000, Son)
        Cells(X, "F") = Evaluate(Formul)
    Next
    Application.ScreenUpdating = True
    MsgBox "İşleminiz tamamlanmıştır."
End Sub

 

[honestman]

Teşekkür ederim.

 

[kdviadesi]

bu siteyi sevdim emeğinize sağlık kolay gelsin.