Notifications
Clear all

Ordenar Listbox

2 Posts
2 Usuários
0 Reactions
2,388 Visualizações
(@edcurita)
Posts: 67
Trusted Member
Topic starter
 

Olá Amigos,

Pesquisei no fórum e achei um post sobre ordenação da listbox, mas não consegui me entender com o código apresentado. No Google achei uma outra orientação que acredito que dará certo, e é bem mais simples.
Gostaria de solicitar ajuda no seguinte sentido:
São várias planilhas e não sei como referenciar a coluna que quero na planilha que desejo. No caso a coluna será a de Banco / Conta em plan2.

O código que achei é o seguinte:

Dim ini, fim As Integer
Dim i, j As Integer
Dim menor As String
ini = 0
fim = ListBox.ListCount - 1

For i = ini To fim - 1
For j = i + 1 To fim
If ListBox1.List(i) > ListBox1.List Then
menor = ListBox1.List(j)
ListBox1.List(j) = ListBox1.List
ListBox1.List(i) = menor
End If
nest j
Next i

Relembrando, não sei como referenciar a coluna e a planilha que desejo ordenar.

Obrigado pela ajuda.

Edmilson

 
Postado : 26/08/2013 3:25 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Um pouco confuso o exemplo, deveria ser um pouco mais claro, no modelo tem varios formulários, não encontrei em qual dos forms onde os dados que estão na Aba "LANCAMENTO" são carregados.

De qualquer forma, na rotina que postou a classificação é sempre pelos dados na coluna 1 do listbox, se quer por outras colunas de uma olhada no Tópico abaixo, baixe o exemplo e veja se ajuda.

Classificar Listbox por tipos de dados
viewtopic.php?f=21&t=3980

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/08/2013 6:44 pm