Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
executar macro quan...
 
Notifications
Clear all

executar macro quando celula for alterada

 
2024 - VBA & Macros
6 Posts
4 Usuários
0 Reactions
1,316 Visualizações
RSS
 ThiagoN
(@thiagon)
Posts: 2
New Member
Topic starter
 

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
 
Postado : 08/02/2017 7:14 pm
brunoxro
 brunoxro
(@brunoxro)
Posts: 698
Honorable Member
 

Boa noite ThiagoN,

Anexe um planilha de exemplo, assim fica mais fácil ajudar.

att,

 
Postado : 08/02/2017 7:40 pm
 ThiagoN
(@thiagon)
Posts: 2
New Member
Topic starter
 

boa noite
não esta anexando a planilha. qq coisa envio por email.

att

 
Postado : 08/02/2017 8:26 pm
leandroxtr
 leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
 

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

 
Postado : 09/02/2017 5:20 am
leandroxtr
 leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
 

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

 
Postado : 09/02/2017 5:23 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

 
Postado : 12/02/2017 4:16 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico