Previous page | 1 | Next page
Facebook  

caricare una combobox con i valori di una colonna in ordine alfabetico

Last Update: 9/23/2019 12:10 PM
Author
Print | Email Notification    
Post: 55
Registered in: 6/18/2010
Location: LUGO
Age: 65
Junior User
Excell 2016
OFFLINE
9/15/2019 3:27 PM
 
Modify
 
Delete
 
Quote

Salve vorrei sapere se è possibile caricare una ComboBox coi valori estrapolati da una colonna messi in ordine alfabetico.
Per essere più preciso: nel file di esempio che allego vorrei che nella Cbo_Autore mi comparissero tutti i nominativi trovati nella colonna B però in ordine alfabetico.
Grazie per eventuali suggerimenti
Contest - Una macchia di storiaEFPuna10/18/2019 6:23 PM by Inchiostro_nel_Sangue
Elenchi Registi con più Film Degni di NotaAnkie & Friends - L&#...con10/16/2019 10:14 PM by XWF is TNA
Copio una colonna di date da un file excel, la incollo in un altro e ottengo date diversecolonna10/7/2019 12:28 PM by dodo47
Post: 2,391
Registered in: 4/6/2013
Location: ROMA
Age: 72
Veteran User
2010
OFFLINE
9/15/2019 4:15 PM
 
Modify
 
Delete
 
Quote

Ciao
non puoi usare ...to 400, perchè ordinando i valori ti verrebbero all'inizio una marea di spazi vuoti.

E poi perchè ripetere lo stesso nominativo per più di una volta?


Private Sub UserForm_Activate() ' Perchè non Initialize???
Dim N
lr = Range("B" & Rows.Count).End(xlUp).Row
For N = 2 To lr
    If WorksheetFunction.CountIf(Range("B2:B" & lr), Cells(N, 2)) = 1 Then
        Cbo_Autore.AddItem Cells(N, 2).Value
    End If
Next
For a = 0 To Me.Cbo_Autore.ListCount - 1
  For b = a To Me.Cbo_Autore.ListCount - 1
        If Me.Cbo_Autore.List(b) < Me.Cbo_Autore.List(a) Then
            c = Me.Cbo_Autore.List(a)
            Me.Cbo_Autore.List(a) = Me.Cbo_Autore.List(b)
            Me.Cbo_Autore.List(b) = c
       End If
  Next
Next
End Sub


Saluti




[Edited by dodo47 9/15/2019 6:30 PM]
Domenico
Win 10 - Excel 2016
Post: 55
Registered in: 6/18/2010
Location: LUGO
Age: 65
Junior User
Excell 2016
OFFLINE
9/16/2019 11:44 AM
 
Modify
 
Delete
 
Quote

grazie dodo47 ho seguito il tuo consiglio però ora me li ha messi in ordine alfabetico, ma alcuni nominativi non me li fa più vedere (...Beatles, Equipe84, Battisti ecc.) come è possibile ???
Ciao
Post: 2,392
Registered in: 4/6/2013
Location: ROMA
Age: 72
Veteran User
2010
OFFLINE
9/16/2019 12:33 PM
 
Modify
 
Delete
 
Quote

ciao
si scusa, errore di battitura:

.....
If WorksheetFunction.CountIf(Range("B2:B" & N), Cells(N, 2)) = 1 Then '<<<<<<<<<<<<<<
.....


Con l'occasione in B71 correggi "i Giganti" con Giganti (oppure viceversa tutte le celle che hanno "Giganti" con i Giganti).

In B24 togli lo spazio iniziale

Saluti

[Edited by dodo47 9/16/2019 12:44 PM]
Domenico
Win 10 - Excel 2016
Post: 56
Registered in: 6/18/2010
Location: LUGO
Age: 65
Junior User
Excell 2016
OFFLINE
9/16/2019 1:40 PM
 
Modify
 
Delete
 
Quote

Ti ringrazio infinitamente dodo47 .... così è tutto perfetto
ciao [SM=x423028]
Post: 4
Registered in: 4/11/2017
Location: ARPAIA
Age: 45
Junior User
Excel 2007
OFFLINE
9/23/2019 9:42 AM
 
Modify
 
Delete
 
Quote

buongiorno,

se lo stesso codice lo utilizzo per popolare la combo con date queste me le mette in ordine per giorno ma non per mese come dovrei modificarlo??
Grazie
Post: 2,397
Registered in: 4/6/2013
Location: ROMA
Age: 72
Veteran User
2010
OFFLINE
9/23/2019 9:49 AM
 
Modify
 
Delete
 
Quote

prova ad utilizzare cDate oppure cLng sulla if...

saluti



Domenico
Win 10 - Excel 2016
Post: 5
Registered in: 4/11/2017
Location: ARPAIA
Age: 45
Junior User
Excel 2007
OFFLINE
9/23/2019 12:10 PM
 
Modify
 
Delete
 
Quote

Perfetto dodo47 funziona perfettamente con cDate invece con cLng mi ma tipo non corrispondente

Grazie per la dritta
Admin Thread: | Close | Move | Delete | Modify | Email Notification Previous page | 1 | Next page
New Thread
 | 
Reply
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Home Forum | Bacheca | Album | Users | Search | Log In | Register | Admin
Tutti gli orari sono GMT+01:00. Adesso sono le 12:10 AM. : Printable | Mobile | Regolamento | Privacy
FreeForumZone [v.5.0.0] - Copyright © 2000-2019 FFZ srl - www.freeforumzone.com