Inserindo o conteúdo de um Range num ComboBox ActiveX
Este código VBA adicionará o conteúdo do intervalo da planilha Excel no ComboBox ActiveX com DropButtonClick
Private Sub Cmb_FiscQtr_DropButtonClick()
Dim WS As Worksheet
Dim r As Long
Dim n As Long
Dim x As Long
Dim y As Long
Dim OLE_Obj As Object
Dim FQ_Items() As Variant
Set WS = Worksheets("Test")
Set OLE_Obj = WS.OLEObjects("Cmb_FiscQtr").Object
On Error Resume Next
'O Range onde estão os valores
Let x = WS.Range("F65536").End(xlUp).Row
'Redimensionando o tamanho do Array
ReDim FQ_Items(1 To x - 9)
'Adicioando os trimestres fiscais do range no Combobox
Let FQ_Items(1) = "(All)"
Let n = 2
For r = 11 To x
Let FQ_Items(n) = WS.Cells(r, 6).Value
Let n = n + 1
Next r
Let Cmb_FiscQtr.List = FQ_Items
'Mostrando os itens no Combox Box
Let y = OLE_Obj.ListCount
For x = 0 To (y - 1)
Let OLE_Obj.ListIndex = x
MsgBox OLE_Obj.List(x)
Next x
'Deletando os Itens do Arrary
Erase FQ_Items
Set WS = Nothing
End Sub
Deixe seus comentários, compartilhe este artigo!
⬛◼◾▪ CONTATO ▪◾◼⬛
