Ctrl+Fin = ultima celda con "datos"

Hola Isrrael, muchas gracias.

Voy a probarlo y a ver si consigo traducirlo a codigo para integrarlo en
una aplicacioncilla.

Muchas gracias.
Un saludo y hasta pronto
Ivan


Isrrael wrote:

hola!
Selecciona después de la última fila de datos, luego Shift+Fin, te deberá
seleccionar hasta la fila 65536. Luego con botón derecho del mouse sobre el
número de la fila borrar. De igual forma con las columnas. Intenta ahora ir
al último dato.
Saludos
"Ivan" wrote in message
news:
> Hola a todos.
>
> Sabe alguien si hay alguna manera de que las filas eliminadas lo sean
> realmente, o sea que por ejemplo al pulsar Ctrl+Fin se vaya a la ultima
> celda del rango usado realmente, con datos e incluso sin ellos (esquina
> inferior derecha (o cruce) de ultima columna y fila con datos?. Espero
> haberme explicado.
>
> Muchas gracias de antemano.
>
> Un saludo y hasta pronto.
> Ivan
>

Hola de nuevo, Isrrael

Como me temia, sigue sin funcionar, no se si tendre "esto" mal
configurado, pero aunque elimine todas las filas y columnas restantes,
sigue yendose a la casilla que alguna vez fue la ultima. Ej: la ultima
casilla que alguna vez ha tenido datos es la "K60" pero actualmente es la
"K4". A pesar de eliminar todas las filas a partir de la "4" y todas las
columnas a partir de "K" al dar Ctrl+Fin sigue seleccionando la casilla
"K60".

Por otro lado lo que me interesaria seria conseguirlo mediante codigo,
pues el cambio de rango va a ser continuo, y me interesa que cada vez que
alguien acceda a la hoja, probablemente tras añadir o quitar registros
desde un formulario, se considere como el ultimo el real (o sea el que
tenga datos realmente).

En cualquier caso muchas gracias
Un saludo y hasta pronto
Ivan



Ivan wrote:

Hola Isrrael, muchas gracias.

Voy a probarlo y a ver si consigo traducirlo a codigo para integrarlo en
una aplicacioncilla.

Muchas gracias.
Un saludo y hasta pronto
Ivan


Isrrael wrote:

> hola!
> Selecciona después de la última fila de datos, luego Shift+Fin, te deberá
> seleccionar hasta la fila 65536. Luego con botón derecho del mouse sobre

el

> número de la fila borrar. De igual forma con las columnas. Intenta ahora

ir

> al último dato.
> Saludos
> "Ivan" wrote in message
> news:
> > Hola a todos.
> >
> > Sabe alguien si hay alguna manera de que las filas eliminadas lo sean
> > realmente, o sea que por ejemplo al pulsar Ctrl+Fin se vaya a la ultima
> > celda del rango usado realmente, con datos e incluso sin ellos (esquina
> > inferior derecha (o cruce) de ultima columna y fila con datos?. Espero
> > haberme explicado.
> >
> > Muchas gracias de antemano.
> >
> > Un saludo y hasta pronto.
> > Ivan
> >

hola, Ivan !

Como me temia, sigue sin funcionar, no se si tendre "esto" mal configurado
pero aunque elimine todas las filas y columnas restantes, sigue yendose a la casilla que alguna vez fue la ultima.
Ej: la ultima casilla que alguna vez ha tenido datos es la "K60" pero actualmente es la "K4".
A pesar de eliminar todas las filas a partir de la "4" y... columnas a partir de "K" al dar Ctrl+Fin sigue seleccionando la casilla "K60".
Por otro lado lo que me interesaria seria conseguirlo mediante codigo, pues el cambio de rango va a ser continuo
y me interesa que cada vez que alguien acceda a la hoja, probablemente tras añadir o quitar registros desde un formulario
se considere como el ultimo el real (o sea el que tenga datos realmente).

1) cuando se eliminan filas/columnas en una hoja de calculo, se sigue conservando la 'memoria' de la ultima celda anterior :))

2) puedes borrar [o restablecer] la memoria para que apunte a la ultima celda 'real-actual' por alguno de los siguientes metodos:
a) guardar el archvo [ya sea por codigo o manualmente]
b) usar una instruccion por codigo +/- como sigue: -> worksheets("hoja2").usedrange o... activesheet.usedrange

3) si la 'ultima' celda tiene formatos personalizados [aun si se borran sus datos]... pudiera seguir apuntando hacia ella :(

4) si no quieres que 'te estorbe' algun formato personalizado en una celda 'vacia' que ya no es 'la ultima' [con datos]...
prueba con una funcion personalizada [vba] que NO puede ser utilizada como funcion de hoja de calculo [solo por codigo] ;)
p.e. en un modulo de codigo 'normal' ==Function UltimaCelda(Optional Hoja As Worksheet) As Range
If Hoja Is Nothing Then _
If TypeName(ActiveSheet) = "Worksheet" _
Then Set Hoja = ActiveSheet Else Set Hoja = Worksheets(1)
On Error Resume Next
Set UltimaCelda = Intersect( _
Hoja.Cells.Find("*", Hoja.Cells(1), xlValues, xlWhole, _
xlByRows, xlPrevious).EntireRow, _
Hoja.Cells.Find("*", Hoja.Cells(1), xlValues, xlWhole, _
xlByColumns, xlPrevious).EntireColumn)
If UltimaCelda Is Nothing Then Set UltimaCelda = Hoja.Cells(1)
End Function

la cual puedes 'llamar' [solo] desde codigo +/- como sigue:
-> prueba usando una celda 'vacia' pero con formato [fuente, trama, bordes, etc.] 'alejada' del ultimo dato 'real'...
Sub Cual_es_la_ultima_celda()
MsgBox UltimaCelda().Address & vbCr & _
Cells.SpecialCells(xlCellTypeLastCell).Address
End Sub

si cualquier duda [o informacio adicional]... comentas ?
saludos,
hector.

Hola Hector Miguel, muchas gracias de nuevo.

No he probado nada, pero me da la impresión de que la opcion con usedrange
puede ir bien, aunque todavia no he usado nunca esta expresion y tendre
que estudiarla un poquillo. Es para la hoja de libros seleccionados de la
libreria de marras, que como puedes suponer se redimensionara casi cada
vez que se use. En cualquier caso cuando pueda echarle un ojo si tengo
dudas te comento.

Un saludo y hasta pronto.
Ivan