¿Como insertar un datos en una hoja en particular?
Hola "valeroasm" mi duda es la siguiente:
tengo este programa:
Range("E1") = TextBox1
For i = 5 To 58
Range("E" & i) = TextBox1
Next
end sub
El dato que inserto en el texbox1 lo inserta en cierta cantidad de celdas, sin embargo lo hace en cualquier hoja en la que me encuentre, lo que quiero es que solo lo haga en una hoja que tiene por nombre BASE1
Me imagino que podría utilizar la sentencia Worksheets("BASE1").Cells(i, 1).Value o algo parecido sin embargo me parece que existe un error. Espero que puedas asesorarme en eso, gracias
1 Respuesta
El código final depende de donde tengas la macro, los botones, etc. En mi caso creo un UserForm1 con el Textbox1 y un botón para rellenar. La subrutina para rellenar sería esta:
Private Sub CommandButton1_Click()
Dim i As Integer
Worksheets("BASE 1").Range("E1") = TextBox1
For i = 5 To 58
Worksheets("BASE 1").Range("E" & i) = TextBox1
Next
End SubCon Cells en lugar de Range también funciona
Private Sub CommandButton1_Click()
Dim i As Integer
Worksheets("BASE 1").Cells(1, 5) = TextBox1
For i = 5 To 58
Worksheets("BASE 1").Cells(i, 5).Value = TextBox1
Next
End SubY eso es todo, espero que te sirva y lo hayas entendido. Si no pregúntame. Y si ya está bien no olvides puntuar.
