ejecutar una macro al cambiar el valor de una celda en una formula

Question

tengo un rango de celdas (a1:a10) sumados en b1. 

Necesito que cuando cambie el valor de b1 (>1000), despliegue un msgbox.

gracias

Answer 1

Hola!

tan simple como verificarlo en el evento al cambiar de la hoja

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, ActiveSheet.Range("A1:A10")) Is Nothing Then
   If ActiveSheet.Range("B1") > 1000 Then MsgBox "Te has pasado"
End If
End Sub

---

Saludos a todos desde Huelva <br/> http://www.mvp-access.es/emilio/

Answer 2

excelente, me funcionó a la primera,

muchas graciassssssss