Makro ile kritere bağlı en büyük tarihi bulmak

[Mdemir63]

Selamlar
Ekteki dosyada Dizi formülü ile yaptığım kritere göre en büyük tarihi bulma işlemini makro ile nasıl yapabilirim?

Saygılar

 

[muygun]

Merhaba;
Sayfanın kod bölümüne;

Sub işlem()
Application.ScreenUpdating = False
On Error Resume Next
Range("g2:g65536").ClearContents
For i = 2 To Range("f65536").End(xlUp).Row
For k = 2 To Range("a65536").End(xlUp).Row
If Cells(k, 1) = Cells(i, "f") And Cells(k, 2) > Cells(i, "g") Then
Cells(i, "g") = Cells(k, 2)
End If
Next k
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Kodlarını ekleyerek deneyin.
İyi çalışmalar.

 

[Mdemir63]

Selamlar
@muygun Hocam çok teşekkür ederim.
Elinize sağlık

 

[Korhan Ayhan]

Alternatif;

Option Explicit

Sub Buyuk_Tarihleri_Bul()
    Dim Son As Long, Formul As String
    
    Son = Cells(Rows.Count, 1).End(3).Row
    
    Formul = Replace("=MAX(IF(A$2:A$1048576=F2,B$2:B$1048576))", 1048576, Son)
    
    With Range("G2:G" & Cells(Rows.Count, "F").End(3).Row)
        .Formula = Formul
        .FormulaArray = .FormulaR1C1
        .Value = .Value
    End With
End Sub

 

[Mdemir63]

Selamlar
@Korhan Ayhan Hocam elinize sağlık teşekkür ederim.