Ciao,
ogni tanto mi capita questo fatto assai strano, e non sono ancora riuscito a trovare il "colpevole"...
PREMESSA
nel foglio di lavoro devo ordinare i dati di una tabella in modo decrescente, tenendo come riferimento dell'ordinamento i valori della col.A. Per fare questo a suo tempo il carissimo Amico a10n11 mi aveva dato una, ma che dico una...1.000.000 di mani inserendo nella macro questo codice:
Range("a3", Range("cn" & Rows.Count).End(xlUp)).Select
Selection.Sort Key1:=Range("A3"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
in cui viene selezionato il Range della tabella (che parte da riga 3, col.A, ed è sempre variabile nel n. delle righe, ma mai nel n. delle colonne-l'ultima è la CN), viene posta la col.A quale riferimento in cui operare l'ordinamento decrescente.
PROBLEMA
tutto l'ambaradan funziona all perfezione, però ogni tanto ecco cosa succede:



in cella A3 anziché esserci il valore giusto ne compare un altro... ovviamente più piccolo.
Quale può essere il motivo?? Non riesco assolutamente a comprenderlo, perché facendo fare l'operazione in modo "tradizionale" (non via macro, ma con l'apposita opzione dal menù Modifica > Ordina e filtra > Ordinamento personalizzato > si apre il form Ordina in cui bisogna deselezionare l'opzione 'Dati con intestazioni' e poi Ordina per: col.A - Ordina in base a: Valori - Ordine dal più grande al più piccolo > dare l'OK) và tutto in porto in modo impeccabile.
Grazie infinite e buona giornata
eZio

Nota: se può essere utile per un confronto ecco cosa scrive il registratore di macro:
(qui la tabella và da A3 a CN266)

Sub Macro2()
Range("A3").Select
Range("A3:CN266").Select
ActiveWorkbook.Worksheets("Archivio").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Archivio").Sort.SortFields.Add Key:=Range( _
"A3:A266"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Archivio").Sort
.SetRange Range("A3:CN266")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Nota aggiuntiva:
cannibalizzando e ibridando le due macro il tutto funziona, ma io sono un "perfettino" e mi piacciono alla follia le soluzioni di a10n11 (basta osservare la bellezza della sua essenzialità, rispetto a quella "ordinaria" che infila righe su righe di codice che poi in fondo fanno la stessa cosa... probabilmente in quella scritta sopra manca un riferimento che però è determinante), per cui il fatto che l'ibrido funzioni soddisfa sì il lavoro, ma certamente non me!! :)))))))))))))
ecco l'ibrido:
Sub Meticcio()
Range("a3", Range("cn" & Rows.Count).End(xlUp)).Select
ActiveWorkbook.Worksheets("Archivio").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Archivio").Sort.SortFields.Add Key:=Range( _
"A3"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Archivio").Sort
.SetRange Range("a3", Range("cn" & Rows.Count).End(xlUp))
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Grazie assai e buona giornata
eZio

Ciao,
Ho in uso Office 2007. Non riesco a capire come, e dove, abbia potuto ordinargli di eseguire l'ordinamento per il riconoscimento fonetico cinese...?? O bella questa! Sicuramente è lo scherzo di qualche smanettone buontempone ahahaha

Il problema:
usando il codice scritto in apertura a volte- sottolineo solo a volte- esegue l'ordinamento in modo errato come si vede nell'immagine sopra: in cella A3 dovrebbe alloggiare il valore più alto, cioè 4848 e non 4792 che dovrebbe essere in A8 al posto di 4766 che a sua volta andrebbe in A9, e a scendere i valori via via minori fino all'ultima riga scritta in cui in una cella di col.A vi sarà scritto il valore più piccolo. Ovviamente tutta la tabella, con Range("a3", Range("cn" & Rows.Count).End(xlUp)), essendo stata selezionata verrebbe "riposizionata" seguendo pari pari l'ordinamento decrescente di col.A che è il 'capo commessa'.
Spero di avere un poco chiarito.
Guardando nelle Opzioni di Excel > Impostazioni generali > Personalizzazione della copia di MO > Impostazioni lingua > come lingua di modifica generale è impostato l'Italiano... bo??
Per favore, mi scrivi in che altro modo posso andare a controllare l'opzione che fà lavorare Excel in cinese per stroncargli la carriera sul nascere...? :)))
Grazie assai, buon pomeriggio
eZio

salve
la differenza che vedi nella macro registrata con il tuo 2007 usa semplicemente una sintassi differente e delle opzioni nuove non disponibili nelle versioni precedenti.
Se io copiassi il codice che hai postato nel mio 2003 mi darebbe un errore in quanto alcuni metodi non sono supportati.
tipo - SortMethod

il tuo riassemblamento è corretto.
saluti
Giap

---