Página 1 de 1

Valor MÁXIMO ou MÍNIMO

Enviado: 26 Jul 2016 às 14:51
por 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

Re: Valor MÁXIMO ou MÍNIMO

Enviado: 26 Jul 2016 às 16:17
por 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.

Valor MÁXIMO ou MÍNIMO

Enviado: 28 Jul 2016 às 16:03
por Ronibarros
Pelo que vi é isso mesmo, vou utilizar.

Valor MÁXIMO ou MÍNIMO

Enviado: 28 Jul 2016 às 16:09
por Ronibarros
DJunqueira. Pelo que estou vendo você resolveu. Muito grato.