MsgBox que valide celdas con importe negativo

Hola, O. Salazar !

... una formula que resta ... dos celdas cuyo resultado no deben ser negativos
... necesito ... un msgbox que me diga que los importes son negativos son incorrectos.

==> debeas 'monitorear' los cambios en las celdas a1 y b1 <=
1) si los datos de las celdas [a1 y b1] se introducen 'manualmente'... [te 'recomiendo'] validacion de datos [p.e.]
selecciona ambas celdas -> datos / validacion / [ficha] configuracion / 'permitir' > lista / 'formula' > =$A$1>=$B$1
'asegurate' de seleccionar el estilo de 'limite' [ficha 'mensaje de error'] y puedes 'pesonalizar' el mensaje [MsgBox]
=>FALLA<= si se usa 'copiar/pegar' o los datos se 'introducen' por codigo :((

2) puedes [tambien] usar los eventos de 'la hoja' [solo 'avisar' que NO 'se debe'... 'aunque'... SI 'se pudo'] :)) [p.e.]
en el modulo de codigo de 'la hoja' ==Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1:b1")) Is Nothing _
Or Range("a1") >= Range("b1") Then Exit Sub
MsgBox "El valor de A2 DEBE SER MAYOR O IGUAL al valor de B2"
End Sub

3) puedes [ademas] 'combinarlos' [usar ambos] =>'sucedera' PRIMERO la validacion<_______
Saludos,
Héctor.
MS-MVP