Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

Donativo

Excel VBA - Inserindo o conteúdo de um Range num ComboBox ActiveX

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!


⬛◼◾▪ Social Media ▪◾◼⬛
• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 


⬛◼◾▪ CONTATO ▪

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine