Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Limpar Botão ComboB...
 
Notifications
Clear all

Limpar Botão ComboBox por meio de código VBA

 
2024 - VBA & Macros
Post Recente por wilker.adm 8 anos atrás
3 Posts
2 Usuários
0 Reactions
721 Visualizações
RSS
 wilker.adm
(@wilker-adm)
Posts: 17
Active Member
Topic starter
 

Boa noite.

Como faço para deixar o botão ComboBox vazio ao escolher uma opção/executar uma macro a exemplo da citada abaixo. Ou seja, quando estou na plan "Objetivos" daí escolho ir a plan "Rural" e em seguida voltar a plan "Objetivos". Quando seleciono uma opção no botão ComboBox a opção fica selecionada no botão, impedindo selecionar a mesma opção que a anterior.

Preciso de um código complementar que deixe o botão limpo e apto para selecionar qualquer opção. Se alguém conseguir me ajudar ficarei grato.

Private Sub ComboBox1_Change()

    i = ComboBox1.Value
    Sheets(i).Activate
       
    Select Case i
        Case "Rural"
            ActiveWindow.Zoom = 80
            ActiveSheet.Range("A50").Activate
        Case "Objetivos"
            ActiveWindow.Zoom = 85
            ActiveSheet.Range("B5").Activate
        Case "Fones"
            ActiveWindow.Zoom = 100
            ActiveSheet.Range("A56").Activate
        
        Case Else
            ActiveWindow.Zoom = 104
            ActiveSheet.Range("B6").Activate

    End Select
        
End Sub
 
Postado : 04/10/2016 6:19 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Use assim :

Private Sub ComboBox1_Change()

    'Verifica se o Combo está em branco e sai da rotina
    If ComboBox1.ListIndex = -1 Then
        'Sai da rotina
        Exit Sub
    End If
    
    i = ComboBox1.Value
    Sheets(i).Activate
       
    Select Case i
        Case "Rural"
            ActiveWindow.Zoom = 80
            ActiveSheet.Range("A50").Activate
        Case "Objetivos"
            ActiveWindow.Zoom = 85
            ActiveSheet.Range("B5").Activate
        Case "Fones"
            ActiveWindow.Zoom = 100
            ActiveSheet.Range("A56").Activate
        
        Case Else
            ActiveWindow.Zoom = 104
            ActiveSheet.Range("B6").Activate

    End Select
    
    'ListIndex -1 Deixa o Combobox em branco, oprimeiro item de um Combo é 0
    ComboBox1.ListIndex = -1
    
End Sub

[]s

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

 
Postado : 04/10/2016 7:25 pm
 wilker.adm
(@wilker-adm)
Posts: 17
Active Member
Topic starter
 

Boa tarde, Mauro Coutinho.

Ficou 100%, muito obrigado.

 
Postado : 08/10/2016 12:14 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico