Encontrar la ultima fila capturada

Hola parellano,

No se a que te refieres bajo "fila capturada", pero si es la ultima fila usada:

1) si te interesa la ultima fila con datos (los formatos no importan) en una columna, p.ej. la columna [A]:

Sub test()
Dim UFila As Long
With ActiveSheet
UFila=.Cells(.Rows.Count, "A").End(xlUp).Row
End With
MsgBox UFila
End Sub

2) si te interesa la ultima fila con datos en toda la hoja:

Sub test()
Dim UFila As Long
On Error Resume Next
With ActiveSheet
UFila = .Cells.Find("*", .Cells(1), _
xlValues, xlWhole, xlByRows, xlPrevious).Row
End With
MsgBox UFila
End Sub

3) si te interesa la ultima fila con datos o formatos en la hoja:

Sub test()
Dim UFila As Long
On Error Resume Next
With ActiveSheet
UFila = .Cells.SpecialCells(xlCellTypeLastCell).Row
End With
MsgBox UFila
End Sub

Saludos,
KL


"parellano" wrote in message news:

Buenos dias!!

Necesito ayuda!!!

Hola fijense que no se como hacer que por medio de una macro encuentre
la ultima fila capturada, para que desde la primer fila hasta ahi
(ultimafila) me pege el dato de yo quiero

Ojala y me puedan ayudar

Janett

Muchas gracias por su ayuda !!!

Dejenme lo uso en mi aplicación.

Saludos!!!

Perla Arellano


KL wrote:

Hola parellano,

No se a que te refieres bajo "fila capturada", pero si es la ultima fila usada:

1) si te interesa la ultima fila con datos (los formatos no importan) en una columna, p.ej. la columna [A]:

Sub test()
Dim UFila As Long
With ActiveSheet
UFila=.Cells(.Rows.Count, "A").End(xlUp).Row
End With
MsgBox UFila
End Sub

2) si te interesa la ultima fila con datos en toda la hoja:

Sub test()
Dim UFila As Long
On Error Resume Next
With ActiveSheet
UFila = .Cells.Find("*", .Cells(1), _
xlValues, xlWhole, xlByRows, xlPrevious).Row
End With
MsgBox UFila
End Sub

3) si te interesa la ultima fila con datos o formatos en la hoja:

Sub test()
Dim UFila As Long
On Error Resume Next
With ActiveSheet
UFila = .Cells.SpecialCells(xlCellTypeLastCell).Row
End With
MsgBox UFila
End Sub

Saludos,
KL


"parellano" wrote in message news:
> Buenos dias!!
>
> Necesito ayuda!!!
>
> Hola fijense que no se como hacer que por medio de una macro encuentre
> la ultima fila capturada, para que desde la primer fila hasta ahi
> (ultimafila) me pege el dato de yo quiero
>
> Ojala y me puedan ayudar
>
> Janett
>

Hola Janett, creo que te puede servir tambien para el caso de la columna
A, al encontrar la ultima fila se ubica una mas abajo y hay puedes pegar el
dato que sigue

Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select

Saludos

Nelson


"parellano" escribió en el mensaje
news:

Buenos dias!!

Necesito ayuda!!!

Hola fijense que no se como hacer que por medio de una macro encuentre
la ultima fila capturada, para que desde la primer fila hasta ahi
(ultimafila) me pege el dato de yo quiero

Ojala y me puedan ayudar

Janett

Hola chicos,

Creo que este codigo dara resultados incorrectos si hay celdas vacias dentro del rango de datos.

Saludos,
KL


"Nelsonb" wrote in message news:%23lGKub$

Hola Janett, creo que te puede servir tambien para el caso de la columna
A, al encontrar la ultima fila se ubica una mas abajo y hay puedes pegar el
dato que sigue

Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select

Saludos

Nelson


"parellano" escribió en el mensaje
news:

Buenos dias!!

Necesito ayuda!!!

Hola fijense que no se como hacer que por medio de una macro encuentre
la ultima fila capturada, para que desde la primer fila hasta ahi
(ultimafila) me pege el dato de yo quiero

Ojala y me puedan ayudar

Janett