ultima celda

16/11/2004 - 18:36 por Aprendiz | Informe spam
Buenas tardes
Tengo varias hojas en un libro de excel (+ de 60) que las tengo relacionadas
en la hoja "Indice hojas" del mismo libro.
Para acceder a ellas las estoy listando (con una macro del foro) en dicha
hoja "Indice hojas" a medida que voy agrandando el libro. Tienen un
hipervinculo a cada una de ellas desde dicho indice pero cuando el
hipervinculo la abre lo hace en la celda A1 ó donde yo he modidicado ya "a
mano" la celda indicada en el hipervinculo.
Según creo necesito conocer la última celda que se ha escrito de cada hoja
excel para modificar el hipervinculo que la abre y se sitúe en esa última
celda.
¿Cómo se puede hacer automaticamente?. ¿Me podeis facilitar el código?
Puede suceder que la última celda no corresponda a la última fila, sino que
esté situada en un espacio mas a la derecha es decir en la columna M y fila
65 por ejemplo.
Muchas gracias
José Rafael
 

Leer las respuestas

#1 Héctor Miguel
16/11/2004 - 22:56 | Informe spam
hola, Aprendiz !

... varias hojas en un libro ... (+ de 60) ... relacionadas en la hoja "Indice hojas" del mismo libro.
... las estoy listando (con una macro del foro) ... a medida que voy agrandando el libro.
... un hipervinculo a cada una ... la abre ... en la celda A1 o donde yo he modidicado ya "a mano" la celda indicada [...]
... necesito conocer la ultima celda ... de cada hoja ... para modificar el hipervinculo que ... se situe en esa ... celda [...]



[como yo 'lo veo'...] seria necesario 'estar monitoreando' la ultima celda ->de cada hoja<- [constantemente?]
y... 'andar cambiando' [aun por codigo] la celda 'seleccionable' de cada una de ellas... resultaria en codigo 'extenso' :(
una alternativa [que 'se me ocurre' sugerirte] es...
1.- 'deja' que el hipervinculo 'se vaya' a la celda 'A1' de cada hoja de tu 'indice'.
2.- copia/pega las siguientes lineas en el modulo de codigo ->del libro<- [ThisWorkbook ?]
3.- toma en cuenta que la 'ultima' celda de cada hoja dependera de si [dicha celda] tiene/tuvo datos ->en la sesion<-
[ya comentaras que cambios resultan necesarios, como alguna columna en especial, etc.]

saludos,
hector.
en el modulo de codigo del libro ==Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Indice hojas" Then Exit Sub
Sh.Cells.SpecialCells(xlCellTypeLastCell).Select
End Sub

Preguntas similares