Mas vc quer isso com VBA, ou pode ser com fórmula?

Segue uma fórmula matricial que resolve:

Em R5 faça:

=SE(N5="CANCELADO";N5;MÁXIMO(SE((I5:I23=I5)*(N5:N23<>"CANCELADO")=1;J5:J23)))

Ctrl + Shift + Enter

E arraste para baixo.

Abs

Matricial em R5

{=SE(N5="CANCELADO";"CANCELADO";MÁXIMO(SE(I5=$I$5:$I$23;1;0)*SE($N$5:$N$23<>"CANCELADO";1;0)*$J$5:$J$23))}

Arraste para baixo.

Abs,

Olá gtsalikis!

Fiz o teste e não funcionou,
Exemplo.:
Se filtrar o código 91M5M9683 verá que tem apenas duas linhas e as seguintes datas: 01/05/2013 e 01/09/2013, então para este produto a maior data é 01/09/2013 e utilizando a formula sugerida ele está trazendo a data 07/04/2014.

------------------------------------------------------------------------------------------------------------------------------------------

Olá Mandrix
Fiz o teste e não funcionou, ele está trazendo várias datas para o mesmo produto.
Exemplo.:
Se filtrar o código 91M5M9683 verá que tem apenas duas linhas e as seguintes datas: 01/05/2013 e 01/09/2013, então para este produto a maior data é 01/09/2013 e utilizando a formula sugerida ele está trazendo duas datas 01/05/2013 e 01/09/2013, o qual deveria ser somente a maior 01/09/2013.

--------------------------------------

Abs

Matricial em R5
Ctrl + Shift + Enter

Olá Mandrix!

Sim, funcionou.
Desculpe, nunca tinha usado formula matricial, nem sabia como fazer.

Você saberia me dizer como fazer está operação VB?

Vlw

Desculpe gtsalikis!

Sua fórmula realmente funciona, eu que não sabia aplicar formula matricial.

Saberia me dizer como fazer esta aplicação em VB.

Abs

Amigo, eu não sei como levar uma fórmula matricial para o VBA, mas creio q posso fazer um loop que traga o mesmo resultado.

Vou ver pra vc e depois posto aqui.

Veja este código:

Option Explicit

Sub maior_data_GT()

Application.ScreenUpdating = False

Dim PL      As Integer 'Primeira Linha
Dim UL      As Integer 'Última Linha
Dim i       As Integer
Dim j       As Integer
Dim Cod     As String
Dim Data    As Date

PL = Cells(1, "I").End(xlDown).Row + 1
UL = Cells(Rows.Count, "I").End(xlUp).Row

For i = PL To UL
    If Cells(i, "N").Value2 = "CANCELADO" Then
        Cells(i, "R").Value2 = "CANCELADO"
        GoTo PROXIMO
    End If
    Cod = Cells(i, "I").Value2
    For j = PL To UL
        If Cells(j, "I").Value2 = Cod And Cells(j, "N") <> "CANCELADO" Then
            If CDate(Cells(j, "J")) > Data Then Data = CDate(Cells(j, "J"))
        End If
    Next j
    Cells(i, "R").Value2 = Data
    Data = 0
PROXIMO:
Next i

Application.ScreenUpdating = True

End Sub

Muito Obrigado!

Ficou ótimo.