wolneypk, quando definimos Rowsource direto no Combo, a única maneira de classificar é classificar os dados na aba antes de carregar.
No exemplo do Beto nao é utilizado a Propriedade RowSource, e para carregar o Combo com uma lista de outra aba, tem de ajustar o nome na linha :
With Sheets("plan1")
Na minha opinião, dependendo da qde de itens que irá carregar no combo, para termos uma melhor performance o ideal é classificar a coluna na aba e depois definir o Rowsource.
Segue um outro modelo onde adaptei para carregar os dados da aba "Cadastro_produtost" a partir da linha 2 col A.
Existem algumas outras formas de classificarmos, como eu disse, dependendo da qde de itens, temos de avaliar qual se adaptara melhor em questão de performance.
Uma outra forma, seria o que chamamos de "onFly",ou seja carregamos os itens em memoria, classificamos e só depois jogamos os resultado no Combo, adicione um novo botão em seu form e coloque a rotina abaixo,só ajuste o nome do botao na rotina
Classifica antes e só depois carrega o combo
Private Sub CommandButton3_Click()
Dim i As Long, j As Long, v As Variant
Dim tmp As Variant
v = Range("A1:A5").Value
For i = 1 To UBound(v, 1) - 1
For j = i + 1 To UBound(v, 1)
If v(i, 1) > v(j, 1) Then
tmp = v(i, 1)
v(i, 1) = v(j, 1)
v(j, 1) = tmp
End If
Next
Next
ComboBox1.List = v
End Sub
[]s
Postado : 24/06/2013 6:03 pm