Excel - como posso ter uma macro executar automaticamente quando uma celula muda?

Tenho uma macro, chamada "TrueFilter". Eu também tenho uma caixa de menu suspenso na célula D1. Como posso fazer a macro para executar automaticamente toda vez que mudar a caixa suspensa em D1? Eu não preciso de adicionar um atalho para a macro, ou adicionar um botão, eu quero minha macro para executar automaticamente toda vez que a caixa de lista suspensa é alterado.

Resposta

Tente o seguinte:

Selecione a planilha apropriada, botão direito do mouse na guia de planilha e 'Ver código'.

Cole esta macro no módulo de folha:

Público swt

Private void Worksheet_Change(ByVal Target As Range)

Se Range("D1").Valor <> , em seguida, swt

TrueFilter

SWT = Range("D1").Valor

End If

End Sub

Em vez de utilizar o swt público, você também pode usar um outro valor de célula como sua base de comparação, ou seja

Private void Worksheet_Change(ByVal Target As Range)

Se Range("D1").Valor <> Range("AA1").Valor, em seguida

TrueFilter

Range("AA1").Valor = Range("D1").Valor

End If

End Sub

Comentários

Lucas na 30 Mai 2023

Uma forma de fazer com que a macro "TrueFilter" seja executada automaticamente toda vez que a caixa suspensa em D1 for alterada é utilizando o recurso de "eventos" do VBA. Você pode adicionar um código na planilha que irá acionar a macro toda vez que a célula D1 for alterada. Por exemplo, você pode usar o evento Worksheet_Change para disparar a macro quando a célula D1 for modificada.
Veja um exemplo de como fazer isso:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("D1")) Is Nothing Then Exit Sub
' Coloque aqui o código para chamar a macro "TrueFilter"
End Sub

Ao adicionar esse código na planilha, a macro "TrueFilter" será acionada sempre que a célula D1 for alterada. Espero que isso ajude!

Responder

Mais como isso

microsoft office > executar macro do excel

Outras Respostas Populares

Usuários da rede social
Estas pessoas adicionaram comentários ou respostas recentemente

Topo da página