Ciao,
Ormai non passa giorno che non chieda qualcosa... non c'è più religione :))

Il mio attuale cruccio è questo:
ho delle tabelle come questa,


dal numero di righe variabile (le colonne sono sempre le stesse) i cui dati non sono ordinati come mi servono, quindi per ricavarli devo agire col menù: Modifica>Ordina e filtra>Ordinamento personalizzato. I dati vanno ordinati in senso decrescente di col.A, le tabelle iniziano da col.A fino a col.GT e variano in lunghezza a seconda dei casi.
ho provato a costruire una macro, appoggiandomi ad una dima fatta col registratore usando una data tabella (con un'area definita per quell'occasione) adattando i dati ricavati da altre macro costuite giorni fa per le tabelle con area variabile:

Sub ordina2()
Uriga = Range("A" & Rows.Count).End(xlUp).Row
Set Area = Range("A3", Range("GT3" & Uriga)).SpecialCells(xlCellTypeVisible)
ActiveWorkbook.Worksheets("Archivio").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Archivio").Sort.SortFields.Add Key:= _
Range("A3", Range("GT3" & Uriga)).SpecialCells(xlCellTypeVisible), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Archivio").Sort
.SetRange Range("A3", Range("GT3" & Uriga)).SpecialCells(xlCellTypeVisible)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B3").Select
End Sub

la macro però si pianta alla riga Apply e mi restituisce l'errore


Dove sbaglio in modo clamoroso?
Grazie assai e buona giornata,
eZio

salve
cosa c'è di strano in questa istruzione??


Range("A3", Range("GT3" & Uriga))


prova a cambiare così:

Range("A3", Range("GT" & Uriga)).

saluti
Giap

---

Salve
a Napoli direbbero è una "Ciofeca"

se togli la riga che intercetta l'errore <<On Error Resume Next>>
scopriresti che la macro non è corretta.

con l'istruzione <<Range("A1").End(xlUp).Select>> vai a selezionare tutte le righe (se ci fossero) al di sopra di A1. Il risultato ottenuto è un ordinamento della cella A1!!!

se tu avessi scritto
Sub Ordina3()
Range("a1",range("a" & rows.count).end(xlup)).select
Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

forse avresti ottenuto il risultato voluto.
saluti
Giap

---