Actividad pública reciente
Ha valorado "Excelente" la respuesta
Dar valor a na celda según el color de la celda adyacente
Puedes usar esta función. Function valorcolor(x) c = x.Interior.ColorIndex Select Case c Case 5 valorcolor = 1 Case 6 valorcolor = 2 Case 3 valorcolor = 3 Case 50 valorcolor = 4 End Select End Function Tomado de...