Usuário com melhor resposta
Planilha Menor Valor

Pergunta
-
Tenho uma planilha da seguinte forma:
Preciso montar uma apuração da seguinte forma:
Gerando uma nova guia/planilha onde filtre o fornecedor e os produtos em que ele ganha a concorrência.
Isso via macro, pra facilitar a análise da planilha pelo responsável.
Gregorio
Respostas
-
Consegui resolver utilizando duas fórmulas, uma é pra encontrar o menor preço e colocá-lo em uma coluna a parte.
=SE(MÍNIMO(G3:AJ3)=0;"--";MÍNIMO(G3:AJ3))
Outra fórmula foi pra selecionar o nome do fornecedor baseado no menor preço descrito acima.
=SEERRO(INDIRETO(ENDEREÇO(1;CORRESP(AK3;A3:AJ3;0);2;1));"--")
Funcionou legal.
Consegui esta informação em http://www.exceldoseujeito.com.br/2012/08/20/encontrar-o-vencedor-para-uma-concorrencia-do-menor-preco/
Gregorio
- Marcado como Resposta Gregorio Venturim terça-feira, 28 de maio de 2013 14:24
- Editado Gregorio Venturim terça-feira, 28 de maio de 2013 14:25
Todas as Respostas
-
Olá Gregório, boa tarde.
Experimente inserir este código:
Sub Menor()
'As células com datas também retorna um valor, e ficar coberto para determinar o menor valor. Percentagens irá converter e voltar numéricos.
Dim rng As Range
Dim minimum As Double
Set rng = Sheet1.Range("A1:Z100")
'Set Intervalo definido a partir do qual a determinar menor valor
minimum = Application.WorksheetFunction.Min(rng)
'Função MIN planilha retorna o menor valor em um intervalo
MsgBox minimum
'Apresenta menor valor
End SubFonte:
Obrigado por contactar o fórum Microsoft Technet!
-
Consegui resolver utilizando duas fórmulas, uma é pra encontrar o menor preço e colocá-lo em uma coluna a parte.
=SE(MÍNIMO(G3:AJ3)=0;"--";MÍNIMO(G3:AJ3))
Outra fórmula foi pra selecionar o nome do fornecedor baseado no menor preço descrito acima.
=SEERRO(INDIRETO(ENDEREÇO(1;CORRESP(AK3;A3:AJ3;0);2;1));"--")
Funcionou legal.
Consegui esta informação em http://www.exceldoseujeito.com.br/2012/08/20/encontrar-o-vencedor-para-uma-concorrencia-do-menor-preco/
Gregorio
- Marcado como Resposta Gregorio Venturim terça-feira, 28 de maio de 2013 14:24
- Editado Gregorio Venturim terça-feira, 28 de maio de 2013 14:25
-
-