Este fórum está sendo desativado

[Ronibarros]

A partir dessa SUB, tenho como inserir na coluna K o número máximo de dias de atraso em cada linha baseado na coluna A:A? pois tem linhas com dados dos mesmos clientes. Eu quero que em cada linha esteja o maior atraso baseado na coluna A:A que contém um código que diferencia cada cliente, observando que cada linha tem um atraso diferente ou ainda pode conter 0. Eu tenho essa SUB que peguei com alguém daqui mesmo o alexandrevba para outro trabalho, coloquei algumas linhas como comentário, pois não preciso mais dos serviços delas. A fórmula tá funcionando só para repetir o valor da coluna J:J na coluna K:K, porém quero que ela me dê nas linhas todas o valor maior daquele cliente.
Observem que mudei a fórmula colocando MAX.
É possível?
É possível fazer isso com datas também? Ex a data de vencimento maior ou menor.

Sub AleVBA()
With ActiveSheet
With Range("K2")
'.Formula = "=SUMPRODUCT(($F$2:$F$1610=F2)*($I$2:$I$1610))"
.Formula = "=MAX(($A$2:$A$1610=A2)*($Q$2:$Q$1610))"
With .Resize(Range("J" & Rows.Count).End(xlUp).Row - 1)
.FillDown
.Copy
.PasteSpecial xlPasteValues
End With
End With
'ActiveSheet.Range("$A$1:$K$300").AutoFilter Field:=11, Criteria1:=">" & 10000000
'lastrow = .Range("A" & .Rows.Count).End(xlUp).Row
'.Range("A2:J" & lastrow).Copy Sheets("AleVBA").Range("A2")
'.AutoFilter.ShowAllData
End With
End Sub

[DJunqueira]

Montei duas fórmulas com a função MÁXIMOSES() e transformei sua lista numa tabela p/ não fazer uma varredura por coluna inteira, mas como me parece q o q vc quer mesmo é um resumo de informação tb adicionei uma tabela dinâmica com o valor máximo de atraso citando o nome de cada um dos clientes apenas uma vez. Notar q na TD vc não precisa das colunas q calculam o valor máximo.

[Ronibarros]

Pelo que vi é isso mesmo, vou utilizar.

[Ronibarros]

DJunqueira. Pelo que estou vendo você resolveu. Muito grato.