Dato rescatado de celda
Hola experta: como puedo traspasar el resultado de una fórmula de la celda X1 a un textbox, ¿y luego que se traspase este valor a otra celda A2? El código del textbox que no funciona lo tengo así:
Private Sub TextBox1_Change()
TextBox1.Value = Range(X1).Value
Range("A2").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub
tampoco me funcionó con ActiveCell.FormulaR1C1 = Value
Gracias de antemano.
Private Sub TextBox1_Change()
TextBox1.Value = Range(X1).Value
Range("A2").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub
tampoco me funcionó con ActiveCell.FormulaR1C1 = Value
Gracias de antemano.
1 Respuesta
Respuesta de sandra155
1
Prueba con esta a mi me funciono una ves y no me quiere funcionar
Private Sub TextBox1_Change()
Worksheets("Hoja1").Range("x1").Select
TextBox1.Value = Worksheets("Hoja1").Range("x1")
Range("A2").Select
ActiveCell = TextBox1.Text
End Sub
Estoy segura que funciona asi:
Private Sub CommandButton1_Click()
Worksheets("Hoja1").Range("x1").Select
TextBox1.Value = Worksheets("Hoja1").Range("x1")
Range("A2").Select
ActiveCell = TextBox1.Text
End Sub
Pero tienes que agregar un botón o agregar el código al botón que tengas
Private Sub TextBox1_Change()
Worksheets("Hoja1").Range("x1").Select
TextBox1.Value = Worksheets("Hoja1").Range("x1")
Range("A2").Select
ActiveCell = TextBox1.Text
End Sub
Estoy segura que funciona asi:
Private Sub CommandButton1_Click()
Worksheets("Hoja1").Range("x1").Select
TextBox1.Value = Worksheets("Hoja1").Range("x1")
Range("A2").Select
ActiveCell = TextBox1.Text
End Sub
Pero tienes que agregar un botón o agregar el código al botón que tengas
