Come far funzionare una macro su più fogli excel

[verboPartecipante verbo Karma: 1 pt]

scusa non nel primo foglio ma nel foglio 1 giornata

[LukeRedsPartecipante LukeReds Karma: 13 pts]

dovremmo esserci

Sub CopyPasteFogli()
Dim i As Integer, c As Integer, r As Integer
Worksheets(2).Select
For r = Range("n" & Rows.Count).End(xlUp).Row To 2 Step -1
   If Cells(r, "N") <> "   " And Cells(r, "N") <> 0 And Cells(r, "N") <> "" Then Exit For

Next r
For i = 2 To Worksheets.Count
    Worksheets(i).Select Replace:=False
Next i
Range("N2:N" & r).Copy
Range("T2").PasteSpecial Paste:=xlPasteValues
Range("P2:P" & r).Copy
Range("T" & r + 1).PasteSpecial Paste:=xlPasteValues

For i = 2 To Worksheets.Count
   With Worksheets(i).Range("T2:T" & 2 * r)
       .Sort Key1:=Worksheets(i).Range("T2"), Order1:=xlAscending, _
             Orientation:=xlTopToBottom, Header:=xlNo
   End With
Next i
End Sub

[verboPartecipante verbo Karma: 1 pt]

Luke

ma la macro  copia solo le colonne N e P nella colona T ed ok funziona perfettamente, ma per copiare  le colonne O e Q in U?

 

 

[LukeRedsPartecipante LukeReds Karma: 13 pts]

prova tu, le istruzioni le hai basta cambiare il nome delle colonne. Se non riesci dillo pure

 

[verboPartecipante verbo Karma: 1 pt]

Inoltre chiedo a tutti dopo che ho copiato le colonne N e P in T e le colonne O e Q in U e possibile metterle in ordine alfabetico  seguendo il seguente criterio

Tutti i nomi che iniziano per A della colonna T sono messi in ordine alfabetico de icorrispondeti nomi indicati nella colonna U

poi mettere i nomi che iniziano per B della colonna T meterli in ordine alfabetico dei corrispondenti nomi indicati nella colonna U e cosi via

 

faccio un esempio 

 

nella colonna T del foglio "1 Giornata" abbiamo 

 

 AGOSTEO Paolo  GEN      GEN
ALBERTI Ferrero  LUC      LUC
ALLASIO Federico TOR     TOR
AMORETTI Ugo  JUV         JUV
ANCILOTTI Ancilotto FIO FIO
ANDREOLI Pietro  LUC     LUC
ANDREOLO Michele  BOL BOL
ANTONA Piero INT              INT
ANTONINI Giuseppe  MIL  MIL
ARCARI Bruno LIV                LIV
ARCARI Pietro  GEN              GEN
BACIGALUPO Manlio  GEN GEN
BAGGIANI Gino FIO               FIO
BALDI Fioravante TOR           TOR
BALDO Giuseppe LAZ              LAZ
BARBERIS Giovanni FIO         FIO
BARCELLA Giuseppe ATA        ATA
BELLINI Savino 74  JUV          JUV
BERGAMINI Emilio LIV          LIV
BERGONZINI Mario  JUV       JUV
BERNARDINI Fulvio  ROM     ROM
BERTOLO Cesar LIV                 LIV
BIGOGNO Giuseppe  GEN        GEN
BLASON Giacomo LAZ             LAZ
BO Mario TOR                            TOR
BOFFI Aldo 20-75  MIL            MIL
BOLLANO Angelo LIG             LIG
BOLOGNESE Gino ATA           ATA
BONILAURI Ermelindo ATA ATA
BONIZZONI Giuseppe  MIL   MIL
BONOMI Giuseppe ATA         ATA
BOREL Giuseppe 6  JUV         JUV
BORGIOLI Loris ATA              ATA
BORSETTI Ermes  ROM          ROM
BORTOLETTI Gino  MIL          MIL
BRAGA Giovanni  BAR             BAR
BRUNELLA Luigi TOR             TOR
BULGHERI Attilio LIV             LIV
BUONOCORE Carmelo INT    INT
BUSANI Umberto LAZ            LAZ
BUSCAGLIA Carlo NAP          NAP
BUSCAGLIA Pietro TOR          TOR
BUSIDONI Luigi  TRI                TRI
BUSONI Giovanni  BOL             BOL
CALLEGARI Gino Ferrer LIG    LIG
CAMOLESE Bruno LAZ              LAZ
CAPPELLINI Renato  LUC         LUC
CAPRA Egidio  MIL                      MIL
CASON Lino  BAR                        BAR
CASSETTI Bruno TOR               TOR
CASTELLO Luigi NAP               NAP

 

ovviamente l'elenco continua fino alla lettera Z

