Foro
=> ¿No se ha registrado todavía?MAS EN: EXCEL AVANZADO
Foro - ayuda por favor
Se encuentra aqui: Foro => Macros => ayuda por favor |
|
andreubuka (Hasta ahora 1 Post) |
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. | |||
Soprte Tecnico (Visitante) |
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 |
Respuesta:
Temas totales: 40
Entradas totales: 95
Usuarios totales: 208
En este momento conectados (usuarios registrados): Nadie