Vincular un cuadro de texto a una celda

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.

VincularCuadro a celda2

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.

VincularCuadro a celda3

Anuncios

15 comentarios en “Vincular un cuadro de texto a una celda

  1. 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

    • 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

  2. 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

  3. 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.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s