Hola. Estoy en un proyecto y me he quedado atascado por un simple código, que seguro que tiene una fácil solución pero que llevo horas intentando resolver.

He creado un bucle For next que va cargando en una variable Array la posición de la última celda con datos en distintas columnas, empezando por "A" y hasta el final del bucle.

El caso es que donde tengo el problema es en la propiedad "Range", me dice que no coinciden los tipos. Seguro que es por la forma de implementar el código pero es hasta donde sé.

Es la primera vez que meto el "Range Rows.Count" dentro de un bucle.

Pongo el código aquí mismo, si es necesario subiría el ejemplo.

For x = 1 To NumGrupos 'Cargamos variable Array Fila()
    Fila(x) = Hoja2.Range( x & Rows.Count).End(xlUp).Row  <-------- Aquí es donde me da el error de tipos
Next x

 

Muchisimas gracias de antemano

Es un problema de sintaxis, el objeto Range, en su forma mas simple, requiere que la columna esté en letra, por ejemplo A1, si no dispones de la información, debes utilizar la propiedad Cells.

For x = 1 To NumGrupos 'Cargamos variable Array Fila()
    Fila(x) = Hoja2.Cells(Rows.Count, x).End(xlUp).Row
Next x

 

Para seguir con tu opción de usar el objeto Range directamente:

For x = 1 To NumGrupos 'Cargamos variable Array Fila()
    Letra = Split(Cells(1, x).Address, "$") (1)
    Fila(x) = Hoja2.Range(Letra & Rows.Count).End(xlUp).Row 
Next x

Se da por entendido que la variable NumGrupos contiene el número de columnas.

Gracias como siempre por tu inestimable ayuda.

En efecto, era como me temía, la propiedad Range.

He puesto Cells tal como en el código de arriba que me has puesto y se ha solucionado.

Lo del segundo código lo veo más "complicadillo".

Pues nada, gracias y...

TEMA SOLUCIONADO