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.
Hola, tengo un cuadro de texto al cual le he ingresado un resultado previo obtenido en otra celda, es decir inserte un cuadro de texto, fui a la barra de formula, puse igual =A22 que es donde tengo el resultado de una operación, y ahora sobre el mismo cuadro de texto con el resultado insertado quiero ponerle un asunto al lado izquierdo, es decir Costos totales: =A22 y no me permite, tengo excel 2013.
Hola Juan, hace poco en uno de mis cursos presenciales estuvimos resolviendo esa necesidad, la celda que contiene el resultado que quieres mostrar en el cuadro de texto debe tener Formato Personalizado.
Escribe en: Botón derecho > Formato de Celdas > Personalizadas >Tipo –> “Costos totales:” #.###,00
Con esto conseguirás añadir el texto al valor que haya en la ceda A22. Por ejemplo: Costos Totales: 320,52
Gracias por seguir el blog ExcelTrucos
Excelente, el resultado fue positivo, efectivamente lo pude hacer, pero necesito realizar lo mismo pero ahora en un cuadro de texto…poder traer un resultado de otra celda y a la vez colocarle texto a la izquierda…de antemano gracias.
Hola Juan, dibuja el cuadro de texto y vincúlalo con la celda, si la celda tiene formato el cuadro de texto lo tendrá también.
Disculpa y no se puede añadir texto al cuadro de texto sin borrar la referencia? he visto un vídeo y la verdad no se cómo lo ejecuta?…https://www.youtube.com/watch?v=IgQGJVl6J90 min: 31:45
Hola en el vídeo hace lo mismo que en este post, lo único que coge los datos de otra hoja.
Gracias por seguir exceltrucos.com
Muchas gracias! Muy claro!