Ordina Listbox

Storico discussioni

Listbox di Apoben64
Il mio quesito č questo :
ho una listbox che mi visualizza il contenuto di un foglio dati . il foglio č composto da una prima colonna "numero progressivo" e da una seconda colonna "cliente". ovviamente quando la listbox viene caricata mi visualizza i dati come sono scritti nel foglio. invece quello che vorrei č che la listbox me li visualizzasse in un ordine diverso , esempio:
foglio dati
colonnaa colonnab
1 luca
2 marco
3 luca

nella listbox :
colonna"a" colonna"b"
1 luca
3 luca
2 marco

in poche parole vorrei ottenre e un ordinamento alfabetico sulla base di una scelta, in questo caso "cliente".
esiste una proprietą insita nell'oggetto o come potrei altrimenti risolvere il problema, per non intaccare i dati progressivi del foglio dati ?

di Apoben64
Mi dimenticavo che ho anche preso in considerazione la possibilitą di copiare i dati in un altro foglio e ordinarli e visualizzarli nella listbox, ma vorrei evitarlo perchč i dati vengono continuamente aggiornati . un grazie per una risposta !!!!

di Emmedue
Non ho molta esperienza in vba ma secondo me se con una macro, prima di caricare i dati nella listbox ordini i campi nel modo che desideri e all'uscita li ripristini con un'altra macro potresti risolvere il tuo problema. l'ho provato sul mio pc e funziona. ciao.

di Mauro
Prova questa routine...
 
Private Sub UserForm_Activate()
    MinVal = "                "
    I = 1
    Do Until Range("A" & I).Text = ""
        J = 1
        ComVal = "zzzzzzzzzzzzzzzz"
        Do Until Range("A" & J).Text = ""
            If Range("A" & J).Text < ComVal _
            And Range("A" & J).Text > MinVal Then
            ComVal = Range("A" & J).Text
            End If

            J = J + 1
        Loop
        ListBox1.AddItem ComVal
        MinVal = ComVal
        I = I + 1
    Loop
End Sub

di Apoben64
Un grazie sia a emmedue che a mauro. le due soluzioni proposte hanno fatto al caso mio.

Cognolato Studio © 2005