Última celda de Range

hola, ?

... tengo una variable de tipo Range, llamada codigos.
En esta variable se encuentra el rango seleccionado por el usuario, solicitada por una macro
Y me gustaría saber cual es la ultima celda del rango.

ya tienes algunas propuestas en tu 'siguiente' consulta :))
puedes agregar la siguiente [continuamos con el supuesto de que ya esta 'seleccionado' un rango de mas de una celda]...

Sub Ultima_celda_en_rango_continuo()
MsgBox Mid(Selection.Address, InStr(Selection.Address, ":") + 1)
End Sub

si la seleccion es de solo una celda... o de varios rangos NO-contiguos... [va a ser necesario otro tipo de codigos] :))

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

hola Hector Miguel

esto (para mi) es casi como sacar oro del carbon ->>

Sub Ultima_celda_en_rango_continuo()
MsgBox Mid(Selection.Address, InStr(Selection.Address, ":") + 1)
End Sub

y ahora, permiteme inmiscuirme con una consulta/duda ->>

si la seleccion es de solo una celda... < .. >... [va a ser necesario otro tipo de codigos] :))

en mis pruebas (con .rows.count, .columns.count) aparentemente devuelve
la celda sin problemas, aun siendo unica. ¿existe la posibilidad de
que surja algun tipo de inconveniente usando estos codigos con una sola
celda?¿quizas en situaciones determinadas?

la verdad es que tus palabras me han hecho darle vueltas al tema, pero
no logro verlo. Si puedes aclararme la duda, te lo agradezcere una vez
mas

un saludo y hasta pronto
Ivan

PD -> (y casi principal motivo de este post) aunque no sea yo un amante
de estas fiestas, espero que tanto tu, como la gente a la que estimas
paseis unas felices fiestas, y, como dice una cancion, que el 2007 te
vaya 'bonito'. Feliz año nuevo.

PPD-> lo anterior lo hago extensible a todas las gentes del foro. Un
saludo.

hola, Ivan !

... una consulta/duda ->>

si la seleccion es de solo una celda... < .. >... [va a ser necesario otro tipo de codigos] :))

en mis pruebas (con .rows.count, .columns.count) aparentemente devuelve la celda sin problemas, aun siendo unica.
existe la posibilidad de que surja algun tipo de inconveniente usando estos codigos con una sola celda?
quizas en situaciones determinadas?
... tus palabras me han hecho darle vueltas al tema, pero no logro verlo...

[en realidad] me referia exclusivamente al 'metodo' de mi propuesta :))
[ademas] las probabilidades de falla, podrian ser ocasionadas por 'trabajar' con el objeto 'Selection' [que no tiene por que ser un rango] :-(
[p.e.] incrusta un objeto cualquiera en una hoja {+} selecciona despues las celdas 'A1' y 'C3' {+} vuelve a seleccionar el objeto incsustado
-> y prueba con la siguiente macro [nota que si usaras SOLO la linea con el msgbox... el codigo fallaria por no tener seleccionado un rango]:

Sub Seleccion_actual()
Dim Actual As Object
If TypeName(Selection) <> "Range" Then _
Set Actual = Selection: ActiveCell.Activate
MsgBox Selection.Address
If Not Actual Is Nothing Then _
Actual.Select: Set Actual = Nothing
End Sub

[ahora] 'regresando' con la situacion de los rangos no-contiguos [y la seleccion de celdas en este ejemplo: 'A1' y 'C3']...
-> cual 'debiera' ser considerada como 'la ultima celda del rango seleccionado' ???
la fila 3... o la columna 3 ??? [A1 o C3] [te lo dejo 'de tarea'] :))

saludos,
hector.

PD -> (y casi principal motivo de este post) aunque no sea yo un amante de estas fiestas
espero que tanto tu, como la gente a la que estimas paseis unas felices fiestas
y, como dice una cancion, que el 2007 te vaya 'bonito'. Feliz año nuevo.
PPD-> lo anterior lo hago extensible a todas las gentes del foro. Un saludo.

Re: PPD -> aun cuando no te consideres un 'amante de estas fiestas' [aunque lo pones como -casi- 'principal motivo'] :D
[que yo sepa]... nunca ha hecho daño tener/ofrecer deseos de paz y felicidad [en cualquier epoca] ;)

-> 'te devuelvo' tus deseos [NO por 'desprecio'... sino en correspondencia] :D
y porque haya epocas de realizacion plena, no hasta/por/... el proximo 2007... sino desde ya mismo, y por siempre ;)

hola [de nuevo], Ivan ! [fe de erratas] :-((

en la seleccion de 2 celdas expuse en el post 'A1' y 'C3'
-> debio ser 'A3' y 'C1' [fila 3 <-> columna 3] :D [perdon] :))

saludos,
hector.

hola de nuevo, Hector Miguel, y gracias por aqui tambien

solo un par de cosas,->

1.-aunque me confundio el plural, el malentendido ha dado buenos
frutos. -> Ya tengo la tarea en mi 'lista de ejercicios'

2.->> y porque haya epocas de realizacion plena, no hasta/por/... el
proximo 2007... sino desde ya mismo, y por siempre ;)


un saludo y hasta pronto
Ivan