Chamar macro por função Excel.

[Siereis]

Pessoal, estou com o seguinte problema:

Como chamar uma macro por dentro de uma função do EXCEL sem recorrer a programação?

"Tenho uma macro que quero executar se o valor de uma célula for igual a x. Uso a função se, mas não sei como posso chamar a macro dentro da função."

Alguém pode me ajudar?

Obrigado.

Mario Reis

[eduzsrj]

bom em vez de SUB usa uma FUNCTION

então você poe na formula

= SE(A1 = 1;MINHAFUNC();"")

é um jeito

[Patropi]

Bom dia Siereis

Acho mais fácil usando programação mesmo.

Faça o seguinte:

Clique com lado direito do mouse na Aba da tua planilha--> clique em Exibir código--->copie e cole este código:

Private Sub Worksheet_Change(ByVal Target As Range) 

If Target.Address = "$A$1" then 
    Call NomeMacro 
End if 

End Sub 

Substitua Nome Macro pelo nome da tua macro e substitua o $A$1 pela célula da tua planilha.

Um abraço

[Siereis]

Obrigado pessoal,

vou tentar ambas as sugestões e em breve retorno para dizer como foi.

Valeu mesmo.

Mario Reis

[Fideliss]

Tenta postar um exemplo da planilha para tentarmos te ajudar melhor

Boa sorte

[Ingo M P Américo]

Reabrindo o tópico, pois estou com o mesmo problema e da forma como foi explicado acima, não funcionou.

O que estou tentando é: quando mudar o texto da célula A2 para "SIM", executar a macro bloquear().

 

Minha função:

Function bloquear()
  ActiveSheet.Unprotect Password:=""
  ActiveCell.Offset(0, 1).Select
  Selection.Resize(Selection.Rows.Count + 0, _
  Selection.Columns.Count + 5).Select
  Selection.Locked = True
  Selection.FormulaHidden = True
  ActiveSheet.Protect Password:=""
End Function

Estou tentando usar seguinte fórmula na A1:

 

=SE(A2="SIM";bloquear();"não deu")

mas não funciona.

 

Ilustrando:

 

 

Estou mandando um exemplo anexo.

 

exemplo chamar macro.zip

[Basole]

Não tem como chamar a funcao Bloquear por exemplo, atraves da forma e da formula, que esta fazendo. 

Veja no exemplo do post do @Patropi ele usou o evento da planilha chamado Worksheet_Change, que age conforme alguma celula é alterada na respect aba. 

Outro detalhe as funções que serão usadas em todas as abas, devem ficar em um modulo padrão e não no modulo de EstaPasta_de_trabalho, como voce colocou.

 

Veja as alteraçoes no anexo.

 

 

exemplo chamar macro_1.zip

[Ingo M P Américo]

WOW!!! Caiu uma lágrima aqui. 

 

Funcionou perfeitamente. Obrigado!

[RT Rodrigues]

Em 20/02/2011 às 11:08, Patropi disse:

Bom dia Siereis

Acho mais fácil usando programação mesmo.

Faça o seguinte:

Clique com lado direito do mouse na Aba da tua planilha--> clique em Exibir código--->copie e cole este código:

 

 

Private Sub Worksheet_Change(ByVal Target As Range) 

If Target.Address = "$A$1" then 
    Call NomeMacro 
End if 

End Sub 

 

Substitua Nome Macro pelo nome da tua macro e substitua o $A$1 pela célula da tua planilha.

Um abraço

Olá, deu quase certo a sua sugestão, porém no meu caso eu quero que zere um numero acima de 5 e ela esta zerando qualquer numero, como colocar a função SE dentro desta configuração?

[Patropi]

Boa tarde @RT Rodrigues

 

Experimente:

 

If Target.Address > "$A$1" then

Se for maior que valor célula A1 ele executa.

 

[]s

[RT Rodrigues]

ainda não deu certo, a formula seria essa =soma(se(a1