Ultima fila con datos

[uslico]

tengo estas dos lineas donde el area es de la celda a1 a la Q5000, como puedo hacer
hacer para que seleccione desde la A1 a la ultima fila con datos por que varia constantemente...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[inocampo]

Sub Inocampo()
Dim ult As Integer
ult = Application.WorksheetFunction.CountA(Range("A:A"))
'El valor anterior le contara en la hoja 1 3 registros asi el ultimo registro es
'la fila 3, de alli en...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[zato]

Necesito exactamente lo mismo, saber que celda tiene el ultimo dato pero los rangos no son continuos. Una ayudita por favor.

 

[galileogali]

Suponiendo que no hay nada debajo de la ultima linea que se desea imprimir, puedes usar esto
ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

 

[Adrian]

Hola, frecuentemente utilizo esto (supiendo que los datos estan en el rango A1:B?
es decir varia,

Dim Ult_Fila As Integer
Ult_Fila = Range("A65536").End(xlUp).Row
'Ahora selecciono mi...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[zato]

Adrian, tu código no me sirve porque mi lista tiene saltos.

galileogali, tampoco me sirve tu solución porque va hasta el final no solo de las que tienen datos sino al final de las que tienen...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[ioyama]

Hola zato

¿Porqué no pones un ejemplo de tu lista y qué es lo que deseas exactamente? (lo digo porque sólo con la pregunta inicial que has hecho desde mi punto de vista alguna de las respuestas...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[sailepaty]

Puede que algo así­ te funcione,

Sub LastUsedRow()
    Dim lColNum     As Long
    Dim lLastRow    As Long
    lLastRow = 0
    For lColNum = [color=red]1[/color] To...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Hola, otra alternativa:

Sub UltimaFila()
Dim Columnas As String, i As Integer, Ult_Fila As Integer, Col As String
Columnas = "abcdefghijklmnopqrstuvwxyz" 'las colums q intervienen
For i = 1 To 26...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[zato]

Perfecto, sailepaty. Eso era lo que necesitaba, muchas gracias.