Quindi anziche seguire quest'ordine alfabetico dovrebbe avere il seguente

 ANDREOLO Michele  BOL
BOL
ANCILOTTI Ancilotto FIO
FIO
AGOSTEO Paolo  GEN
GEN
ARCARI Pietro  GEN
GEN
ANTONA Piero INT                INT
AMORETTI Ugo  JUV            JUV
ARCARI Bruno LIV                 LIV
ALBERTI Ferrero  LUC          LUC
ANDREOLI Pietro  LUC         LUC
ANTONINI Giuseppe  MIL    MIL
ALLASIO Federico TOR         TOR 

Ovvero i nomi che iniziano per  A sono messi in ordine alfabetico dei nomi indicati nella corrispondente colonna U e poi inziano i noi che inziano per B messi in ordine alfabetico delal corrispondente colonna U

BARCELLA Giuseppe ATA    ATA
BOLOGNESE Gino ATA         ATA
BONILAURI Ermelindo ATA ATA
BONOMI Giuseppe ATA         ATA
BORGIOLI Loris ATA              ATA
BRAGA Giovanni  BAR           BAR
BUSONI Giovanni  BOL           BOL
BAGGIANI Gino FIO              FIO
BARBERIS Giovanni FIO         FIO
BACIGALUPO Manlio  GEN          GEN
BIGOGNO Giuseppe  GEN           GEN
BUONOCORE Carmelo INT          INT
BELLINI Savino 74  JUV           JUV
BERGONZINI Mario  JUV            JUV
BOREL Giuseppe 6  JUV                 JUV
BALDO Giuseppe LAZ             LAZ
BLASON Giacomo LAZ               LAZ
BUSANI Umberto LAZ            LAZ
BOLLANO Angelo LIG          LIG
BERGAMINI Emilio LIV            LIV
BERTOLO Cesar LIV            LIV
BULGHERI Attilio LIV             LIV
BOFFI Aldo 20-75  MIL           MIL
BONIZZONI Giuseppe  MIL          MIL
BORTOLETTI Gino  MIL           MIL
BUSCAGLIA Carlo NAP        NAP
BERNARDINI Fulvio  ROM       ROM
BORSETTI Ermes  ROM           ROM
BALDI Fioravante TOR           TOR
BO Mario TOR            TOR
BRUNELLA Luigi TO              TOR
BUSCAGLIA Pietro TOR           TOR
BUSIDONI Luigi  TRI                     TRI

 Questa operazione al momento io la faccio manualmente

 

Grazie

Allegati:

You must be logged in to view attached files.

[verboPartecipante verbo Karma: 1 pt]

Si ok,

ma devo fare altra macro o continuare nella stessa ovvero prima di "end with" ricopiare la macro e sostituendo ai valori scritti quelli corrispondenti alle colonne "O" e U"" giusto?

[alexps81Moderatore alexps81 Karma: 55 pts]

Rinnovo la domanda...hai provato il codice proposto al post #53377?

[verboPartecipante verbo Karma: 1 pt]

scusa alex non ancora

perche avevo provato quello di scossa e non i ltuo

[LukeRedsPartecipante LukeReds Karma: 13 pts]

codice che gestisce anche le colonne O e Q in U.

Per l'ordinamento a mio parere ndrebbe postato un nuovo quesito

 

`Sub CopyPasteFogli2()
Dim i As Integer, c As Integer, r As Integer
Worksheets(2).Select
For r = Range("n" & Rows.Count).End(xlUp).Row To 2 Step -1
   If Cells(r, "N") <> "   " And Cells(r, "N") <> 0 And Cells(r, "N") <> "" Then Exit For
Next r
For i = 2 To Worksheets.Count
    Worksheets(i).Select Replace:=False
Next i
Range("N2:N" & r).Copy
Range("T2").PasteSpecial Paste:=xlPasteValues
Range("P2:P" & r).Copy
Range("T" & r + 1).PasteSpecial Paste:=xlPasteValues

Range("O2:O" & r).Copy
Range("U2").PasteSpecial Paste:=xlPasteValues
Range("Q2:Q" & r).Copy
Range("U" & r + 1).PasteSpecial Paste:=xlPasteValues

For i = 2 To Worksheets.Count
   With Worksheets(i).Range("T2:T" & 2 * r)
       .Sort Key1:=Worksheets(i).Range("T2"), Order1:=xlAscending, _
             Orientation:=xlTopToBottom, Header:=xlNo
   End With
   With Worksheets(i).Range("U2:U" & 2 * r)
       .Sort Key1:=Worksheets(i).Range("U2"), Order1:=xlAscending, _
             Orientation:=xlTopToBottom, Header:=xlNo
   End With
Next i
End Sub

`

 

[verboPartecipante verbo Karma: 1 pt]

Grazie

 

 

[Autore]

Articoli