Formula if then se ejecuta 2 veces la instrucción
Tengo una macro para enviar un e-mail desde un excel cuando se cumplan una de otras opciones, pero cuando se cumple una condición en vez de enviarme 1 correo me envía 2 veces el mismo correo, ¿alguien me podría orientar?
Adjunto código usado:
If Sheets("Hoja_1").Range("I14").Value = 6 Or Sheets("Hoja_2").Range("R3").Value = 6 Then
pregunta = MsgBox("¿Está trabjando en este equipo?", vbYesNo, "Aviso")
Select Case pregunta
Case vbYes
Sheets("Hoja_1").Select
Range("A1").Select
Dim Asunto As String
Asunto = "Informe " & Sheets("Hoja_1").Range("G3")
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = Asunto
.Body = "texto"
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Case vbNo
Sheets("Hoja_1").Select
Range("A1").Select
Exit Sub
End Select
Else
If Sheets("Hoja_2").Range("O3").Value >= 35 Then
pregunta = MsgBox("¿Está trabajando en este equipo?", vbYesNo, "Aviso")
Select Case pregunta
Case vbYes
...........................
Case vbNo
.............................
Exit Sub
End Select
Else
...