Worksheets
Bien, ante todo hola:
He creado un libro excel que me calcula una serie de datos que necesito; el libro contiene más de 20 hojas.
Estoy intentando crear un formulario que me pregunte los datos de partida que necesito para los cálculos y los introduzca en la hoja adecuada.De tal forma que la darle a un botón se introuzcan esos datos.
He creado dicho botón y he probado con un dato, pero no soy capaz de hacer que funcione:
Private Sub CommandButton1_Click()
Worksheets("Datos").Range("E6").Select
ActiveCell.FormulaR1C1 = TextBox1
TextBox1 = Empty
TextBox1.SetFocus
End Sub
Me da error en la segunda fila (Work...)
El caso es qi lo hago solo con Range("E6"). Select y estoy en la hoja en la cuál tengo el dato si me lo introduce.
Lo que yo quiero es que estando en cualquier hoja me lo introzca en esa en concreto. He probado con("Hoja9")(9),...
A ver si puedes ayudarme que yo estoy pegado en esto del VB
Pd:he puesto este mismo mensaje en el tablón de anuncios, por si tu no puedes contestar.
He creado un libro excel que me calcula una serie de datos que necesito; el libro contiene más de 20 hojas.
Estoy intentando crear un formulario que me pregunte los datos de partida que necesito para los cálculos y los introduzca en la hoja adecuada.De tal forma que la darle a un botón se introuzcan esos datos.
He creado dicho botón y he probado con un dato, pero no soy capaz de hacer que funcione:
Private Sub CommandButton1_Click()
Worksheets("Datos").Range("E6").Select
ActiveCell.FormulaR1C1 = TextBox1
TextBox1 = Empty
TextBox1.SetFocus
End Sub
Me da error en la segunda fila (Work...)
El caso es qi lo hago solo con Range("E6"). Select y estoy en la hoja en la cuál tengo el dato si me lo introduce.
Lo que yo quiero es que estando en cualquier hoja me lo introzca en esa en concreto. He probado con("Hoja9")(9),...
A ver si puedes ayudarme que yo estoy pegado en esto del VB
Pd:he puesto este mismo mensaje en el tablón de anuncios, por si tu no puedes contestar.
1 Respuesta
Respuesta de tavopz
1
Disculpa la demora.
Si cambias las dos primeras líneas de tu código por:
Worksheets("Datos").Range("E6").Value = TextBox1
Es probable que te funcione. Porque antes estás cambiando de hoja, así que pierdes la referencia.
Si cambias las dos primeras líneas de tu código por:
Worksheets("Datos").Range("E6").Value = TextBox1
Es probable que te funcione. Porque antes estás cambiando de hoja, así que pierdes la referencia.
