[excel 2007] Ordinare

[ciro78]

Salve ragazzi
debbo ordinare da codice delle celle in excel

Ho trovato questo codice

  Range("J4", "J35").Select
Cells.Sort key1:=Range("J4", "J35"), order1:=xlAscending, OrderCustom:=1, MatchCase:=False _
, Orientation:=xlTopToBottom

ma mi restituisce
errore definito dall'aplicazione o dall'oggetto


come posso risolvere?

grazie

[nicola75ss]

Hai provato a registrare la macro e a vedere il codice che genera?

Sub ordina()
    Range("J4:J35").Select
    Selection.Sort Key1:=Range("J4"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

[ciro78]

nessuna variazione. non mi restituisce errore ma nemmeno me li ordina

[nicola75ss]

Ma hai provato a registrare la macro per vedere che codice sputa fuori?

[ciro78]

ho inserito la sub nel modulo e poi ho eseguito la funzione dal pannello macro,.....,

[nicola75ss]

Scusa, ma fai l'operazione direttamente tramite interfaccia grafica previa registrazione macro per vedere il codice che viene generato.

[ciro78]

aggiungo che quando provo ad ordinare mediante la barra degli strumenti mi dice

"per ordinare le celle unite devono avere la stessa dimensione"


potrebbe dipendere da questo?

[nicola75ss]

L'unione celle è sempre fonte di problemi. Se puoi evitala.

[ciro78]

si penso sia quello il problema mannaggia..ok per ora desisto domani ti aggiorno ciao e grazie

[ciro78]

ciao nicola,
grazie ai tuoi consigli sono riuscito a risolvere
posto il codice caso mai servisse a qualcuno

Range("A4:Q35").Select
    ActiveWorkbook.Worksheets("impieghi recenti").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("impieghi recenti").Sort.SortFields.Add Key:=Range( _
        "A4:A35"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("impieghi recenti").Sort
        .SetRange Range("A4:Q35")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

ciao