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?
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
COMBOBOX NA PANILHA
-
- Colaborador
- Mensagens: 57
- Registrado em: Sáb Ago 16, 2014 10:44 am
Re: COMBOBOX NA PANILHA
Douglas Vargas, boa noite!
Experimente estes dois eventos :
Ou :
Abs
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
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