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.

2 Respuestas

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.

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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas