riordinare diverse colonne in excel con VBA

Question

Buongiorno a tutti,

io ho delle piccole tabelle sparse per il Foglio1, una che va da U79 a U99 e un'altra che va da Z127 a Z141. ho la necessita che ogni qualvolta la tabella si aggiorna topo una selezione a tendina i dati di quelle colonne si devono ordinare in modo decrescente. su internet ho trovato questo codice:

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Not Intersect(Target, Range("U:U")) Is Nothing Then

Range("U79:U99").Sort Key1:=Range("U79"), _

Order1:=xlDescending, Header:=xlYes, _

OrderCustom:=1, MatchCase:=False, _

Orientation:=xlTopToBottom

End If

If Not Intersect(Target, Range("Z:Z")) Is Nothing Then

Range("Z127:Z141").Sort Key1:=Range("Z141"), _

Order1:=xlDescending, Header:=xlYes, _

OrderCustom:=1, MatchCase:=False, _

Orientation:=xlTopToBottom

End If

End Sub

Il quale per la prima parte funziona egregiamente, ma la parte della colonna Z non ne vuole sapere.
se può essere d'aiuto a capire ho seguito questa pagina web

https://it.extendoffice.com/documents/excel/2592-excel-auto-sort-by-value.html#vba
qualcuno di voi mi saprebbe aiutare a capire come far funzionare questa macro anche sulle altre tabelle che ho nel foglio? così com'è sembra che vada solo la prima

grazie mille a tutti

Fabio

Answer 1

se può essere d'aiuto a capire ho seguito questa pagina web

Molto più utile condividere con OneDrive il file su cui hai l'esigenza per contestualizzarti la soluzione in VBA,

ciao.