Hola a todos,

He escrito un macro con un bucle (Do/Loop Until) para que realice iterativamente el cálculo de una probabilidad hasta que esta sea mayor que el valor umbral fijado. Cuando se supera este valor, la macro debe de escribir en unas celdas determinadas el resultado del calculo inmediatamente anterior al que superó el umbral. 

Lo he probado y al ejecutarlo el cursor no para de girar y me dice que Excel No Responde. Supongo que entra en un bucle infinito. No se que he hecho mal.

Os subo el archivo por si me podeis ayudar.

Gracias de antemano.

Saludos.

Cálculo tamaño familias_m2.xlsm

Saludos @Salva Roselló, esta linea

AlMenosN_individuos = 1

colocala antes del DO y no despues

y lo otro, que las variables declaralas como double, algunas las tienes como integer y da error de desbordamiento

suerte

Muchas gracias @bigpetroman por la ayuda. 

Reviso los cambios que me sugieres e informaré del resultado.

Saludos.

 

Hola de nuevo,

asunto resuelto. He hecho los cambios sugeridos y ahora funciona. No me percaté de que las funciones Application.WorksheetFunction.Combin requieren dos argumentos de tipo Double. Con los datos que uso uno de los argumentos siempre toma valores enteros, por eso lo definí como integer. Al cambiar todas las variables a Double ya no hay problema. 

Muchas gracias por la ayuda  @bigpetroman.

Saludos.