Copiar texto en un cuadro de texto
Quisiera copiar en un cuadro de texto el dato que ponga en la casilla A1, por ejemplo. Y si pongo otro valor en esa casilla A1 que se modifique el valor del cuadro de texto.
Pon la siguiente macro en los eventos de tu hoja, cambia en la macro A1 por la celda que desees:
Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Address(False, False) = "A1" Then TextBox1 = Target End If End Sub
Sigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- Del lado derecho copia la macro
'
S a l u d o s . D a n t e A m o r. Recuerda valorar la respuesta.
1 respuesta más de otro experto
Te paso la macro.
Lo que hace es:
Escribís el valor en la celda A1, pulsas enter y pasa el valor al textbox.
El textbox es activex.
Private Sub Worksheet_Change(ByVal Target As Range)
'Macro grabada por Macro_Leo
Range("A1").Select
TextBox1.Value = Target.Value
End Sub
Hola de nuevo Leo
Muchas gracias, la macro me ha servido de maravilla. Solo una cuestión. ¿Cómo hago para que en el TextBox me aparezcan siempre 2 decimales aunque sean ceros, por ejemplo; 24,00 ?. Creo que es alguna propiedad del Textbox pero no la encuentro.
Gracias de antemano. Un saludo, Rubén
Me alegro que te haya servido.
Te envió el código.
Private Sub Worksheet_Change(ByVal Target As Range)
'Macro grabada por Macro_Leo
Range("A1").Select
TextBox1.Value = Target.Value
With Me.TextBox1
.Value = Range("a1").Value
.Value = Format(.Value, "#,##0.00")
'con signos $
'.Value = Format(.Value, "$#,##0.00")
End With
End SubTe recuerdo que se responde una pregunta por cada petición.