Ordinare elenco in ComboBox

Question

Ciao a tutti.

Da una UserForm1,  carico dei dati in una una ComboBox2

facendo uso del seguente codice:

Private Sub UserForm_Initialize()

  Dim rng As Range 

  Set rng = Workbooks("AAvvio.xlsm").Sheets("ArchivioFornitori").Range("B4:F350")

  With Me.ComboBox2

    .RowSource = ""                                                           

    .ColumnCount = 5

    .ColumnWidths = "30;0;100;160;100"                                                 

    .List = rng.Value

  End With 

End Sub

Vorrei che questi dati, quando apro la ComboBox2, apparissero

ordinati da A4 ad  F350 in ordine dalla  A  alla  Z  in base all’elenco della colonna E.

E' possibile.

Un grazie a chi può aiutarmi.

Ciao.

Nunzio.

Answer 1

Ciao Andrea.

Credo proprio di aver fatto una grande confusione.

Devo le mie scuse a tutti (dovrei frustarmi).

Per  il momento penso di aver risolto imponendo di

riordinare, il foglio d'origine, così:

Private Sub Worksheet_Activate()

  Rem   +++   Inizio ordina in ordine dalla A alla Z  per colonna E (Cognome)   +++

  Range("A4:AZ400").Select

  ActiveWorkbook.Worksheets("ArchivioFornitori").Sort.SortFields.Clear

  ActiveWorkbook.Worksheets("ArchivioFornitori").Sort.SortFields.Add Key:=Range _

      ("E4:E400"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("ArchivioFornitori").Sort

      .SetRange Range("A4:AZ400")

      .Header = xlGuess

      .MatchCase = False

      .Orientation = xlTopToBottom

      .SortMethod = xlPinYin

      .Apply

    End With

  Rem   +++   Fine ordina in ordine dalla A alla Z  per colonna E (Cognome)   +++

  Range("A1").Select

End Sub

Di nuovo mi scuso con tutti.

Tante, tante grazie.

Ciao.

Nunzio.

Answer 2

Ciao Andrea.

Grazie della risposta.

Se non esiste altra soluzione credo che la Tua

sia un'ottima soluzione.

Grazie.

Ciao.

Nunzio.

Answer 3

Ciao a tutti.

Da una UserForm1,  carico dei dati in una una ComboBox2

facendo uso del seguente codice:

Private Sub UserForm_Initialize()

  Dim rng As Range 

  Set rng = Workbooks("AAvvio.xlsm").Sheets("ArchivioFornitori").Range("B4:F350")

  With Me.ComboBox2

    .RowSource = ""                                                                     

    .ColumnCount = 5

    .ColumnWidths = "30;0;100;160;100"                                                 

    .List = rng.Value

  End With 

End Sub

Vorrei che questi dati, quando apro la ComboBox2, apparissero

ordinati da A4 ad  F350 in ordine dalla  A  alla  Z  in base all’elenco della colonna E.

E' possibile.

Un grazie a chi può aiutarmi.

Ciao.

Nunzio.

Ciao Nunzio,

se non puoi ordinare il range 'originale', utilizza un foglio di appoggio, eventualmente nascosto, nel quale copiare il range B4:F350, ordinalo in base alla colonna E ed infine fornisci quest'ultimo riferimento alla .List del ComboBox.

Andrea.

Answer 4

Ciao Mauro.

Scusa l'ignoranza ma non capisco:

 forse mi ordina da A1 ad A100 e poi A9.

 Se è coì non esiste un modo per ordinare da A1 ad A350 secondo l'ordine della colonna E.

Grazie.

Ciao.

Nunzio.

Answer 5

Un grazie a chi può aiutarmi.

Ciao.

Nunzio.

Vedi:

http://stackoverflow.com/questions/15543399/sort-combobox-vba

Ma.. ma A1, A9, A100 non si allineeranno come pensi tu, ma:

A1

A100

A9

Per riordinare in modo corretto, devi utilizzare: A001, A009, A100