¿Cómo determinar un rango con datos?
Intento establecer un rango que busque la última celda con datos, es decir desde A2:A10, pero al momento que comienza a avanzar se detiene en A3, no avanza hasta A10 que es la última celda con datos.
Ejemplo:
Mi código es el siguiente:
Sub BuscarEnVariasHojas() Dim Rango As Range Set Rango = Hoja1.Range(Cells(2, 1), Cells(2, 1).End(xlDown)) With Rango .Select End With MsgBox Rango.Address End Sub
Hola, Abraham.
Si se mueve hasta la última fila que A10 pero no me toma el rango completo, lo que busco es establecer el rango desde $A$2:$A$10. Por eso intentaba con
Set Rango = Hoja1.Range(Cells(2, 1), Cells(2, 1).End(xlDown))
Intenté con application.union pero tampoco me queda.
Pues suponiendo que siempre A2 es la primera, basta hacer esto:
Dim UltimaFila As Range
Set UltimaFila = Cells(Rows.Count, 1).End(xlUp)
MsgBox Range("A2:" & UltimaFila.Address).Address
¡Gracias, por tu tiempo y apoyo, me sirvió!
Intenté establecerlo de esta manera, pero me marca error de tipos.
Option Explicit
Sub BuscarEnVariasHojas()
Dim Celda As Range, Rango As Range 'Celda y rango buscado
Dim ultimafila As Range
ultimafila = Cells(Rows.Count, 1).End(xlUp)
'MsgBox Range("A2:" & ultimafila.Address).Address
Set Rango = Range("A2:" & ultimafila.Address).Address
'MsgBox Rango.Address
'------------------------------------
HayErrores:
MsgBox "error"
Resume Next
End Sub
Estás cometiendo errores de concepto. Set es una instrucción que define a un objeto y tú estás intentando definirlo como el valor de una propiedad (Address) por ende siempre te dará un error.
¡Gracias, por tu consejo! Lo solucioné así:
'------------------------------------
'Rango a recorrer
Set ultimafila = Cells(Rows.Count, 1).End(xlUp)
'MsgBox Range("A2:" & ultimafila.Address).Address
Set Rango = Range("A2:" & ultimafila.Address)
MsgBox Rango.Address
'------------------------------------
