Este fórum está sendo desativado

[fernandogaseo]

Prezados, boa tarde

Como faço para que uma macro seja executada, de acordo com o valor de uma determinada célula, entre três opções possíveis.

Exemplo, se na célula A60 estiver a palavra BANANA, execute a macro X, senão, se for MANGA, execute a macro Y, senão execute a macro Z.

Essas palavras, BANANA, MANGA... são resultados de função.

Se não fui claro, posso explicara melhor.

Abraço

[fernandogaseo]

A macro deve ser executada automaticamente, sem clicar em botão, apenas alterando o valor da célula, a macro deverá ser executada.

Obrigado desde já

[osvaldomp]

#
Experimente:

Código: Selecionar todos

Private Sub Worksheet_Calculate()
 If [A60] = "BANANA" Then
  macroX
 ElseIf [A60] = "MANGA" Then
  macroY
 Else: macroZ
 End If
End Sub

[fernandogaseo]

Graaaaannnnde Osvaldo, rs

Funcionou perfeitamente. Muito obrigado, mais uma vez.. tá ficando chato isso heim, hehe

Abraço, valew

[fernandogaseo]

Osvaldo, outra questão, responda quando puder.

Seguindo a mesma ideia, e se eu quiser que um botão com macro atribuída, só fique ativo se uma célula possuir uma palavra específica.

Ou seja, tem a palavra X, o botão funciona, não tem a palavra X, fica como se não tivesse macro.

agradeço desde já

[osvaldomp]

1. a palavra na célula será inserida manualmente ou será resultado de fórmula ?

2. o botão é do tipo Controle de Formulário ou Controle ActiveX ?

[fernandogaseo]

1. A palavra é resultado de fórmula.
2. O Botão é do tipo Controle de Formulário

[osvaldomp]

no módulo da planilha de interesse

Código: Selecionar todos

Private Sub Worksheet_Calculate()
 If [A1] = "Bozo" Then ActiveSheet.Shapes("Botão 1").OnAction = "Milícia" Else ActiveSheet.Shapes("Botão 1").OnAction = ""
End Sub

#
em um módulo comum

Código: Selecionar todos

Sub Milícia()
 MsgBox "hello, I'm Milícia"
End Sub

#
funcionamento - se ao recalcular a planilha a fórmula em A1 retornar "Bozo" então o primeiro código irá vincular o Botão 1 à macro Milícia; para qualquer outro resultado em A1 o código irá desvincular o botão; se necessário altere no primeiro código o nome do botão