Ordinamento automatico

Roby.

unread,

Jul 18, 2006, 1:42:19 PM7/18/06

to

Salve a tutti,
vorrei che i miei elenchi e tabelle in Excel si ordinassero automaticamente
all'inserimento dei nuovi dati, ma se non aziono il comando Ordina dal menù
Dati e quindi Ordina per e Quindi per, oppure non vado sui comandi
Ordinamento Crescente o Decrescente e non seleziono le colonne o le righe da
ordinare questo non avviene.
Volevo un aiuto per sapere se c'è un modo per automatizzare il processo e
risolvere la questione, che mi assilla.
Vi ringrazio e vi saluto.

Roberto.

pezroby@-nospam-tiscali.it
Togli -nospam- per le risposte.

Roby.

unread,

Jul 18, 2006, 1:46:14 PM7/18/06

to

Salve a tutti,
vorrei che i miei elenchi e tabelle in Excel si ordinassero automaticamente
all'inserimento dei nuovi dati, ma se non aziono il comando Ordina dal menù
Dati e quindi Ordina per e Quindi per, oppure non vado sui comandi
Ordinamento Crescente o Decrescente e non seleziono le colonne o le righe da
ordinare questo non avviene.
Volevo un aiuto per sapere se c'è un modo per automatizzare il processo e
risolvere la questione, che mi assilla.
Vi ringrazio e vi saluto.

--
Roberto.

robypez@-nospam-wooow.it

Mauro Gamberini

unread,

Jul 21, 2006, 2:44:26 AM7/21/06

to

> vorrei che i miei elenchi e tabelle in Excel si ordinassero
> automaticamente
> all'inserimento dei nuovi dati, ma se non aziono il comando Ordina dal
> menù
> Dati e quindi Ordina per e Quindi per, oppure non vado sui comandi
> Ordinamento Crescente o Decrescente e non seleziono le colonne o le righe
> da
> ordinare questo non avviene.
> Volevo un aiuto per sapere se c'è un modo per automatizzare il processo e
> risolvere la questione, che mi assilla.
> Vi ringrazio e vi saluto.
>

Mettiamo tu abbia da tenere ordinata la colonna A.

Elenco
a
a
d
e
e
f
g
h
r

Questo codice fa quanto chiedi:

Private Sub Worksheet_Change(ByVal Target As Range)

With Target
If .Column = 1 Then
Range("A1:A" & .Row).Sort Key1:=Range("A2"),
Order1:=xlAscending, Header:= _
xlYes, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
End With

End Sub

Da inserire nel modulo di codice del foglio dove hai i dati.
Prova ad inserire una a in fondo all'elenco...

--
---------------------------
Mauro Gamberini
http://www.riolab.org/