Duda macro de excel para detectar movimientos y mandar email.

Buenas tardes.

Agradecería enormemente si me ayudasen a resolver un problema que les planteo a continuación.
Dispongo de una hoja de excel que se actualiza con una serie de valores por internet con una frecuencia determinada. Necesitaría crear una macro que me avisase via email cuando se cambia el valor de unas celdas en cuestión.
He encontrado varios casos de macros en internet que hacen por separado lo que necesito, por ejemplo:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect([G5:G15], Target) Is Nothing Then Exit Sub
End Sub


Esta macro controlaría el cambio de valor de un rango especificado.


Sub correo()
Range("b2:e11").Copy
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.createitem(olmailitem)
parte2.to = "[email protected]"
parte2.Subject = "asunto de mensaje"
parte2.display
Application.SendKeys "^v"
Set parte1 = Nothing
Set parte2 = Nothing
End Sub


Esta macro copiaría el rango especificado y lo enviaría via email al correo del destinatario.
¿que necesitaría yo?, unir las dos macros en una y que tome los valores, no de un rango, sino de dos celdas específicas y las envíe al correo indicado para que cuando al actualizarse la página encuentre variación en alguna de las dos celdas, envíe un correo de aviso sobre su modificación.
Les agradezco de antemano su colaboración.
Un saludo.

Añade tu respuesta

Haz clic para o