Macro que ativa caixa de combinação

Question

Boa tarde,

É possível por gentileza criar macro que altera uma linha de caixa de combinação?

Exemplo: A caixa de combinação tem 4 linhas:

1 - vazio

2 - Sala

3 - Quarto

4 - Banheiro

Exemplo: A caixa de combinação está na posição 4 - banheiro. Após executar uma macro, a caixa de combinação vai para a posição 1 - vazio

Answer 1

Crie um formulário com os controles ComboBox1 e CommandButton1 e insira o código abaixo:

Option Explicit

Private Sub CommandButton1_Click()
    With Me.ComboBox1
        If .ListIndex = .ListCount - 1 Then
            .ListIndex = 0
        Else
            .ListIndex = .ListIndex + 1
        End If
    End With
    
End Sub

Private Sub UserForm_Initialize()
    With Me.ComboBox1
        .AddItem ""
        .AddItem "Sala"
        .AddItem "Quarto"
        .AddItem "Banheiro"
    
        .ListIndex = 0
    End With
End Sub

---

http://www.ambienteoffice.com.br