Abrir un archivo excel y que muestre la ultima celda escrita

02/03/2007 - 13:46 por Ossevi | Informe spam

Hola,

En mi oficina se usa una Excel para registrar todos los faxes que salen.
Cada usuario, antes de mandar un fax, accede a la intranet, en el explorer
abre el registro y rellena una fila con datos tipo Departamento, persona,
etc... Del registro obtiene un numero que luego añadirá a la cabecera del
fax. (que antiguo no?)

El problema es que una vez abierto el registro de fax, el usuario tiene que
localizar manualmente la siguiente fila vacía para poder insertar sus datos y
obtener el numero en cuestión.

Hay manera abrir una hoja de calculo por la ultima casilla escrita?

Gracias por vuestra atención

Oscar

Siga el debate

9 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 Héctor Miguel

03/03/2007 - 01:30 | Informe spam

hola, Gustavo !

Perdon por "meter la cuchara", pero me parece que deberia quedar asi:
Sub Auto_Open()
Range("A1").End(xlDown).Offset(1, 0).Select
End Sub

yo tambien estoy metiendo la cuchara... :D [disculpas]

-> 've' la diferencia en las propuestas de la siguiente manera:
que sucederia si las primeras filas estan vacias [p.e. para algun logotipo o por simple 'maquillaje'] ?
o hubiera celdas vacias intercaladas en el rango real de los datos en el listado ?

1) hasta donde legarias partiendo de 'A1' con un xlDown ?
2) y si inviertes el punto de partida ? [a65536] con el xlUP ?

saludos,
hector.

Responder a este mensaje

#7 Gustavo Echenique

05/03/2007 - 15:40 | Informe spam

Hola Héctor:

Llegaría hasta la última fila ocupada, y luego con un Activecell.offset(1,0)
seleccionaría la siguiente fila que sería la vacía.

Tengo planillas que he resuelto con esa forma.

Saludos!

Gustavo

"Héctor Miguel" escribió en el mensaje
news:

hola, Gustavo !

Perdon por "meter la cuchara", pero me parece que deberia quedar asi:
Sub Auto_Open()
Range("A1").End(xlDown).Offset(1, 0).Select
End Sub

yo tambien estoy metiendo la cuchara... :D [disculpas]

-> 've' la diferencia en las propuestas de la siguiente manera:
que sucederia si las primeras filas estan vacias [p.e. para algun
logotipo o por simple 'maquillaje'] ?
o hubiera celdas vacias intercaladas en el rango real de los datos en
el listado ?

1) hasta donde legarias partiendo de 'A1' con un xlDown ?
2) y si inviertes el punto de partida ? [a65536] con el xlUP ?

saludos,
hector.

Responder a este mensaje

#8 AnSanVal

05/03/2007 - 21:22 | Informe spam

Ya puestos a "meter cuchara" ... :-) ...

Creo que el problema es: que está poniendo el código en un módulo ordinario,
cuando debe ponerlo en el modulo de ThisWorkbook.

Saludos desde Tenerife (España).
*******************************
"Gustavo Echenique" escribió en el mensaje
news:%

Hola Héctor:

Llegaría hasta la última fila ocupada, y luego con un
Activecell.offset(1,0) seleccionaría la siguiente fila que sería la vacía.

Tengo planillas que he resuelto con esa forma.

Saludos!

Gustavo

"Héctor Miguel" escribió en el mensaje
news:

hola, Gustavo !

Perdon por "meter la cuchara", pero me parece que deberia quedar asi:
Sub Auto_Open()
Range("A1").End(xlDown).Offset(1, 0).Select
End Sub

yo tambien estoy metiendo la cuchara... :D [disculpas]

-> 've' la diferencia en las propuestas de la siguiente manera:
que sucederia si las primeras filas estan vacias [p.e. para algun
logotipo o por simple 'maquillaje'] ?
o hubiera celdas vacias intercaladas en el rango real de los datos en
el listado ?

1) hasta donde legarias partiendo de 'A1' con un xlDown ?
2) y si inviertes el punto de partida ? [a65536] con el xlUP ?

saludos,
hector.

Responder a este mensaje

#9 AnSanVal

05/03/2007 - 21:24 | Informe spam

¡UFF!... no me fijé en lo de Auto_Open... :-((

Saludos desde Tenerife
*********************
"Gustavo Echenique" escribió en el mensaje
news:%

Hola Héctor:

Llegaría hasta la última fila ocupada, y luego con un
Activecell.offset(1,0) seleccionaría la siguiente fila que sería la vacía.

Tengo planillas que he resuelto con esa forma.

Saludos!

Gustavo

"Héctor Miguel" escribió en el mensaje
news:

hola, Gustavo !

Perdon por "meter la cuchara", pero me parece que deberia quedar asi:
Sub Auto_Open()
Range("A1").End(xlDown).Offset(1, 0).Select
End Sub

yo tambien estoy metiendo la cuchara... :D [disculpas]

-> 've' la diferencia en las propuestas de la siguiente manera:
que sucederia si las primeras filas estan vacias [p.e. para algun
logotipo o por simple 'maquillaje'] ?
o hubiera celdas vacias intercaladas en el rango real de los datos en
el listado ?

1) hasta donde legarias partiendo de 'A1' con un xlDown ?
2) y si inviertes el punto de partida ? [a65536] con el xlUP ?

saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida