Ciao, ho fatto questo codice che funziona bene fino a criterial=31, dal 4 all' 11 mi ricopia sempre le righe con criterial=3 all' undicesimo lo fa bene dal successivo fino al ventesimo copia le stringe di criterial1=11 help
Private Sub Workbook_Open()
Sheets("ROOSTER").Select
ActiveSheet.Range("$A$38:$B$5000").AutoFilter Field:=1, Criteria1:="1"
Range("A38:W5000").Select
Selection.Copy
Sheets("SKIZZO").Select
Range("A22").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A22").Select
Sheets("ROOSTER").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A22").Select
Sheets("ROOSTER").Select
ActiveSheet.Range("$A$38:$B$5000").AutoFilter Field:=1, Criteria1:="2"
Range("A38:W5000").Select
Selection.Copy
Sheets("MARCO_BRUNO").Select
Range("A22").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A22").Select
Sheets("ROOSTER").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A22").Select
Sheets("ROOSTER").Select
ActiveSheet.Range("$A$38:$B$5000").AutoFilter Field:=1, Criteria1:="3"
Range("A38:W5000").Select
Selection.Copy
Sheets("KONRAD").Select
Range("A22").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A22").Select
Sheets("ROOSTER").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A22").Select
Sheets("ROOSTER").Select
ActiveSheet.Range("$A$38:$B$5000").AutoFilter Field:=1, Criteria1:="4"
Range("A38:W5000").Select
Selection.Copy
Sheets("TROCCOLI").Select
Range("A22").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A22").Select
Sheets("ROOSTER").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A22").Select
Sheets("ROOSTER").Select
ActiveSheet.Range("$A$38:$B$5000").AutoFilter Field:=1, Criteria1:="5"
Range("A38:W5000").Select
Selection.Copy
Sheets("RAPHA").Select
Range("A22").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A22").Select
Sheets("ROOSTER").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A22").Select
Sheets("ROOSTER").Select
ActiveSheet.Range("$A$38:$B$5000").AutoFilter Field:=1, Criteria1:="6"
Range("A38:W5000").Select
Selection.Copy
Sheets("LIO MASS").Select
Range("A22").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A22").Select
Sheets("ROOSTER").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A22").Select
Sheets("ROOSTER").Select
ActiveSheet.Range("$A$38:$B$5000").AutoFilter Field:=1, Criteria1:="7"
Range("A38:W5000").Select
Selection.Copy
Sheets("KHUAN").Select
Range("A22").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A22").Select
Sheets("ROOSTER").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A22").Select
Sheets("ROOSTER").Select
ActiveSheet.Range("$A$38:$B$5000").AutoFilter Field:=1, Criteria1:="8"
Range("A38:W5000").Select
Selection.Copy
Sheets("F.DINOIA").Select
Range("A22").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A22").Select
Sheets("ROOSTER").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A22").Select
Sheets("ROOSTER").Select
ActiveSheet.Range("$A$38:$B$5000").AutoFilter Field:=1, Criteria1:="9"
Range("A38:W5000").Select
Selection.Copy
Sheets("DE GIROLAMO").Select
Range("A22").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A22").Select
Sheets("ROOSTER").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A22").Select
Sheets("ROOSTER").Select
ActiveSheet.Range("$A$38:$B$5000").AutoFilter Field:=1, Criteria1:="10"
Range("A38:W5000").Select
Selection.Copy
Sheets("RHOOWAX").Select
Range("A22").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A22").Select
Sheets("ROOSTER").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A22").Select
Sheets("ROOSTER").Select
ActiveSheet.Range("$A$38:$B$5000").AutoFilter Field:=1, Criteria1:="11"
Range("A38:W5000").Select
Selection.Copy
Sheets("BEATZ TO PLAY").Select
Range("A22").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A22").Select
Sheets("ROOSTER").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A22").Select
Sheets("ROOSTER").Select
ActiveSheet.Range("$A$38:$B$5000").AutoFilter Field:=1, Criteria1:="12"
Range("A38:W5000").Select
Selection.Copy
Sheets("FAUS").Select
Range("A22").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A22").Select
Sheets("ROOSTER").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A22").Select
Sheets("ROOSTER").Select
ActiveSheet.Range("$A$38:$B$5000").AutoFilter Field:=1, Criteria1:="13"
Range("A38:W5000").Select
Selection.Copy
Sheets("LENTINI").Select
Range("A22").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A22").Select
Sheets("ROOSTER").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A22").Select
Sheets("ROOSTER").Select
ActiveSheet.Range("$A$38:$B$5000").AutoFilter Field:=1, Criteria1:="14"
Range("A38:W5000").Select
Selection.Copy
Sheets("MEDIAHORA").Select
Range("A22").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A22").Select
Sheets("ROOSTER").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A22").Select
Sheets("ROOSTER").Select
ActiveSheet.Range("$A$38:$B$5000").AutoFilter Field:=1, Criteria1:="15"
Range("A38:W5000").Select
Selection.Copy
Sheets("BIEMSIX").Select
Range("A22").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A22").Select
Sheets("ROOSTER").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A22").Select
Sheets("ROOSTER").Select
ActiveSheet.Range("$A$38:$B$5000").AutoFilter Field:=1, Criteria1:="16"
Range("A38:W5000").Select
Selection.Copy
Sheets("RESTAINO").Select
Range("A22").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A22").Select
Sheets("ROOSTER").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A22").Select
ActiveSheet.Range("$A$38:$B$5000").AutoFilter Field:=1, Criteria1:="17"
Range("A38:W5000").Select
Selection.Copy
Sheets("DFK").Select
Range("A22").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A22").Select
Sheets("ROOSTER").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A22").Select
ActiveSheet.Range("$A$38:$B$5000").AutoFilter Field:=1, Criteria1:="18"
Range("A38:W5000").Select
Selection.Copy
Sheets("JAIRO").Select
Range("A22").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A22").Select
Sheets("ROOSTER").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A22").Select
ActiveSheet.Range("$A$38:$B$5000").AutoFilter Field:=1, Criteria1:="19"
Range("A38:W5000").Select
Selection.Copy
Sheets("RODRIGUEZ").Select
Range("A22").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A22").Select
Sheets("ROOSTER").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A22").Select
ActiveSheet.Range("$A$38:$B$5000").AutoFilter Field:=1, Criteria1:="20"
Range("A38:W5000").Select
Selection.Copy
Sheets("LEGGIERI").Select
Range("A22").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A22").Select
Sheets("ROOSTER").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A22").Select
End Sub