Hola:
Necesito saber como hacer que una macro, tome el valor de una celda determinada y la pueda pegar en un forma (Rectangulo), y que esta dependiendo del valor le cambie el color, por ejemplo si el valor es mayor al de la celda le ponga color verde, si el valor de la celda ascila entre un rango determinado le asigne el color amarillo y si es menor de ese rango le asigne el color rojo.
saludes.
para que una forma tome el valor de una celda no necesitas ninguna macro, simplemente indíca la referencia en la barra de fórmulas
en cualquier caso, si quieres estabelcer el valor mediante una macro, utiliza
tuforma.TextFrame2.TextRange.Text
para establecer una fórmula selecciona la forma y luego define la fórmula para la selección
tuforma.Select
Selection.Formula = "=$E$2"
una vez seleccionada también puedes leer el valor con
Selection.Text
Respecto de cambiar el color, se trataría de emular el comportamiento del formato condicional de las celdas pero para una forma. en este caso las formas no tienen formato condicional.
tendrás que comparar la propiedad anterior con el valor que sea y aplicar el color
por ejemplo:
ActiveSheet.Shapes.Range(Array("1 Rectángulo")).Select
If Selection.Text = "hola" Then
With Selection.ShapeRange.Fill
.ForeColor.RGB = RGB(0, 128, 0)
End With
Else
With Selection.ShapeRange.Fill
.ForeColor.RGB = RGB(256, 256, 256)
End With
End If
------
Ya sé Excel, pero necesito más.
Muchas Gracias.
Si tienes razon, no se necesita una macro para que la forma tome el valor de la celda (No sabia que se podia hacer de este modo, Gracias), y lo del color, pues intentaré hacerlo de esa forma.
Y en un grafico se puede cambiar los colores de acuerdo a ciertos valores de manera automática.
Saludes y nuevamente gracias por la ayuda.
Los gráficos no tienen formato condicional, pero hay trucos, como estos que enseña Jon Peltier en su web
ve a la página principal y busca un truco en su web sobre conditional formating of excel charts (hay muchos recursos)
Aquí tienes más resultados sobre formato condicional en gráficos en inglés
y sobre formato condicional de gráficos en Español
------
Ya sé Excel, pero necesito más.