Vídeo recomendado
https://youtu.be/diWPPPhW-9E

COMBOBOX NA PANILHA

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Douglas Vargas
Colaborador
Colaborador
Mensagens: 57
Registrado em: Sáb Ago 16, 2014 10:44 am

COMBOBOX NA PANILHA

Mensagem por Douglas Vargas »

Bom Dia Amigos,

Dúvida bem simples mas que realmente não lembro...hehe

Inseri uma combobox do controle active x na planilha do Excel. Só não consigo fazer o evento Additem carregar os dados pelo envento Click.

Clicando duas vezes sobre acombo abre o Vb faço a configuração para quando clicar carredar os comandos do Click mas não carrega.

O que posso estar fazendo de errado nesse caso?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: COMBOBOX NA PANILHA

Mensagem por srobles »

Douglas Vargas, boa noite!

Experimente estes dois eventos :

Código: Selecionar todos

Private Sub ComboBox1_DropButtonClick()
        Plan1.ComboBox1.Clear
        For i = 2 To ActiveSheet.UsedRange.Rows.Count
            If Cells(i, "A").Value <> "" Then
                Plan1.ComboBox1.AddItem Cells(i, "A").Value
            End If
        Next
End Sub 
Ou :

Código: Selecionar todos

Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 Then
        Plan1.ComboBox1.Clear
        For i = 2 To ActiveSheet.UsedRange.Rows.Count
            If Cells(i, "A").Value <> "" Then
                Plan1.ComboBox1.AddItem Cells(i, "A").Value
            End If
        Next
    End If
End Sub 
Abs


Responder