Ciao a tutti
ho una tabella con dei dati e vorrei far in modo che questi deti vengano ordinati secondo il valore di una data colonna alla pressione di un tasto. Fin qui tutto ok, ho creato una macro che poi ho assegnato ad un tasto e tutto funziona. Il problema nasce quando aggiungo altri dati aumentando così le righe. Siccome il lavoro andrà fatto da "persone non addette ai lavori" vorrei fare in modo che una volta inserite le righe con i nuovi dati si limitino a premere un tasto e l'ordimamento avviene da solo. come faccio a rendere variabile la selezione nella macro tenendo presente che al di sotto dei dati inseriti ho i totali quindi non posso selezionare il foglio fino alla fine.

questa è la macro che ho creato e fondamentalmente vorrei che il range variasse all'aggiungere nuove righe e che non fosse fisso su Q21.

Cells.Select
Range("C1:Q21").Sort Key1:=Range("C2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("J21").Select




Spero di essermi spiegato (anche se nn credo) e confido in un vostro aiuto.

Grazie

salve
per fare quello che chiedi, devi definire l'ultima riga della tabella
utilizzando diverse soluzioni dipendentemente dal tipo di tabella che hai.
quella che preferisco è usare l'istruzione End dal basso verso l'alto che non viene influenzata dal fatto che nella tabella ci possano essere celle vuote.

questo che segue è un esempio di quanto detto:

Ur = Range("Q65536").End(xlUp).Row
Range("C1:Q" & Ur).Sort Key1:=Range("C2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("J21").Select

in questo modo l'aggiunta di records viene presa in considerazione ogni qualvolta lanci la macro.
saluti
Andrea

---

salve
con l'istruzione
Ur = Range("Q65536").End(xlUp).Row

viene chiesto di individuare la prima cella occupata della colonna Q a partire dall'ultima cella di colonna (che fino ad excel 2003
e la riga 65536).
Quando indentifica la prima cella non vuota, con l'istruzione ".Row" assegna alla variabile Ur il numero di riga.

La proprietà END ( dall'Help in linea:Restituisce un oggetto Range che rappresenta la cella alla fine dell'area contenente l'intervallo di origine) opera con le seguenti direzioni:
XlDown = dall'alto verso il basso
XlUp= Dal basso verso l'alto
XlToLeft = Da destra verso sinistra
XlToRight= Da sinistra verso destra

saluti
Andrea

---