exceletor

=si(e1<1;5,9;SI(e1<2;9,9;si(e1<6;14,9;19,9)))

Sub MacroColor() Application.ScreenUpdating = False Dim celdita, colsel As String * 1 colsel = InputBox("Columna", "Pregunta", "A") Range(colsel & "2").Select For Each celdita In Range(colsel & "2:" & colsel & "200") If celdita.Interior.ColorIndex =...