ComboBox com 2 Colu...
 
Compartilhar:
Notifications
Clear all

ComboBox com 2 Colunas


pedrobb
Posts: 34
Registered
Topic starter
(@pedrobb)
Eminent Member
Entrou: 3 anos atrás

Pessoal,
Uso a função abaixo pra popular uma ComboBox, em ordem e com valores
exclusivos.
A ComboBox tem 01 coluna,mas preciso que essa ComboBox abra a Coluna "C"
também (que tenha 2 colunas).

Sub PreencherComboDespesas()
    Dim iRow As Long
    Dim lastRow As Long
    Dim ws As Worksheet
    Dim List As Object 'mscorlib.ArrayList
    Dim NewItem As String
    Dim Values As Variant
    Set List = CreateObject("System.Collections.ArrayList")
    Set ws = Planilha4 'ThisWorkbook.Worksheets(1) 'ActiveCell
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    If Planilha4.Range("L1").Value = 0 Then Exit Sub
    For iRow = 2 To lastRow
        NewItem = ws.Cells(iRow, "B").Value2  <<<<----- preciso de 2 colunas, B e C
            If Not List.Contains(NewItem) Then
                List.Add NewItem
            End If
    Next iRow
    List.Sort
    Values = WorksheetFunction.Transpose(List.ToArray)
    frmDespesas.ComboDespesas.List = Values
Set List = Nothing
Set ws = Nothing
End Sub
Responder
Tags do Tópico
2 Respostas
EdsonBR
Posts: 957
Moderator
(@edsonbr)
Prominent Member
Entrou: 7 anos atrás

Bom dia, @pedrobb!

Quando uma pergunta fica muito tempo sem nenhuma resposta, desconfie!

Eu diria que na maioria das situações é pq faltou anexar um modelo funcional do que está sendo pleiteado para que se possa testar o simulacro. E no VBA, sem poder testar fica complicado ajudar.

Ou é quando a explanação não foi suficientemente clara ou mixuruca em exemplos hehehe...

Claro que às vezes também é por ser excessivamente complexa ou demasiadamente trabalhosa para ser resolvida em um fórum.

Tente acrescentar algo que possa auxiliar os colaboradores do fórum a ajudar a resolver o problema... o anexo pelo menos eu diria ser essencial.

Responder
pedrobb
Posts: 34
Registered
Topic starter
(@pedrobb)
Eminent Member
Entrou: 3 anos atrás

Segue exemplo anexo.

Responder
Compartilhar: