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

Executar macro de acordo com informação de uma célula

 
2024 - VBA & Macros
Post Recente por jrcn91 9 anos atrás
3 Posts
2 Usuários
0 Reactions
600 Visualizações
RSS
 jrcn91
(@jrcn91)
Posts: 0
New Member
Topic starter
 

Boa Tarde,

Tenho uma lista suspensa em um planilha gostaria que ao selecionar uma dado desta lista seja executado um macro especifico.
Na lista suspensa eu tenho duas opções Sim e Não, ao selecionar Sim executaria a Macro1 ao selecionar Não executaria a Macro2.

Alguém tem um código que eu possa usar como exemplo?

Obrigado

 
Postado : 17/09/2015 1:14 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Supondo que sua lista está em "A1" utilize a rotina abaixo :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sValor
        
    sValor = Target.Value
        
    If Target.Address = "$A$1" Then
        If sValor = "Sim" Then MsgBox "Macro1"  'Troque MsgBox "Macro1" pelo nome de suas macros
        If sValor = "Não" Then MsgBox "Macro2"  'Troque MsgBox "Macro2" pelo nome de suas macros
           
    End If
       
End Sub
 
Postado : 17/09/2015 1:42 pm
 jrcn91
(@jrcn91)
Posts: 0
New Member
Topic starter
 

Obrigado! O código funcionou perfeitamente da forma que precisava.

 
Postado : 17/09/2015 2:09 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico