En este ejemplo aprenderás cómo vincular una forma (cuadro de texto, llamada, etc) a una celda, es decir el texto o número que contiene la forma es el que esté en la celda.
Dibuja una llamada por ejemplo , selecciónala y en la barra de fórmulas escribe igual = “y la celda”, por ejemplo: =$D$5, de esta forma cuando modifiques el contenido de la celda D5 con la palabra Aceptable, se cambiará el de la forma con esa palabra.
En el ejemplo siguiente lo hemos aplicado a un gráfico, así cuando cambien el Importe
y Observaciones en la tabla, se cambiará en el gráfico.
Anuncios
He aplicado este truco, y el resultado es genial, ya que mensualmente tenía que modificar las cifras mensualmente
Hola. ¿como puedo hacer para que la cifra dentro del cuadro de texto vinculada, aparezca en rojo si es negativo?, la opción de formato de celdas no la veo activada.
Hola, muchas gracias por visitar mi blog, espero te resulte interesante.
En efecto se desactiva las opciones de formato, una forma que se me ocurre para que en la forma cambie el color de la cantidad si es negativo, puede ser con VBA:
En este ejemplo cambiamos una forma la Llamada rectangular 2:
If Range(“c6”).Value < 0 Then 'Suponemos que el importe está en la celda C6, cuando cambie éste cambiará en la forma
ActiveSheet.Shapes.Range(Array("Rectangular Callout 2")).Select
With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
.ForeColor.RGB = RGB(255, 0, 0) ' Negativo Rojo
End With
Else
ActiveSheet.Shapes.Range(Array("Rectangular Callout 2")).Select
With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
.ForeColor.RGB = RGB(0, 0, 255) 'Positivo Azul
End With
End If
No se puede escribir formula dentro de un comentario?
Hola , podrías añadir el resultado de una fórmula al comentario con Vba, de manera que por ejemplo te muestre la suma de las celdas A6:A8. Te dejo el código:
Sub FormulaToComment()
Dim vResult As Long
vResult = Application.Sum(Range(Cells(6, 1), Cells(8, 1)))
With Worksheets(1).Range(“A2”).AddComment
.Visible = True
.Text “El resultado de la fórmula es: ” & vResult
End With
End Sub
Hola no se si se puede hacer con una macro pero necesitaba por favor que el contenido del cuadro de texto me lo trasladara a una celda, tengo entre las filas 9, 10 y 11 y entre las columnas C y CH cuadros de texto con distintos tamaños pero no se salen de ese entorno que he puesto, y necesitaba que su contenido que se va variando lo pusiera en la fila 10 desde la columna CP en adelante tantas celdas como cuadro de texto encuentre.
Gracias
Puedes pasar el comentario de un cuadro de texto a una celda con código Vba. Lo único que necesitas es conocer el nombre del cuadro de texto. Un truco es que grabes la macro y al seleccionar cada cuadro de texto te escribirá su nombre.
El código es este, tendrías que hacer uno para cada cuadro de texto. TextBox 3
Sub TextBox_a_celda()
Dim a As Variant
‘Seleccionar el cuadro de texto
ActiveSheet.Shapes.Range(Array(“TextBox 3”)).Select
‘Añadimos el contenido a una variable
a = Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text
‘Ahora pasamos a la celda G11 el texto.
Range(“G11”) = a
End Sub
Gracias por seguir el blog
No se si hay posibilidad de que no sea una macro para cada cuadro de texto.
Gracias
Si con un loop que incremente el número de cada cuadro de texto.
Yo deseo copiar el texto de una forma a una celda…como puedo hacerlo ??
Hola en los comentarios, Antonio hace una pregunta como la tuya, con código VBA puedes resolverlo, en la respuesta lo puedes ver.