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.
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.
1 respuesta más de otro experto
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.