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

Executar uma macro ao atualizar uma célula

 
2024 - VBA & Macros
Post Recente por carlosrgs 9 anos atrás
3 Posts
3 Usuários
0 Reactions
877 Visualizações
RSS
 iorlandi
(@iorlandi)
Posts: 1
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
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 


Acerte esta linha:


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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/10/2015 3:38 pm
carlosrgs
 carlosrgs
(@carlosrgs)
Posts: 631
Prominent 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

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

 
Postado : 23/10/2015 1:22 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico