Notifications
Clear all

Executar macro da Plan 2 ao alterar célula na Plan 1

2 Posts
2 Usuários
0 Reactions
852 Visualizações
(@mdenk)
Posts: 32
Eminent Member
Topic starter
 

com esta macro eu consigo rodar a macro se a célula c1 for alterada, mas caso eu precise que ela rode se algo fosse alterado
no range de “c1:g1” por exemplo? como seria a minha macro?

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.AddressLocal(rowabsolute:=False, columnabsolute:=False) = "C1" And Target.Value <> "" Then
Call Sheets("Plan2").Teste
End If
Application.EnableEvents = True
End Sub

Agradeço ajuda de todos e peço desculpas por tomar o seu tempo com este assunto.

 
Postado : 24/04/2013 8:16 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Tente assim :

    Private Sub Worksheet_Change(ByVal Target As Range)
    
    Application.EnableEvents = False
    
    If Intersect(Target, Range("C1:G1")) Is Nothing Then
        Application.EnableEvents = True
        Exit Sub
    Else
            Call Sheets("Plan2").Teste
        End If
        
        Application.EnableEvents = True
        
    End Sub

[]s

 
Postado : 24/04/2013 8:55 am