• Revista PROGRAMAR: Já está disponível a edição #54 da revista programar. Faz já o download aqui!

sagostinho

[Resolvido] Executar uma macro quando o valor de uma célula se altera

12 mensagens neste tópico

Oi pessoal estou com um problema que não consigo resolver pois os meus conhecimentos de vba ainda são muitos poucos tenho este código que me executa uma macro sempre que uma célula altera mas o problema aqui é que eu tenho de digitar o 1 na célula caso contrário não executa a macro.

Private Sub Worksheet_Change(ByVal Target As Range)
        Application.EnableEvents = False
        If Not Intersect(Target, Range("A1")) Is Nothing Then
           Select Case Target
             Case 1
               Call macro1
             
             Case Else
           End Select
        End If
        Application.EnableEvents = True
End Sub

Sub macro1()
    MsgBox "macro1"
End Sub

O que eu queria fazer era o seguinte sempre que aparecesse 1 na célula A1 a macro executasse e não fosse preciso digitar esse 1.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

boas

Não percebi muito bem o que pretendes

O que eu queria fazer era o seguinte sempre que aparecesse 1 na célula A1 a macro executasse e não fosse preciso digitar esse 1.
0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Basta alterares o teu código assim:

Private Sub Worksheet_Change(ByVal Target As Range)
        Application.EnableEvents = False
        If Not Intersect(Target, Range("A1")) Is Nothing Then
                Call macro1     
        End If
        Application.EnableEvents = True
End Sub

Sub macro1()
    MsgBox "macro1"
End Sub

Atenção que a tua macro corre sempre que uma célula é alterada mas depois só chama a macro1 se a alteração for na célula A1. Se quiseres que ela seja executada em mais células, deverás alterar esta linha:

If Not Intersect(Target, Range("A1")) Is Nothing Then

E aonde tens A1 colocar por exemplo A1:D10 que aí já irá considerar um range maior.

jpgpinto

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Basta alterares o teu código assim:

Private Sub Worksheet_Change(ByVal Target As Range)
        Application.EnableEvents = False
        If Not Intersect(Target, Range("A1")) Is Nothing Then
                Call macro1     
        End If
        Application.EnableEvents = True
End Sub




Sub macro1()
    MsgBox "macro1"
End Sub

Atenção que a tua macro corre sempre que uma célula é alterada mas depois só chama a macro1 se a alteração for na célula A1. Se quiseres que ela seja executada em mais células, deverás alterar esta linha:

If Not Intersect(Target, Range("A1")) Is Nothing Then

E aonde tens A1 colocar por exemplo A1:D10 que aí já irá considerar um range maior.

jpgpinto

Ola obrigado pela a ajuda que voçes me estao a dar mas continua a nao dar talvez nao me esteja a explicar bem entao e assim na celula A1 aparece valores entre 1 e 9  vindo de outras celulas e o que eu queria fazer era o seguinte mediante o valor que aparecesse nessa celula A1 me exedcutasse a macro correspondente EX: valor 1 executava a macro 1 - valor 2 executava macro 2 e por ai fora

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Queres executar as tuas macros dependendo do valor calculado de A1.

Usa o evento Calculate da Folha.

Só que este é chamado todas as vezes que a folha é calculada, independente de quais as celulas a serem calculadas.

Neste caso não sei se será correcto executar as tuas macros mesmo que o valor de A1 não mude.

Para isso basta guardar o valor de A1 e compará-lo com o valor depois da folha ser calculada.

Pegando no teu exemplo:

Dim Numero As Integer

Private Sub Worksheet_Calculate()
       'Application.EnableEvents = False 
       ' esta instrução deixa de ser necessária por a condição seguinte deixar de se verificar 

       If Numero <> Range("A1") Then
            Numero = Range("A1")
            Select Case Numero
              Case 1
                Call macro1
              
              Case Else
            End Select
       End If
       'Application.EnableEvents = True
End Sub

Sub macro1()
    MsgBox "macro1"
