Saltar al contenido

Error propiedad Range dentro de bucle for next


Recommended Posts

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

Enlace a comentario
Compartir con otras webs

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.

Enlace a comentario
Compartir con otras webs

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

Enlace a comentario
Compartir con otras webs

  • Silvia bloqueó este tema

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 93 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      177
    • Comentarios
      90
    • Revisiones
      27

  • Crear macros Excel

  • Mensajes

    • No va a ser necesario distinguir el tipo de proceso entre 1 y 2. Revisa el adjunto a ver si es eso lo que quieres. Function MediaAttention(mImp As Range, _ q25 As Range, q50 As Range, _ Optional q75 As Range, _ Optional q100 As Range) As Double '-- Opción 1 If q75 Is Nothing And q100 Is Nothing Then MediaAttention = q25 / q50 Exit Function End If '-- Opción 2 MediaAttention = ((0.25 * (q25 - q50)) / mImp) + _ ((0.5 * (q50 - q75)) / mImp) + _ ((0.75 * (q75 - q100)) / mImp) + _ (q100 / mImp) End Function   Media Attention Formula 1.2.xlsb
    • Gracias tomarse el tiempo de leer por responder Maestro @Antoni Adjunto el archivo con la idea a la que deseo llegar, sigo atento. Mil gracias por el tiempo y la ayuda brindada   Media Attention Formula 1.2.xlsb
    • He analizado la UDF y entiendo perfectamente lo que hace, lo que no entiendo es lo que pretendes hacer. Mejor sube un ejemplo resuelto de  como debería funcionar la UDF con los nuevos parámetros solicitados. 
    • Gracias, ya lo conseguí solucionar
    • Hola a todos Primero que nada deseo agradecer el tiempo en leer este post, Muchas Gracias. Me acerco a ustedes para pedir su ayuda para lo siguiente: Tengo una UDF, la cual tiene dos escenarios: 1.- Si Tiempo Promedio y Duración del Video son diferentes de 0, hacer el calculo 2.- Si lo anterior es igual a 0, se realiza el otro calculo por cuartiles. El detalle es que son muchas celdas a seleccionar, lo cual creo puede ser engorroso, entonces, pensando en simplificar la función, me pregunte si fuera posible: a.- Colocar 1 al principio de la función y después solo seleccionar 2 celdas correspondientes (Rango continuo o discontinuo) b.- Colocar 2 al principio de la función y después seleccionar las 5 celdas correspondientes (Rango continuo o discontinuo) Espero me puedan ayudar y/o orientar al respecto, quedo atento para cualquier duda, de antemano les agradezco cualquier ayuda brindada. Mil Gracias!! Media Attention Formula 1.1.xlsb  
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.