ORDENACAO ALFABETICA LISTVIEW VBA

THGOF 26/09/2012 13:01:58
#410543

Ola pessoal, sou iniciante e VBA e estou com problemas para ordenação alfabetica em um Listview

Tenho 4 colunas em uma planilha , data,produto,quantidade e valor, quando faço a consulta o listview mostra a data na ordem ascendente e os outros valores só é apresentado o ultimo valor da consulta na primeira linha do List, ja tentei varios codigos e não consigo arrumar


Private Sub Filtrar_Click()

Set rel = Sheets([Ô]Plan1[Ô])
lin = 7
dti = CDate(TextBox4.Value)
dtf = CDate(TextBox5.Value)

Produtos.ListItems.Clear
L = 7
While rel.Cells(L, [Ô]i[Ô]) <> [Ô][Ô]
If rel.Cells(L, [Ô]i[Ô]) >= dti And rel.Cells(L, [Ô]i[Ô]) <= dtf Then
Produtos.Sorted = True
Produtos.ListItems.Add 1, , (rel.Cells(L, [Ô]i[Ô]).Value)
Produtos.ListItems(1).ListSubItems.Add 1, , UCase((rel.Cells(L, 10).Value))
Produtos.ListItems(1).ListSubItems.Add 2, , [Ô][Ô] & ((rel.Cells(L, 11).Value))
Produtos.ListItems(1).ListSubItems.Add 3, , [Ô]R$ [Ô] & ((rel.Cells(L, 12).Value))
Total = Total + rel.Cells(L, 12).Value
End If


L = L + 1
Wend
Total.Caption = ([Ô]R$ [Ô] & Total)
End Sub