PabloM publicó en la clase Disposición de elementos hace 2 meses
Hola! ¿Es posible aplicar un formato condicional al cuadro de texto vinculado a una celda para cambiar el color del valor? Ejemplo, en este video el cuadro de texto que trae el valor 1000 de una celda del libro. ¿Es posible hacer que, si el dato de la celda es menor a 1000, entonces que la fuente sea de color rojo y si es mayor o igual a 1000 que aparezca en verde? Probé con poner formato condicional a la celda y funciona en ella pero no se traslada el formato al cuadro de texto vinculado. Gracias.
Respuestas
JuliaBravo490 respondió hace hace 2 meses:
Hola, Pablo.
¡Qué buena pregunta! Esto es posible hacerlo usando una macro. Si estás familiarizado con macros puedes usar el siguiente código:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B7")) Is Nothing Then
With ActiveSheet.Shapes("CuadroTexto 1").TextFrame2.TextRange.Font
If Range("B7").Value < 1000 Then
.Fill.ForeColor.RGB = RGB(255, 0, 0) ' Rojo
Else
.Fill.ForeColor.RGB = RGB(0, 128, 0) ' Verde
End If
End With
End If
End Sub
*Adapta el código, cambiando la referencia a la celda y el nombre de la forma usada. Inserta el código en la misma hoja donde tienes la forma.
Pruébalo y nos dejas saber si te funciona.
Saludos,
Julia
Equipo Deztaca
¡Qué buena pregunta! Esto es posible hacerlo usando una macro. Si estás familiarizado con macros puedes usar el siguiente código:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B7")) Is Nothing Then
With ActiveSheet.Shapes("CuadroTexto 1").TextFrame2.TextRange.Font
If Range("B7").Value < 1000 Then
.Fill.ForeColor.RGB = RGB(255, 0, 0) ' Rojo
Else
.Fill.ForeColor.RGB = RGB(0, 128, 0) ' Verde
End If
End With
End If
End Sub
*Adapta el código, cambiando la referencia a la celda y el nombre de la forma usada. Inserta el código en la misma hoja donde tienes la forma.
Pruébalo y nos dejas saber si te funciona.
Saludos,
Julia
Equipo Deztaca