Como recalcular automáticamente hoja de excel

Hola
De una lista de números hago una selección aleatoria [utilizando la funcion "aleatorio()" y la función "k.esimo.menor"], para formar grupos de 5 números. Sin embargo deseo que estos grupos cumplan con ciertas condiciones, por lo que he puesto una celda de verificación que pone "VERDADERO" si las condiciones se cumplen y "FALSO" en caso contrario. Si no se cumplen presiono F9 para obtener un nuevo resultado, y lo hago repetidamente hasta obtener el resultado de "VERDADERO". La pregunta es ¿hay alguna manera de que excel recalcule toda la hoja automáticamente hasta que se cumplan las condiciones? De tal manera que no tenga que estar presionando F9 tantas veces (en ocasiones me tardo de verdad mucho tiempo).
Gracias.
Respuesta
1
Prueba con el siguiente código:
Sub Recalcular()
    Application.Calculate 'Para que se produzca el primer recálculo
    While Not [Hoja1!A1]
        Application. Calculate
    Wend
End Sub
En el que tendrás que sustituir Hoja1! A1 por la dirección de la celda de verificación.
Hola muchas gracias.
No se si lo hice bien: inserté un botón de comando y luego en la opción de "ver código" dando clicl derecho sobre el botón puse lo siguiente:
Private Sub Estimar_Click ()
   Application.Calculate
      While Not EO2 = "P"
Application.Calculate
Wend
End Sub
La "P" es porque a la celda de verificación le puse uns "P" (palomita con formato windigins) cuando se cumplieran las condiciones que quiero que se cumplan.
Cuando presiono el botón de comando, epieza a recalcular, el problema es que no se detiene nunca, aún cuando se cunmplan las condiciones que requiero ¿dónde esta el error?
Perdón por la ignorancia, pero nunca he programado en excel.
Gracias.
Application. Calculate
    While [Hoja1!EO2].Value <> "P"
        Application. Calculate
    Wend
Donde tendrás que cambiar Hoja1 por el nombre de la hoja.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas