Ciao Angelo
per anticipare i tempi e consentire ad alfrimpa (ciao Alfredo) di godersi le vacanze, ti suggerisco questa macro da inserire nel modulo del Foglio interessato. Scrive "Ordina" nella cella A1 e, quando la selezioni, l'elenco viene ordinato.
Fai le dovute prove e fai sapere. Ciao,
Mario
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Cells(1, 1)) Is Nothing Then
uRiga = Cells(Rows.Count, "K").End(xlUp).Row
elenco = "A11:O" & uRiga
Range(elenco).Sort Key1:=Range("K11"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
End Sub