Notifications
Clear all

Executar uma macro ao atualizar uma célula

3 Posts
3 Usuários
0 Reactions
871 Visualizações
(@iorlandi)
Posts: 0
New Member
Topic starter
 

Boa tarde, pessoal.
Estou com uma dificuldade, fiz a macro abaixo para executar um filtro avançado e colar em outra aba do Excel, mas para que ela seja disparada tive que criar um botão para atualizar.
Sub Filtrar_Limpar()
Application.ScreenUpdating = False
Range("C13:N60").Clear
ActiveWindow.SmallScroll ToRight:=-1
Sheets("Matriz de Controle teste").Range("L1:Y135").AdvancedFilter Action:= xlFilterCopy, CriteriaRange:=Range("I6:I7"), CopyToRange:=Range("C12:N12"), Unique:=False
Application.ScreenUpdating = True
End Sub

Estou pesquisando nos fóruns pois queria que quando o valor da célula C7 for alterado ele execute a macro citada acima, automáticamente mas não está funcionando:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "C7" Then
Call Filtrar_Limpar
Exit Sub
End If
End Sub

 
Postado : 22/10/2015 3:31 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 


Acerte esta linha:


If Target.Address = Range("C7").Address Then

 
Postado : 22/10/2015 3:38 pm
(@carlosrgs)
Posts: 0
New Member
 

Eu uso esse:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$A$1" Then
        
        Call M01_Teste
        
        Exit Sub
    
    End If
    
End Sub
Sub M01_Teste()

MsgBox "Coloque aqui sua macro!"

End Sub
 
Postado : 23/10/2015 1:22 pm