End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Ola desde já obrigado pela ajuda que me tem em dado FreiNando aquele teu código funciona e tens razão quando dizes que ele e chamado sempre quando a folha e calculada.vou deixar aqui o arquivo para verem se existe outra maneira de o fazer

Dim Numero As Integer

Private Sub Worksheet_Calculate()
      'Application.EnableEvents = False
     ' esta instrução deixa de ser necessária por a condição seguinte deixar de se verificar

      If Numero <> Range("A1") Then
           Numero = Range("A1")
           Select Case Numero
             Case 1
               Call Macro1

             Case Else
           End Select
      End If
      'Application.EnableEvents = True
End Sub

Sub Macro1()
   MsgBox "Apagar"


   Range("B5:C14").Select
   Selection.ClearContents
   Range("D5").Select


End Sub

e quanto a msgBox a alguma maneira dentro desta aparecer um botão sim e não em vez do ok?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

e quanto a msgBox a alguma maneira dentro desta aparecer um botão sim e não em vez do ok?

Se tens o AutoListMembers ligado ao escreveres a msgbox o segundo parametro é a configuração das teclas e do icons.

Por exemplo se queres os botões Sim e Não com o Não por defeito, o icon de Exclamação e a mensagem aparacer por cima de qualquer programa:

    If MsgBox("Mensagem", vbYesNo + vbDefaultButton2 + vbExclamation + vbSystemModal) = vbYes Then
        MsgBox "Confirmado"
    Else
        MsgBox "Negado"
    End If

Qaunto ao teu programa, não precisas selecionar as celulas para apagar o conteudo

Faz apenas:  Range("B5:C14").ClearContents

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Ola FreiNando obrigada pela ajuda que me tens dado não querendo abusar existe alguma maneira de atribuir uma macro a cada opção da caixa de combinação?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Permitam-me...

...existe alguma maneira de atribuir uma macro a cada opção da caixa de combinação?

Seguindo a mesma lógica seria só acrescentar mais Case, tipo:

             Case 2
              MsgBox "Macro2"

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Para utilizar outra lógica, associe essa macro ao seu Drop Down 1.

Sub Dropdown1_Alteração()
Select Case Folha1.Shapes("Drop Down 1").ControlFormat.ListIndex
Case 1
MsgBox "Macro1"
Case 2
MsgBox "Macro2"
Case 3
MsgBox "Macro3"
Case Else
End Select
End Sub

Substitua a MsgBox por Call SuaMacro...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Eu nem olhei para o teu ficheiro, visto teres mostrado o código,

mas devias ter mencionado que apesar da celula A1 conter uma formula, esse valor está ligado a uma combobox.

Neste caso a resolução é bem mais simples e evita usar o evento change ou calculate.

Basta associares uma macro à combobox, e a partir dessa e conforme o joseA te indicou, fazer chamadas às outras macros.

Obs.:  A resposta à tua dúvida teria chegado 3 dias antes se tivesses indicado onde e como alteravas o valor de A1

Oi pessoal estou com um problema que não consigo resolver pois os meus conhecimentos de vba ainda são muitos poucos tenho este código que me executa uma macro sempre que uma célula altera mas o problema aqui é que eu tenho de digitar o 1 na célula caso contrário não executa a macro

O que eu queria fazer era o seguinte sempre que aparecesse 1 na célula A1 a macro executasse e não fosse preciso digitar esse 1.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Eu nem olhei para o teu ficheiro, visto teres mostrado o código,

mas devias ter mencionado que apesar da célula A1 conter uma formula, esse valor está ligado a uma combobox.

Neste caso a resolução é bem mais simples e evita usar o evento change ou calculate.

Basta associares uma macro à combobox, e a partir dessa e conforme o joseA te indicou, fazer chamadas às outras macros.

Obs.:  A resposta à tua dúvida teria chegado 3 dias antes se tivesses indicado onde e como alteravas o valor de A1

Tens razão não me expliquei bem devia ter mencionado que o valor estava ligado a uma combobox mas assim já fiquei a saber

como se faz quando um valor se altera.

Obrigada pela a vossa ajuda foram espectaculares obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora