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

11 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

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