Macro que recorra una columna y ejecute instrucciones en celdas vacías

Tengo una Tabla. En la columna "F" una Serie Histórica de Producción. Necesitaría, con la Herramienta Solver, hacer un análisis para cada celda vacía (vale decir, la Previsión) y recalcule la Previsión Original. Lo Optimo es que la primera y la segunda sean iguales. Con la grabadora de Macros obtuve el siguiente código, que me sirve para el primer caso.

Lo ideal es que la Macro detecte las celdas vacías en la columna de manera dinámica y se ejecute para cada celda sin datos.

Sub SolverMM()
    SolverOk SetCell:="$F$18", MaxMinVal:=1, ValueOf:=0, ByChange:="$F$18", Engine _
        :=1, EngineDesc:="GRG Nonlinear"
    SolverDelete CellRef:="$F$18", Relation:=2, FormulaText:="$E$18"
    SolverAdd CellRef:="$F$18", Relation:=2, FormulaText:= _
        "'[PREVISIONE.xlsm]Media Mobile'!$E$18"
    SolverOk SetCell:="$F$18", MaxMinVal:=1, ValueOf:=0, ByChange:="$F$18", Engine _
        :=1, EngineDesc:="GRG Nonlinear"
    SolverOk SetCell:="$F$18", MaxMinVal:=1, ValueOf:=0, ByChange:="$F$18", Engine _
        :=1, EngineDesc:="GRG Nonlinear"
    SolverSolve
End Sub

La celda, en este caso, que cambia es la Celda F18 que está en la Hoja "Datos" y varía su valor en función del obtenido, en cada Iteración, de la celda E18 de la Hoja "Previsione"

¿Cómo debería ser modificada dicha macro?

Añade tu respuesta

Haz clic para o