Spostare ed ordinare (a coppie) 2 colonne.

[nelson1331]

Vorrei sapere se mi potete creare una macro che possa spostare ed ordinare (a coppie - matrice bidimensionale) i dati contenuti in 2 colonne : a1:b90 in d1:e90, dal piu' piccolo al piu' grande (in ordine ascendente).
I numeri, in ciscun foglio interessato, occupano sempre le stesse posizioni e cioe' : a1:b90
Ogni cella e' piena e contiene 1 solo numero (valori da 1 a 90) i numeri del lotto.
I dati in ogni cella, sono sempre e solo numerici.
La macro deve intervenire automaticamente ad ogni apertura del foglio.
Solo alcuni dei fogli in excel, dovranno essere interessati da questa macro.
Esempio : nelle colonne a1:b90 potrei avere questi valori :
Col. a1:b1 = 10 33
Col. a2:b2 = 7 48
Col. a3:b3 = 15 41 ... e via di seguito
Il risultato che chiedo nelle colonne d1: e90 dovrebbe essere cosi' :
Col. d1:e1 = 7 48
Col. d2:e2 = 10 33
Col. d3:e3 = 15 41 ... e via di seguito
Grazie per il vostro interessamento.
Nelson

[Flash30005]

In un modulo inserisci questa macro

Codice: Seleziona tutto

Sub Ordina()

    Columns("A:B").Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("B1") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
    Range("A1").Select
End Sub

In ogni foglio interessato invece questo codice

Codice: Seleziona tutto

Private Sub Worksheet_Activate()
Call Ordina
End Sub

Ciao

[nelson1331]

Grazie Flash, mi sembra che tutto funzioni perfettamente.