En Excel, con form ejecutandose, que siempre sea visible la ultima linea de datos ins

[JoaoM]

Explico: Ejecuto un formulario para insertar datos en una hoja Excel, pueden ser 20 líneas, 40, 100, 150 o más aun.

Voy insertando desde el formulario hasta que llega a LA ULTIMA FILA VISIBLE en pantalla de la hoja.

Al seguir insertando, dejo de ver la línea donde esta insertando porque ya paso la cantidad de líneas VISIBLES de la hoja en pantalla.

Al seguir insertando y querer seguir viendo lo que inserto, tengo que; insertar, cerrar formulario y jalar la hoja hacia arriba. Volver a abrir formulario y seguir insertando.

¿Alguna forma, macro en la hoja o algo similar para evitar lo anterior? Que siguiendo insertando, llegando a la ultima fila visible de la hoja esta vaia auto-subiendo 1, 2 o 3, ¿o 5 líneas para no tener que cerrar el formulario y subir manualmente la hoja?

No quisiera colocar la propiedad del form ShowModal = false, mantenerlo siempre en True.

Se que teniendo en False puedo manualmente subir la hoja y también ejecutar otras cosas pero eso no lo quisiera.

[Triby]

Activa la primera celda de la fila insertada, ejemplo:

Código vb:

Sheet1.cells(fila,1).Activate
Sheet1.cells(fila,1) = "Contenido de la celda"
 

[JoaoM]

Hola tribi
perdona mi ignorancia y desconocimiento

¿Donde coloco estas 2 lineas?
Las coloque al final del codigo del boton que inserta los datos y me da error

Código:

Sheets(1).cells(fila,1).Activate
Sheets(1).cells(fila,1) = "Contenido de la celda"

donde dice "Contenido de la celda" es para colocarle que?

Soy desconocedor de este tipo de trabajos, la plantilla la he estado usando como antes, cerrando formulario y jalando l hoja hacia arriba y volviendo a abrir formulario por desconocimiento.

Si pudieras ser un poco mas explicito, te estaria agradecido
Gracias

[Triby]

Pues si tú fueras más explícito, mostrando algo de código, la respuesta vendría en la misma forma.

Muestra cómo insertas la línea en la hoja y ahí veremos como aplicar la sugerencia.

[JoaoM]

Iniciado por Triby

Pues si tú fueras más explícito, mostrando algo de código, la respuesta vendría en la misma forma.

Muestra el codigo de cómo insertas la línea en la hoja y ahí veremos como aplicar la sugerencia.

Te falto el rojo para que se entienda mejor y total

Te entiendo lo de dejar algo de codigo, cosa que de mi parte es nulo mi conocimiento en programacion. Cuando te refieres a codigo pienso que es codigo que ya este para tal funcion y no otro.
Si podria ser el codigo que inserta los datos mediante un boton pero ¿saber que es o era eso?

Ok, segunb pude llegar conclusion derspues de haber recibido la ayuda requerida, no hace falta otros codigos y si el evento donde colocar la rutina.
Es el caso del boton que inserta los datos y luego al final de todo el codigo que inserta los datos, jala (scrol) la hoja hacia arriba

Código:

        u = Range("B" & Rows.Count).End(xlUp).Row
        If ActiveWindow.FreezePanes = True Then n = 14 Else n = 21
        If u > 21 Then ActiveWindow.ScrollRow = u - n

Esto me lo facilito el amigo Dante Amor de la pagina TodoExpertos, un grand experto y BASTANTE conocedor en estos menesteres de Excel y VBA, así mismo de otros temas

http://www.todoexpertos.com/pregunta...ultima-ocupada
Aqui puedes ver el codigo, la pregunta y las respuestas al tema, asi mismo los comentarios dentro del codigo

Despues de todo esto, quiero agradecerte tu generosidad al poner tu tiempo en tratar de ayudar en dicho tema.
Respuestas que aunque no tengan repercicion positiva, hay que agrdecer aun sea solo por el tiempo empleado y la voluntad de ayudar.

Gracias Triby

Solucionado