rango variable en una macro

Hola lato,

P.ej.: Podrias construir un rango de la siguiente manera:

Sub tgest()
Dim rng As Range
With ActiveSheet
Set rng = .Range(.[A2], .[A65536].End(xlUp))
End With
MsgBox rng.Address
End Sub

En general las opciones mas usadas son las siguientes:

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


"lato" <juancarlatoarrobaeuskalnetpuntonet> wrote in message news:

¿Cómo puedo hacer que en una macro el rango sobre el que afecta, varie en funcion de la ultima fila de la tabla?