Foro

hola soy nuevo y necesitaria si alguno sabe como hacer una comparativa de valores y que el valor mas pequeño lo anote en otra casilla con el color correspondiente. me explico

A2-pieza 1
A3-pieza 2
A4-pieza 3 y asi sucesivamente.
B1-proveedor1 (rojo)
C1-proveedor2 (verde)
D1-proveedor3 (amarillo) y asi sucesivamente
quisiera que comparara los valores A2 de B1,C1,D1 y el valor mas bajo y que en la fila E1 me pusiera el valor mas bajo y (a ser posible el color del valor mas bajo) no se si me he explicado bien.

Copia y pega esta macro


Sub MyMacro()

Range("E2".Select
ActiveCell.FormulaR1C1 = "=MIN(RC[-3]:RC[-1])"
Range("E2".Copy
Range("e3:e65536".Select
ActiveSheet.Paste
Application.CutCopyMode = False

Range("b2".Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = ActiveCell.Offset(0, 3).Value Then
ActiveCell.Copy
ActiveCell.Offset(0, 3).PasteSpecial xlPasteAll
ActiveCell.Offset(0, -3).Select
Application.CutCopyMode = False
End If
ActiveCell.Offset(1, 0).Select
Loop

Range("c2".Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = ActiveCell.Offset(0, 2).Value Then
ActiveCell.Copy
ActiveCell.Offset(0, 2).PasteSpecial xlPasteAll
ActiveCell.Offset(0, -2).Select
Application.CutCopyMode = False
End If
ActiveCell.Offset(1, 0).Select
Loop

Range("d2".Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = ActiveCell.Offset(0, 1).Value Then
ActiveCell.Copy
ActiveCell.Offset(0, 1).PasteSpecial xlPasteAll
ActiveCell.Offset(0, -1).Select
Application.CutCopyMode = False
End If
ActiveCell.Offset(1, 0).Select
Loop

Range("a65536".End(xlUp).Offset(1, 4).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("a1".Select


End Sub