SERGIO YH

Dante Amor respondió: Pon lo siguiente en los eventos de tu hoja Private Sub Worksheet_Calculate() If Range("A1").Value > 5 Then If Range("A2").Value = "" Then Range("A2").Value = "Ok" End If End If End Sub Cambia las A1 y A2 por las celdas reales Sigue las Instrucciones...