A instrução abaixo roda a MAcro_1 se o Valor da Celula for = 2
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sValue As Long
sValue = 2
If Target.Address <> "$A$1" Then Exit Sub
'Macro_1 é o nome de sua macro para continuar se verdadeiro
If Target = sValue Then MsgBox "Macro_1"
End Sub
No link abaixo mostra como fazer um Timer
Criando um timer em VBA
http://codigofonte.uol.com.br/codigo/ou ... mer-em-vba
Quanto ao envio do email, pesquise no Forum sobre o assunto e encontrara vários tópicos a respeito.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 11/06/2013 8:07 am