Ejecutar macro al realizarse una condicion en una celda

[3pies]

Prueba esto:

Código:

Sub Worksheet_Change(ByVal Target As Range)
    'introduce un "si", sin las comillas, en A1
    If Range("a1") = "si" Then
        Range("a2") = "Verdad, verdadera"
    Else
        Range("a2").ClearContents
    End If
End Sub

Salu2

PD: Usa la grabadora de macros para el código del Solver, y colócalo en el condicional.