Selecionar la mejor oferta en costos entre varios proveedores automaticamente

On 11 dic, 15:32, "Mario Caricola" wrote:

Saludos a todos y gracias a de antemano por su ayuda

En una misma hoja tengo una lista de precios con varias columnas con los
costos cotizados por los diferentes proveedores (una columna por proveedor)
de un mismo producto, es decir, para un producto llamado "hilo" el
Proveedor1 cotizo 3,4      Proveedor2 cotizo 3,8      Proveedor3 cotizo 4,1
Proveedor4 cotizo 2,4

Me gustaria que en una columna llamada Oferta ganadora me selcciones el
monto mas bajo de todos, en este ejemplo seria 2,4 y en otra el nombre que
seria Proveedor4

Espero haberme explicado bien y una vez mas gracias y disculpen si esta
fácil pero ando medio tapao

Atte.,
MC

Hola Mario.

He preparado una función personalizada que te funciona.

Esta función te devuelve dos tipos de datos:
nombre del proveedor (argumento tipo tiene que ser igual a 1)
importe mínimo (argumento tipo tiene que ser igual a 2)


Function oferta(rango As Range, tipo As Integer)


For Each c In rango
contador = contador + 1
a = Split(c.Value, " ")
nombreprov = a(0)
importeprov = a(UBound(a))
If contador = 1 Then
importemin = importeprov
provmin = nombreprov
ElseIf importemin >= importeprov Then
importemin = importeprov
provmin = nombreprov
End If
Next
If tipo = 1 Then
oferta = provmin
ElseIf tipo = 2 Then
oferta = importemin
End If

End Function


Saludos,

Benito
Barcelona