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

616 Visualizações

RSS

jrcn91

(@jrcn91)

Posts: 2

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 17/09/2015 1:42 pm