Olá amigos,

Tenho uma tabela em que inseri uma programação (que não é da minha autoria, apenas adaptei) a maior parte tirei do site, ExcelMax® Soluções.

A questão é:

A Private Sub Worksheet_Change(ByVal Target As Range) funciona mas a Private Sub Worksheet_Change_SE(ByVal Target As Range) não!!!!!

Agradecia uma ajuda a perceber o porquê deste caso. Ainda estou a iniciar no Excel e por isso peço desculpa se alguma coisa não fizer sentido.

Muito grato, abr.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim OutApp As Object
Dim OutMail As Object
Dim texto As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

Linha = ActiveCell.Row - 1
If Target.Address = "$AG$" & Linha Then

If Folha3.Cells(Linha, 33) = "s" Then
texto = "Exmo.(a) Sr.(a)" & vbCrLf & vbCrLf & _
"Na sequência do pedido de manutenção submetido através do e-mail - " & Folha3.Cells(Linha, 32) & " - informamos que:" & vbCrLf & vbCrLf & _
" Ao pedido apresentado em " & Folha3.Cells(Linha, 12) & " foi atribuída a referência: " & Folha3.Cells(Linha, 1) & ";" & vbCrLf & _
" Equipamento: " & Folha3.Cells(Linha, 6) & ";" & vbCrLf & _
" Ação a desenvolver: " & Folha3.Cells(Linha, 21) & ";" & vbCrLf & _
" Estado: Encaminhado para análise. " & vbCrLf & vbCrLf & _
"Para futuras informações acerca do estado deste pedido contactar: " & vbCrLf & _
"Sistema Integrado de Manutenção" & vbCrLf & _
"Correio electrónico: @gmail.com/" & "@gmail.com" & vbCrLf & _
"Telemóvel: (de 2ª a 6ª entre as 9:00h e as 17:00h)"

End If

With OutMail
.To = Folha3.Cells(Linha, 32)
.CC = ""
.BCC = ""
.Subject = "Sistema "
.Body = texto
.Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End If
End Sub

Private Sub Worksheet_Change_SE(ByVal Target As Range)
Dim OutApp As Object
Dim OutMail As Object
Dim texto As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

Linha = ActiveCell.Row - 1
If Target.Address = "$AI$" & Linha Then

If Folha3.Cells(Linha, 35) = "se" Then
texto = "Exmo.(a) Sr.(a)" & vbCrLf & vbCrLf & _
"Na sequência do pedido de manutenção submetido através do e-mail - " & Folha3.Cells(Linha, 32) & " - informamos que:" & vbCrLf & vbCrLf & _
" Ao pedido apresentado em " & Folha3.Cells(Linha, 12) & " foi atribuída a referência: " & Folha3.Cells(Linha, 1) & ";" & vbCrLf & _
" Equipamento: " & Folha3.Cells(Linha, 6) & ";" & vbCrLf & _
" Ação a desenvolver: " & Folha3.Cells(Linha, 21) & ";" & vbCrLf & _
" Estado: Encaminhado para análise. " & vbCrLf & vbCrLf & _
"Para futuras informações acerca do estado deste pedido contactar: " & vbCrLf & _
"Sistema Integrado de Manutenção" & vbCrLf & _
"Correio electrónico: @gmail.com/" & "@gmail.com" & vbCrLf & _
"Telemóvel: (de 2ª a 6ª entre as 9:00h e as 17:00h)"

End If

With OutMail
.To = Folha3.Cells(Linha, 32)
.CC = ""
.BCC = ""
.Subject = "Sistema - "
.Body = texto
.Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End If
End Sub