Consulta formulario

Hola tengo un formulario excel con la siguiente configuración en el botón ingresar o CommandButton ingresar,... Lo que sucede es que al ingresar lineas de datos, lo hace desde la linea 2 hacia abajo y ahora necesito que los ingrese desde la linea 4 hacia abajo y no se cual es la arte que hay que modificar o agregar o quitar. Bueno solo eso aquí esta la configuración..
Muchas gracias
Saludos
Bendiciones
Private Sub CommandButton1_Click()
Dim strfila$
'activamos la hoja 1 donde se encuentran los datos
Worksheets("hoja1").Activate
'desprotegemos la hoja1 para que se ingresen los nuevos datos
Worksheets("hoja1").Unprotect
' Selection.End(xlUp).Select
Dim fila As String
'verificamos que todos los campos esten llenos
If TextBox1 = Empty Or TextBox2 = Empty Or TextBox3 = Empty Or TextBox4 = Empty Or TextBox5 = Empty Or ComboBox1 = Empty Then
MsgBox prompt:="No deje ningun campo vacio", Buttons:=vbOKOnly, Title:="Campo vacio"
GoTo seguir
End If
'verificamos que el campo de edad sea numerico
If Not IsNumeric(TextBox4) Then
MsgBox prompt:="Ingrese una edad numerica", Buttons:=vbOKOnly, Title:="Edad"
TextBox4 = Empty
GoTo seguir
End If
'verificamos que se ingrese una edad razonable
If TextBox4.Value <= 0 Or TextBox4.Value >= 120 Then
MsgBox prompt:="Ingrese una edad adecuada", Buttons:=vbOKOnly, Title:="Edad"
TextBox4 = Empty
GoTo seguir
End If
[A65536].End(xlUp).Offset(1, 0).Select
strfila$ = ActiveCell.Row
ActiveCell = Val(TextBox5)
Range("b" + strfila$) = TextBox1
Range("c" + strfila$) = TextBox2
Range("d" + strfila$) = TextBox3
Range("e" + strfila$) = ComboBox1
Range("f" + strfila$) = Val(Round(TextBox4, 0))
Worksheets("hoja1").Protect
Range("a1").End(xlDown).Select
TextBox5 = ActiveCell.Value + 1
TextBox1 = "": TextBox2 = "": TextBox3 = "": TextBox4 = "": ComboBox1 = ""
Exit Sub
Seguir:
TextBox1.SetFocus
End Sub

1 respuesta

Respuesta
1
La línea que dice: [A65536].end(xlup).offset(1,0).select
Lo que hace es posicionarse en la primer fila libre recorriendo la col A desde abajo hacia arriba.
Si tenés títulos en A1 y nada más hacia abajo, te dará como fila libre la 2. Pero si tenés datos hasta A3 automáticamente te dará como fila libre la 4.
Si tu idea es dejar algunas filas libres y comenzar con los datos en A4 debieras a continuación de esa línea agregar esta otra:
if activecell.row < 4 then Range("A4").select
* Todos estos temas los encontrarás aqui

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

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

Formato condicional actualizable.-

Tengo una formulario al cual me extrae de una base de datos, fechas de vencimiento al cual he logrado que en el textbox que las trae me refleje el color rojo con el cual esta en la base de datos, la base de datos esta con un formato condicional el...
1 respuesta

Ingr datos en userform y guardarlos en otro libro

Tengo este código que copie de alguna pregunta la cual me resulta muy útil, sin embargo, quisiera que al capturar los datos desde el libro donde abro el userform los guarde en otro libro. Esto lo uso para una lista de clientes. Saludos cordiales....
2 respuestas

CheckBox

Tengo una base de datos creado en un userform con textbox, combobox, etc., toda la información que ingresa me lo manda a la hoja uno al darle insertar con un commandbutton, también con otro commandbutton con el nombre de buscar, encuentra la...
2 respuestas

Formulario con 2 combobox y guardar datos en diferente libro

Un mega favor esperando que me puedas ayudar Tengo un formulario con 2 combobox los cuales el primero Con el siguiente código Private Sub UserForm_Activate() 'Captura datos y guarda en empresa ws_Count = ActiveWorkbook.Worksheets.Count For i = 1 To...
1 respuesta

Porque se activa solo el primer MsgBox

Tengo el siguiente código. Los if se activan cuando le doy click a un commandbutton que tengo en un UserForm, lo que sucede es que si se cumple el segundo if que tiene msgbox, el msgbox que se muestra es el de la primera condición, ¿Por qué pasa...
1 respuesta

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

Macro para bajar renglones

Me podrías ayudar con una macro que realize la siguiente función: Tengo un useform que pone datos en la celdas, y le hice un botón de aceptar, lo que quiero que haga ese botón es que me pocisione en la siguiente celda, por ejemplo: Escribo datos en...
2 respuestas

Copiar datos a hojas desde formulario con 2 paginas

Tengo un UserForm que quiero utilizar como formulario, para introducir datos a dos hojas distintas (Hoja1 y Hoja2); de tal manera que los datos que introduzca en los distintos TextBox y ComboBox, de la "Page1" del UserForm se copien en la Hoja1; y...
1 respuesta

Problemas con formato fecha en textbox

Primero que todo agradecido por las enseñanzas, soy novato y estoy aprendiendo solo con estos foros. Tengo el siguiente problema: tengo varios textbox y uno de ellos con formato de fecha, cuyo código es el siguiente: Private Sub...
1 respuesta