Excel Ordinamento dati

[Statix]

Ho bisogno di ordinare dei dati per riga, il range A1:E1000
ho provato con Ordina ma funziona per una riga alla volta,
anche se aggiungo altri livelli non va,c'è qualche altra soluzione.

[Anthony47]

L' ordinamento si applica a elenchi verticali, mentre mi pare che tu voglia farlo su elenchi in orizzontale.

Temo che la soluzione sia i traslare i dati in verticale (vedi la funzione MATR.TRASPOSTA, o con un gioco di SCARTO utilizzando Rif.Riga come offset orizzontale e Rif.Colonna come offset verticale).

Ciao.

[Statix]

Ciao Anthony47,
per ordinare i dati,si puo fare anche con una macro?
per me andrebbe benissimo.

[Anthony47]

E' molto piu' semplice trasporre i dati, credimi.

Ciao.

[Statix]

Ciao Anthony47,

credo che questa volta devi ricrederti.
ho trovato la soluzione e funziona alla grande,con questa macro ti fà l'ordinamento di tutte le righe selezionate.

Sub OrdinaRighe()
Dim Riga
For Each Riga In Selection.Rows
Riga.Sort Key1:=Riga.Cells(1, 1), Orientation:=xlLeftToRight
Next Riga
End Sub

come sempre ti voglio ringraziare con affetto.

[Statix]

Ciao Anthony47
ho un altra macro che selezionando un range di numeri,mi elimina i numeri dispari

Sub Pari()

Dim Cella
For Each Cella In Selection
If Cella Mod 2 Then Cella.Value = ""
Next Cella
End Sub

volendo fare tutto il contrario,cioè selezionando un range di numeri eliminare i pari.
ecco, forse qui mi stò perdendo in un bicchier d'acqua!!

[Anthony47]

come sempre ti voglio ringraziare con affetto

Lo sapevo che gli amanti del lotto hanno un cuore!

La macro e' interessante; e' perfetta se fa quello che cercavi di fare.
Tieni presente pero' che alla fine della macro, i dati di ogni riga hanno perduto le relazioni che (immagino) avevano prima dell' ordinamento.

Per il secondo quesito, se avessi scritto in modo piu' esplicito le istruzioni non ti saresti perduto in un bicchiere d' acqua!
If Cella Mod 2 =1 Then Cella.Value = "" 'per eliminare i dispari
If Cella Mod 2 =0 Then Cella.Value = "" 'per eliminare i pari

Ciao.