VARIOS FOR PERO SE SALEN DE RANGO Y MACRO QUEDA PEGADA

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

VARIOS FOR PERO SE SALEN DE RANGO Y MACRO QUEDA PEGADA

Notapor kristhian1976 » 02 Oct 2018 14:40

Buen día al grupo.

Tenga una tabla de rango parámetros con datos y necesito generar las combinaciones posibles, pero al ejecutarlo el ciclo "For f1 = Cells(1, 42) To ActiveSheet.Cells(Rows.Count, "AP").End(xlDown).Row" se va contando hasta la ultima tabla de la hoja y va sucediendo lo mismo después con
"For e1, For d1, For c1, For b1, For a1="haciendo que esto demore mucho.

La variable f1 debiera tomarme estos datos " 21-23-33-40-41-42-43-44-45" como se muestra en el archivo adjunto, pero se sale del rango y me llega hasta el millón y tanto, o sea, hasta la celda AP1048576.

Debería continuar y mostrarme la siguiente combinación " 1 - 2 - 5 - 6 - 8 - 21 "...

GRACIAS...
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
kristhian1976
Miembro Nuevo
Miembro Nuevo
 
Mensajes: 4
Registrado: 04 Abr 2017 00:28

Re: VARIOS FOR PERO SE SALEN DE RANGO Y MACRO QUEDA PEGADA

Notapor Cacho R » 02 Oct 2018 17:00

.
Mmmm...
No me queda claro si quieres obtener combinaciones, arreglos o permutaciones (parecerían ser permutaciones pero solo Dios sabe de cuántos elementos estamos hablando).

Te sugiero que subas -nuevamente- al Foro tu archivo (por favor: ¡que no pese más de 100 K!) y pon "a mano" unos 20 de los resultados esperados, e indica cual de las tres opciones referidas quieres implementar.

Saludos, Cacho R.
.
Avatar de Usuario
Cacho R
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 10481
Registrado: 23 Jun 2011 17:15
Ubicación: Buenos Aires

Re: VARIOS FOR PERO SE SALEN DE RANGO Y MACRO QUEDA PEGADA

Notapor Cacho R » 02 Oct 2018 17:04

.
Por ejemplo, combinaciones de 45 elementos tomados de a 6 son más de 8 millones (8.145.060) de agrupamientos: ¿Es lo que quieres obtener?...

Saludos, Cacho R.
.
Avatar de Usuario
Cacho R
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 10481
Registrado: 23 Jun 2011 17:15
Ubicación: Buenos Aires

Re: VARIOS FOR PERO SE SALEN DE RANGO Y MACRO QUEDA PEGADA

Notapor kristhian1976 » 02 Oct 2018 18:02

Me di cuenta del error al final de la sentencia
Lo tenia asi: End(xlDown).Row lo modifique asi End(xlUp).Rows

For a1 = Cells(1, 37) To ActiveSheet.Cells(Rows.Count, "AK").End(xlDown).Row
For a1 = Cells(1, 37) To ActiveSheet.Cells(Rows.Count, "AK").End(xlup).Rows

GRACIAS.
kristhian1976
Miembro Nuevo
Miembro Nuevo
 
Mensajes: 4
Registrado: 04 Abr 2017 00:28


Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 4 invitados