Problema con excel 2003 funzione Sort

Question

Salve

Ho un problema con una macro su excel 2003

mi va in debag

in particolare mi va in errore perchè utilizza il metodo Sort, che non è supportato da versioni di excel precedenti al 2007.

Mi sapete dire come risolvere questo problema, vorrei farla funzionare per excel 2003.

Grazie

 If TxtNominativo.Text <> "" Then

  TxtNominativo.Text = ""

  End If

  If TxtNumero.Text <> "" Then

  TxtNumero.Text = ""

  End If

    If TxtCellulare.Text <> "" Then

  TxtCellulare.Text = ""

  End If

  If TxtMail.Text <> "" Then

  TxtMail.Text = ""

  End If

ws.Select

With ws

     .Sort.SortFields.Clear

     .Sort.SortFields.Add Key:=Range("B4:B500"), _

     SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

  With .Sort

       .SetRange ws.Range("B4:F500")

       .Header = xlGuess

       .MatchCase = False

       .Orientation = xlTopToBottom

       .SortMethod = xlPinYin

       .Apply

  End With

End With

Sheets("Elenco telefonico").Select

MsgBox ("Il nominativo è stato inserito")

Application.ScreenUpdating = False

End Sub

Answer 1

Ciao Mauro

mi sono forse mi spiegato male.

Con excel 2003 nno riesco a fare funzionare questa macro e peicisamente

mi va in debag in questo punto e mi da come errore

Impossibile trovare il metodo o il menbro dei dati

<cut>

Certo. SortFields, SortOn, ecc. sono sconosciuti dalle versioni 2003 e precedenti di Excel.

Devi utilizzare Sort nel modo supportato dalle versioni 2003 e precedenti.

Nella pagina che ho linkato c'è tutto quello che puoi fare con Sort.

expression.Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2, DataOption3)

E relativa spiegazione per ciascun argomento.

Qui vedi la differenza fra le due versioni:

• http://www.logicwurks.com/CodeExamplePages/ESortMethods.html

Nota. Lo so che vorresti postassi la soluzione, ma vuoi mettere se ci arrivi da solo! Troppa *pappa pronta* da un po' di tempo qui... ;-) (c'è una faccina, eh!)

Answer 2

ok Grazie Mauro

Answer 3

Ciao Mauro

mi sono forse mi spiegato male.

Con excel 2003 nno riesco a fare funzionare questa macro e peicisamente

mi va in debag in questo punto e mi da come errore

Impossibile trovare il metodo o il menbro dei dati

.SortFields.Clear

     .Sort.S.SortortFields.Add Key:=Range("B4:B500"), _

     SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

  With .Sort

       .SetRange ws.Range("B4:F500")

       .Header = xlGuess

       .MatchCase = False

       .Orientation = xlTopToBottom

       .SortMethod = xlPinYin

       .Apply

  End With

End With

La macro funziona solo dal 2007 in poi.

Gabriele

Answer 4

Salve

Ho un problema con una macro su excel 2003

mi va in debag

in particolare mi va in errore perchè utilizza il metodo Sort, che non è supportato da versioni di excel precedenti al 2007.

Mi sapete dire come risolvere questo problema, vorrei farla funzionare per excel 2003.

In che senso non è supportato Sort nel 2003? Certo che lo è!

• http://msdn.microsoft.com/en-us/library/office/aa213557(v=office.11).aspx

Il metodo Sort è supportato anche nelle versioni successive alla 2003,