- atualize sua validação para mostrar exatamente o nome do projeto, Senão, nunca vai acontecer a comparação adequada. Não exiba 38, exiba "Projeto 38"
- na célula i5 digite a seguinte fórmula, finalizando-a com Ctrl+Shift+Enter *(pq é matricial)

=MAIOR((A5:A27=I3)*1*C5:C27;1)

não esquecer de usar Ctrl+Shift+Enter

Boa noite dyego.vn

Uma alternativa que não é necessário alterar a tua validação de dados e não é matricial.

=SOMARPRODUTO(MÁXIMO((A5:A27=H3&" "&I3)*(C5:C27)))

Tanto a minha fórmula, como aquela postada na resposta anterior, só irão funcionar, se não tiver aquelas datas em branco, pois a fórmula procura até a próxima linha vazia.

Se foi útil, clique na mãozinha.

Dê retorno.

[]s

Bom dia, vou concordar com o Patropi que há algumas formas de escrever a fórmula onde será necessário ou não alterar a validação.
Minha sugestão baseado na minha experiência, é, não dependa de todo projeto começar com a palavra "Projeto".

Ao melhorar sua validação, vc acabará tendo mais maleabilidade nos nomes dos projetos.
MAS, claro, é uma opção sua !

Se quiser a user a fórmula do Patropi, considerando mudar a validação, ficaria assim:

=SOMARPRODUTO(MÁXIMO((A5:A27=I3)*(C5:C27)))

Fica a seu critério!

Abs,
FF

Bom dia,
obrigado pelo tempo de vocês.
Não sei se fui muito claro, eu preciso que seja VBA, e esse é só um exemplo. Minha planilha tem 6 abas, sendo 4 relatorios com mais de 20 mil linhas.
A primeira aba são meus rsultados, e a segunda indicadores. Um dos indicadores é essa data. Se eu colocar função, o restante das macros ficam lentas, por isso preciso que seja em VBA.
Quero uma forma de, ao selecionar o projeto, a macro define um intervalo de i até j (sendo i a linha que a primeira vez que o tal projeto aparece, e j a ultima vez, os projetos estão em linhas sequenciais), e pegue o maior valor desse intervalo. Não sei se expliquei direito, caso não tenha ficado claro avisem que tento de novo rs

Obrigado mais uma vez!

Experimente:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count > 1 Then Exit Sub
 If Target.Address = "$I$3" And Target.Value <> "" Then [I5] = Evaluate("=MAX(IF(A5:A27=""Projeto ""&I3,C5:C27))")
End Sub

Poste um modelo simplificado com o cenário completo.

Segue um exemplo.

Quero que, ao selecionar o projeto, ele retorne a maior data do projeto selecionado.
Lembrando que são mais de 100 projetos com cerca de 2500 linhas

Obrigado desde já!

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count > 1 Then Exit Sub
 If Target.Address = "$H$4" Then [K4] = Evaluate("=MAX(IF(A5:A5000=" & Target.Value & ",C5:C5000))")
End Sub

Funcionou! Muito obrigado !

Precisava de outra coisa, que abaixo da data aparecesse o nome do item, como faria isso ?

Precisava de outra coisa, que abaixo da data aparecesse o nome do item, como faria isso ?

Experimente:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count > 1 Then Exit Sub
  If Target.Address = "$H$4" Then
   [K4] = Evaluate("=MAX(IF(A5:A5000=" & Target.Value & ",C5:C5000))")
   [K5] = Evaluate("=LOOKUP(2,1/((A5:A5000=H4)*(C5:C5000=K4)),B5:B5000)")
  End If
End Sub