Buenas a todos, bueno la cosa es complicada al menos para mi.

Necesito hacer un algoritmo en vb para un problema iterativo y no se por donde empezar, os comento.-

En el archivo adjunto tengo en la hoja ejercicios dos zonas , datos de entrada, donde selecciono a mano los datos con los que voy a trabajar y datos de salida que es el calculo de la hoja de excel.- Pues bien una vez que determino los valores de entrada seas cuales sean pasamos a datos de salida que es donde tengo el problema y os comento lo que me gustaría hacer.-

1) Intensidad (A) es mi primer parámetro a calcular I =((C5*1000)/(RAIZ(3)*C7*C6)) es un dato directo no hay problemas, ademas esto no lo necesito meter en vb.-

2) Valor Calculado Sección ( mm2 ) =10^5*C5*C9/(C11*C8*C7^2) es el tercer parámetro tambien directo, ni siquiera necesito que aparezca en la hoja de excel pero este valor me sirve para encontrar el siguiente igual o mayor a el en las tablas que tengo en la hoja tablas.- Osea que si me sale 83.7 como es el caso, me tengo que ir a losdatos de entrada y ver el tipo de coincidencia que tengo que buscar el las tablas en este caso , tipo de cable Cu, Sistema de montaje D, aislamiento y nº de cables PVC3, si miro en la hoja tablas y busco estas coincidencias veo que el siguiente igual o mayor es la sección 95 pintada en gris y la intensidad 170 por coincidencias de los datos de entrada.- Los datos de busqueda e la tabla variaran en función de los datos de entrada evidentemente.-

3) Sección ( mm2 ) e Intensidad Max. ( A ) = 95   170, es el segundo parametro de mi hoja y son los valores encontrados igual o el siguiente mayor al cálculo anterior de la sección.-

4) Temperatura real del cable ( ºC ) =40+(SI(O(C13="XLPE2";C13="XLPE3");90;SI(O(C13="PVC2";C13="PVC3");70))-40)*((C19/D20)^2)  tambien es una fórmula directa en función del aislamiento del cable.-

5) Conductividad K a Tª real ( m/Ω mm2) es el quinto parámetreo de mi hoja =(BUSCARV(C10;datos!D7:E8;2;0))/(1+((BUSCARV(C10;datos!I7:J8;2;0))*(ejercicio!C22-20))) tambien es un paraámetro directo.

6) Comprobar sección ( mm2 ) =10^5*C5*C9/(C23*C8*C7^2) es mi sexto parámetro, y este es directo pero importante porque es aquí donde comparo para iterar o no.-

Si el valor de sección que me sale 103.96 es inferior al que he calculado " encontrado igual o siguiente mayor " en el parametro 2 de mi hoja Sección ( mm2 ) e Intensidad Max. ( A ) en mi caso 95, y ademas la intensidad calculada en este punto en mi caso 170 es mayor a la del parámetro 1, entonces mi comparación es válida y el cable me cumple por lo cual aquí termino el cálculo. En caso de que no me cumpla uno de los dos parámetros, entonces tengoque seleccionar el siguiente mayor en las tablas es decir pasaría de 95 a 120mm2 y de 170 a 192 amperios y volvería a repetir el cálculo anterior hata que se cumplan las dos condiciones anteriormrnte mencionadas.

En el caso de mi ejercicio con una iteración es suficiente, pero en otras ocasiones hay que hacer mas por eso quiero mecanizar esto mediante vb.

Otra cosa, en el caso de que al buscar el valor en las tablas igual o mayor bien en la primera iteración o en otra me salga fuera de la tabla, o sea que si pruebo por ejemplo en la tabla que estamos con el valor 300mm2 que es el mas grande y no me cumple, buscaría un valor mas grande que no hay, en este caso me tiene que salir un mensaje o algo que ponga mayor de 300 o de 240,  segun tabla utilizada.

Bueno no se si me e explicado bien, alguien puede ayudarme con esto.

Gracias y saludos.-