Condividi:        

Ordine alfabetico nomi in ListBox

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Ordine alfabetico nomi in ListBox

Postdi enrico43 » 25/03/15 22:59

Buonasera, se io popolo una ListBox su un foglio direttamente con una variabile, riesco poi a mettere in ordine alfabetico crescente o decrescente i nomi all’interno della List con un CommandButton premuto 2 volte, ambedue su una UserForm richiamata con un bottone da foglio1. Ma non riesco ad uscirne se io la popolo con i nomi presi da una colonna del foglio. Mi potete aiutare ?
Un grazie a chi mi aiuterà.
Cordiali saluti
Enrico
http://www.filedropper.com/listbox
enrico43
Utente Senior
 
Post: 208
Iscritto il: 13/09/14 15:33
Località: Fiumicino

Sponsor
 

Re: Ordine alfabetico nomi in ListBox

Postdi Anthony47 » 26/03/15 00:35

Quando imposti un RowSource (e' quello che intendevi?) stabilisci un collegamento tra le celle e il controllo; la bubble sort non puo' intervenire in questo collegamento, da cui l' eventuale errore.
Ti bastera', nella userform initialize, copiare il tuo intervallo in una Variant e usare poi questa variant per popolare il ListBox. Tipo
Codice: Seleziona tutto
Private Sub UserForm_Initialize()
Dim vArr As Variant
vArr = Range("L1:L10")      '<<< Il tuo RowSource
Me.ListBox1.List = vArr
Exit Sub

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Ordine alfabetico nomi in ListBox

Postdi enrico43 » 26/03/15 06:20

Per il momento non mi funziona, più tardi ci guarderò con calma.
Comunque grazie. Un saluto
Enrico
XP - Excel 2003
enrico43
Utente Senior
 
Post: 208
Iscritto il: 13/09/14 15:33
Località: Fiumicino

Re: Ordine alfabetico nomi in ListBox

Postdi enrico43 » 26/03/15 12:10

Grazie per la risposta istantanea.
Mi debbo scusare perchè l'informazione che ti ho dato mancava di un "piccolo" dettaglio. La listbox la carico con i nomi dei fogli ed inoltre quanto inviato è solo una piccola parte o meglio una prova di un'istruzione di una macro di un file molto più articolato e grande.
Faccio sempre prove parziali prima di inserire le istruzioni definitive.
Ti allego comunque il pezzo che carica la list da nome fogli e scusandomi per l'accaduto
Ti saluto
Enrico
http://www.filedropper.com/listbox1

Quando clicco Invia la bar resta ferma a metà, però il messaggio parte e per verificare devo aprire un altra istanza e vedere se è arrivato.
enrico43
Utente Senior
 
Post: 208
Iscritto il: 13/09/14 15:33
Località: Fiumicino

Re: Ordine alfabetico nomi in ListBox

Postdi Anthony47 » 26/03/15 15:32

Il concetto e' lo stesso: non popoli direttamente il listbox ma tramite un array e poi l' assegnazione dell' array alla proprieta' List del controllo. Tipo
Codice: Seleziona tutto
Private Sub UserForm_Initialize()
Dim wArr()
ReDim wArr(1 To ThisWorkbook.Worksheets.Count)
    Dim ws As Worksheet
    For i = 1 To ThisWorkbook.Worksheets.Count
        wArr(i) = Worksheets(i).Name
    Next i
Me.ListBox1.List = wArr
End Sub


Non capisco tutto quel giro sulla selezione del foglio; fallo direttamente con qualcosa tipo
Codice: Seleziona tutto
Private Sub CommandButton1_Click()
    Dim mySel
    mySel = ListBox1.Text
    If mysel <> "" Then
        Sheets(mySel).Activate
    End If
End Sub


Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Ordine alfabetico nomi in ListBox

Postdi enrico43 » 26/03/15 22:12

Grazie ancora. Domani provo, stasera sono troppo stanco.
Un saluto
Enrico
enrico43
Utente Senior
 
Post: 208
Iscritto il: 13/09/14 15:33
Località: Fiumicino


Torna a Applicazioni Office Windows


Topic correlati a "Ordine alfabetico nomi in ListBox":


Chi c’è in linea

Visitano il forum: Nessuno e 47 ospiti