Marius44 ha scritto:
Sì, funzionerebbe lo stesso SOLO CHE devi variare il numero di riga.
Se, come penso, hai usato il registratore avrai notato che quando selezioni un intervallo il codice ti dice che hai selezionato, ad esempio, l'intervallo A1:A10; è proprio quest'ultima cifra che va cambiata e deve essere riferita all'ultima riga da comprendere nella selezione.
Per rendere dinamico l'ultima riga, all'inizio della macro metti queswto codice:
uRiga=ActiveSheet.cells(rows.count,1).end(xlup).row
La variabile uRiga è da mettere al posto del 10 di cui all'esempio precedente. Il codice relativo all'intervallo diventa ("A1:A" & uRiga)
Il codice suddetto assume il numero dell'ultima cella "piena" della colonna A.
Ciao,
Mario
Ciao Mario,
Scusa anche il ritardo ma ci ho messo un po a capire alcune funzioni.
Comunque seguendo i tuoi Input, sono riuscito a capire il funzionamento della registrazione.
Quindi ho fatto un piccolo programmino che riordina in ordine crescente anche se...(ci sono ancora le doppie, che presto spero di levare).
Attualmente ho tenuto i valori A1 e A501 fissi, ma presto li programmero' che siano automatici
With Foglio2
lUlta = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A2:C" & lUlta).Sort _
Key1:=.Range("A1"), Order1:=xlAscending, _
Key2:=.Range("A501"), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
End With
Molte di queste funzioni le apprese dai tuoi suggerimenti e ti ringrazio moltissimo.
Buona giornata!!!
Daniele