| | Post: 55 | Registrato il: 18/06/2010
| Città: LUGO | Età: 70 | Utente Junior | Excell 2016 | | OFFLINE | |
|
  15/09/2019 15:27 | |
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 |
|
| | Post: 2.391 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
| 15/09/2019 16:15 | |
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
[Modificato da dodo47 15/09/2019 18:30] Domenico
Win 10 - Excel 2016 |
| | Post: 55 | Registrato il: 18/06/2010
| Città: LUGO | Età: 70 | Utente Junior | Excell 2016 | | OFFLINE | |
|
| 16/09/2019 11:44 | |
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 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
| 16/09/2019 12:33 | |
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
[Modificato da dodo47 16/09/2019 12:44] Domenico
Win 10 - Excel 2016 |
| | Post: 56 | Registrato il: 18/06/2010
| Città: LUGO | Età: 70 | Utente Junior | Excell 2016 | | OFFLINE | |
|
| 16/09/2019 13:40 | |
Ti ringrazio infinitamente dodo47 .... così è tutto perfetto
ciao ![[SM=x423028]](http://www.erismag.it/Servizio/ForumExcel/Smiles/Faccina_0008.gif) |
| | Post: 4 | Registrato il: 11/04/2017
| Città: ARPAIA | Età: 49 | Utente Junior | Excel 2007 | | OFFLINE | |
|
| 23/09/2019 09:42 | |
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 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
| 23/09/2019 09:49 | |
prova ad utilizzare cDate oppure cLng sulla if...
saluti
Domenico
Win 10 - Excel 2016 |
| | Post: 5 | Registrato il: 11/04/2017
| Città: ARPAIA | Età: 49 | Utente Junior | Excel 2007 | | OFFLINE | |
|
| 23/09/2019 12:10 | |
Perfetto dodo47 funziona perfettamente con cDate invece con cLng mi ma tipo non corrispondente
Grazie per la dritta
|
|
|
|
|