Como imprimir en un cuadro de texto el valor de una celda

14/01/2015 - 21:47 por Cesar Vera | Informe spam
Hola a todos por sus aportes:
Acabo de unirme al grupo, actualmente manejo Excel 2013 y me gustaria saber como puedo imprimir en un texbox el valor de una celda.

Ya mire que el cuadro de formulas aparece el nombre de uno de ellos :
29 CuadroTexto , trate de hacer el cambio del nombre no funciono pero no funciono al igual que en promiedades titulo alternativo, y lo mismo en VBA.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
29 CuadroTexto = Hoja2!D7
End Sub

Me podrian ayudar?

Saludos

Cesar Vera.
 

Leer las respuestas

#1 David_erh
16/01/2015 - 20:49 | Informe spam
Hola Cesar ¿has probado anteponiendo el nombre del formulario antes del nombre del cuadro de texto?

Te dejo un ejemplo:
-crea un formulario nuevo de nombre "UserForm1"
-inserta un cuadro de texto de nombre "TextBox1"
-en el editor de VB pegas lo siguiente:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.TextBox1 = ActiveCell.Value
UserForm1.Show
End Sub

Con esto lograrás que en el Textbox del formulario figure el valor de al celda a la que haces click.

Si cambias la segunda linea por la siguiente:

UserForm1.TextBox1 = ActiveSheet.Range("A3")

Se mostrará el valor de al celda A3

Espero haberte ayudado, saludos

David


El miércoles, 14 de enero de 2015, 15:47:16 (UTC-5), Cesar Vera escribió:
Hola a todos por sus aportes:
Acabo de unirme al grupo, actualmente manejo Excel 2013 y me gustaria saber como puedo imprimir en un texbox el valor de una celda.

Ya mire que el cuadro de formulas aparece el nombre de uno de ellos :
29 CuadroTexto , trate de hacer el cambio del nombre no funciono pero no funciono al igual que en promiedades titulo alternativo, y lo mismo en VBA.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
29 CuadroTexto = Hoja2!D7
End Sub

Me podrian ayudar?

Saludos

Cesar Vera.

Preguntas similares