Colocar datos de textbox en celdas desde botón (ciclo)

Se trata de que esto mismo, supone que ya los textbox están cargados con datos y ahora quiero pasarlos a una hoja excel del mismo libro con solo presionando un botón que los pase a la hoja "ingresos", esto lo estoy haciendo, pero necesito como hacer el bucle para que pase la la siguiente fila para seguir ungresando cada vez que presione el botón.?
Mi botón contiene lo siguiente, donde carece de ciclo, los datos van a caer donde mismo cada vez que presiono el botón.
Private Sub CommandButton1_Click()
Workbooks("EAC_in_Ver2.1.xls").Sheets("Ingreso").Activate
Range("A5") = TextBox3
Range("B5") = TextBox4
Range("C5") = TextBox1
Range("D5") = TextBox5
Range("E5") = TextBox7
Range("F5") = TextBox8
Range("G5") = TextBox10
Range("H5") = TextBox11
Range("I5") = TextBox9
End Sub

1 respuesta

Respuesta
1
Supongo que querés cargar los datos en la última fila disponible, si es así te paso el código
Private Sub CommandButton1_Click()
dim lFila as Long
Workbooks("EAC_in_Ver2.1.xls").Sheets("Ingreso").Activate
lFila = ActiveSheet.Range("A65500").End(xlUp).Row+1
Cells(lFila,1) = TextBox3
Cells(lFila,2) = TextBox4
Cells(lFila,3) = TextBox1
Cells(lFila,4) = TextBox5
Cells(lFila,5) = TextBox7
Cells(lFila,6) = TextBox8
Cells(lFila,7) = TextBox10
Cells(lFila,8) = TextBox11
Cells(lFila,9) = TextBox9
End Sub
Porque el código que tenés vos está "fijo" en la fila 5

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Introducir datos a celdas mediante formularios

Estaba viendo tu página y tengo la siguiente duda, tengo archivo excel con columnas ya definidas con encabezados, quiero introducir datos mediante un formularios, hice un macro introduce los datos en cada celda pero le doy grabar y da inserta un fila...
1 respuesta

Formularios VBA en excel

Estoy realizando un directorio y quisiera que a la hora de introducir mis datos en el formulario que ya he realizado me los clasifique en las distintas hojas que he creado para cada sector pero que tambien se quede registrado en la hoja principal que...
1 respuesta

Macro para colocar datos según cabecera de columna y fila ingresada.

Elabore un UserForm donde ingreso datos a una hoja de excel seleccionando los datos de un combobox y se va ingresando uno debajo de otro. Pero al tercer ingreso se empieza a grabar uno arriba de otro. Las columnas no siempre se llenan todas y...
1 respuesta

¿Cómo puedo buscar un dato en un textbox, con las fórmulas indirecto & coincidir?

Los amigos expertos de este excelente foro, la noche de hoy me he encontrado con una limitante en un pequeño procedimiento en un textbox, no lo he podido resolver y me siento un poco frustrado. Pido amablemente a ustedes me puedan ayudar con este...
1 respuesta

Case en excel

No soy muy experto en visual basic, cree un formulario para ingresar datos, y esa información la dividí en varias etapas. En la etapa uno, ingreso unos valores y todo bien, en el caso 2 lo primero que hago es buscar un dato para poder ingresar los...
1 respuesta

Cuando intento asignar el valor de un textbox a una celda excel me envía un error

Sucede que cuando intento asignar el valor de un textbox a una celda excel me envia un error y lo hago de la siguiente manera Sub Agregar() Sheets("Base").Select Range("B8").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select...
1 respuesta

Formato de Celda a Textbox (moneda y porcentaje)

Muchas gracias anticipados por la ayuda que me puedan facilitar, tengo el siguiente botón dentro de un UF, con su correspondiente código, como se puede observar al ejecutarlo me copia en una hoja de excel unos datos previamente seleccionados en dos...
1 respuesta

Imprimir los datos de consulta

Ahora puedes ayudarme... Mira Tengo la siguiente consulta... Lo que quiero es esta misma consulta imprimirla, que ya no se envíe a pantalla sino a la impresora... Besos Private Sub CommandButton1_Click() On Error GoTo noencontro...
1 respuesta