Obtener la ultima celda con datos

Como obtener la ultima fila con datos, dentro de un Rango:

Ejemplo:

Tengo el rango Range("C11:I18") en el cual algunas Celda contienen datos, pero la Celda G18 es la ultima con Datos, como obtener la ultima línea en este caso es la 18, esto en una Macro.

Respuesta

This method works like pressing Ctrl+End on your keyboard. When you press Ctrl+End on your keyboard, it will always take you to the last row no matter where you are

1 respuesta más de otro experto

Respuesta
2

Suponiendo que tienes datos en la fila 10.

Prueba esto:

Sub ultimafila()
  Dim lr As Long
  lr = ActiveSheet.Range("C11:I18").Find("*", , xlValues, , xlByRows, xlPrevious).Row
End Sub

Hola Dante

He ejecutado el código recibido, le ingreso un Msgbox Ir y no muestra nada, la idea que el código muestre la ultima línea con datos, como en el ejemplo enviado línea 18.

Dices: "como en el ejemplo".

No pusiste ningún ejemplos.

Podría ser así:

Sub ultimafila()
  Dim lr As Long
  lr = ActiveSheet.Range("C11:I18").Find("*", , xlValues, , xlByRows, xlPrevious).Row
  msgbox lr
End Sub

Te muestro un ejemplo:

Dante eso es la instrucción que le he agregado (Msgbox Ir) y no muestra ningún Valor

Nota  El Código lo estoy haciendo con Excel 2003. 

Revisa mi ejemplo. Trata de replicarlo en tu hoja y ejecuta el código.

También sería conveniente si pones tu imagen para que yo pueda revisar tus datos.

Dante.

He cerrado a Excel y lo he abierto de nuevo y funciona tu código.

Gracias por tu ayuda.

Disculpa la demora de mi repuesta pero he tenido fallas con el Internet.

[No te preocupes. Encantado de ayudarte, gra cias por comentar.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas