boa noite
gostaria que cada celula alterada ele inseri-se um valor em na celula "B4" da aba email para ser enviada apenas um resumo da alteração.
exp:
aletrei a celula "K4" da aba 1 e que ele inserise o valor na aba Email celula "B4"
aletrei a celula "K5" da aba 1 e que ele inserise o valor na aba Email celula "B4"
estou usando o evento abaixo, mais gostaria que a cada célula alterada ele executa um macro diferente.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$4" Then
Call Teste
Exit Sub
End If
End Sub
Sub Teste()
Sheets("Email2").Select
ActiveSheet.Range("A1:H6").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Segue Fechamento Operacioanl"
.Item.To = ""
.Item.CC = ""
.Item.Subject = "Fechamento Operacional"
.Item.Send
End With
Sheets("Noite").Select
End Sub
Boa noite ThiagoN,
Anexe um planilha de exemplo, assim fica mais fácil ajudar.
att,
boa noite
não esta anexando a planilha. qq coisa envio por email.
att
Para alterar chamar macro ao alterar célula, você pode usar o seguinte código:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$A$1" Then 'Está configurada para chamar a macro depois que a célula A1 for alterada
Call 'Digita aqui o nome da macro que voce quer executar
Exit Sub
End If
Application.ScreenUpdating = True
End Sub
Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.
Abraços!
Leandro Cordeiro
Para fazer com que seja diferente a cada célula alterada, você precisa introduzir uma condicional IF Then, Elseif..
Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.
Abraços!
Leandro Cordeiro
Boa noite ThiagoN
Seja bem-vindo ao fórum!
Como você é novato, para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel