Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Spostare ed ordinare (a coppie) 2 colonne.

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Spostare ed ordinare (a coppie) 2 colonne.

Postdi nelson1331 » 05/10/11 09:59

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
nelson1331
Utente Junior
 
Post: 39
Iscritto il: 18/02/08 08:58

Sponsor
 

Re: Spostare ed ordinare (a coppie) 2 colonne.

Postdi Flash30005 » 05/10/11 11:38

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Spostare ed ordinare (a coppie) 2 colonne.

Postdi nelson1331 » 05/10/11 12:06

Grazie Flash, mi sembra che tutto funzioni perfettamente.
nelson1331
Utente Junior
 
Post: 39
Iscritto il: 18/02/08 08:58


Torna a Applicazioni Office Windows


Topic correlati a "Spostare ed ordinare (a coppie) 2 colonne.":


Chi c’è in linea

Visitano il forum: Nessuno e 15 ospiti

cron