- Codice: Seleziona tutto
Sub provasquadra()
'
' provasquadra Macro
'
'
Workbooks.Open Filename:= _
"C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (1).xls"
Windows("team (1).xls").Activate
Range("D17:G41").Select
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Sheets("squadra1").Select
Range("D19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (1).xls").Activate
Range("D12:G12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D12:G12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (1).xls").Activate
Range("D14:F14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D14:F14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (1).xls").Activate
ActiveWindow.Close
Workbooks.Open Filename:= _
"C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (2).xls"
Windows("team (2).xls").Activate
Range("D17:G41").Select
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Sheets("squadra2").Select
Range("D19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (2).xls").Activate
Range("D12:G12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D12:G12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (2).xls").Activate
Range("D14:F14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D14:F14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (2).xls").Activate
ActiveWindow.Close
Workbooks.Open Filename:= _
"C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (3).xls"
Windows("team (3).xls").Activate
Range("D17:G41").Select
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Sheets("squadra3").Select
Range("D19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (3).xls").Activate
Range("D12:G12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D12:G12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (3).xls").Activate
Range("D14:F14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D14:F14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (3).xls").Activate
ActiveWindow.Close
Workbooks.Open Filename:= _
"C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (4).xls"
Windows("team (4).xls").Activate
Range("D17:G41").Select
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Sheets("squadra4").Select
Range("D19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (4).xls").Activate
Range("D12:G12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D12:G12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (4).xls").Activate
Range("D14:F14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D14:F14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (4).xls").Activate
ActiveWindow.Close
Workbooks.Open Filename:= _
"C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (5).xls"
Windows("team (5).xls").Activate
Range("D17:G41").Select
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Sheets("squadra5").Select
Range("D19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (5).xls").Activate
Range("D12:G12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D12:G12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (5).xls").Activate
Range("D14:F14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D14:F14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (5).xls").Activate
ActiveWindow.Close
Workbooks.Open Filename:= _
"C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (6).xls"
Windows("team (6).xls").Activate
Range("D17:G41").Select
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Sheets("squadra6").Select
Range("D19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (6).xls").Activate
Range("D12:G12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D12:G12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (6).xls").Activate
Range("D14:F14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D14:F14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (6).xls").Activate
ActiveWindow.Close
Workbooks.Open Filename:= _
"C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (7).xls"
Windows("team (7).xls").Activate
Range("D17:G41").Select
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Sheets("squadra7").Select
Range("D19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (7).xls").Activate
Range("D12:G12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D12:G12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (7).xls").Activate
Range("D14:F14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D14:F14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (7).xls").Activate
ActiveWindow.Close
Workbooks.Open Filename:= _
"C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (8).xls"
Windows("team (8).xls").Activate
Range("D17:G41").Select
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Sheets("squadra8").Select
Range("D19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (8).xls").Activate
Range("D12:G12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D12:G12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (8).xls").Activate
Range("D14:F14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D14:F14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (8).xls").Activate
ActiveWindow.Close
Workbooks.Open Filename:= _
"C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (9).xls"
Windows("team (9).xls").Activate
Range("D17:G41").Select
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Sheets("squadra9").Select
Range("D19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (9).xls").Activate
Range("D12:G12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D12:G12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (9).xls").Activate
Range("D14:F14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D14:F14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (9).xls").Activate
ActiveWindow.Close
Workbooks.Open Filename:= _
"C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (10).xls"
Windows("team (10).xls").Activate
Range("D17:G41").Select
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Sheets("squadra10").Select
Range("D19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (10).xls").Activate
Range("D12:G12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D12:G12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (10).xls").Activate
Range("D14:F14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D14:F14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (10).xls").Activate
ActiveWindow.Close
Workbooks.Open Filename:= _
"C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (11).xls"
Windows("team (11).xls").Activate
Range("D17:G41").Select
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Sheets("squadra11").Select
Range("D19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (11).xls").Activate
Range("D12:G12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D12:G12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (11).xls").Activate
Range("D14:F14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D14:F14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (11).xls").Activate
ActiveWindow.Close
Workbooks.Open Filename:= _
"C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (12).xls"
Windows("team (12).xls").Activate
Range("D17:G41").Select
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Sheets("squadra12").Select
Range("D19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (12).xls").Activate
Range("D12:G12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D12:G12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (12).xls").Activate
Range("D14:F14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D14:F14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (12).xls").Activate
ActiveWindow.Close
Workbooks.Open Filename:= _
"C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (13).xls"
Windows("team (13).xls").Activate
Range("D17:G41").Select
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Sheets("squadra13").Select
Range("D19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (13).xls").Activate
Range("D12:G12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D12:G12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (13).xls").Activate
Range("D14:F14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D14:F14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (13).xls").Activate
ActiveWindow.Close
Workbooks.Open Filename:= _
"C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (14).xls"
Windows("team (14).xls").Activate
Range("D17:G41").Select
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Sheets("squadra14").Select
Range("D19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (14).xls").Activate
Range("D12:G12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D12:G12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (14).xls").Activate
Range("D14:F14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D14:F14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (14).xls").Activate
ActiveWindow.Close
Workbooks.Open Filename:= _
"C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (15).xls"
Windows("team (15).xls").Activate
Range("D17:G41").Select
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Sheets("squadra15").Select
Range("D19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (15).xls").Activate
Range("D12:G12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D12:G12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (15).xls").Activate
Range("D14:F14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D14:F14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (15).xls").Activate
ActiveWindow.Close
Workbooks.Open Filename:= _
"C:\Users\niko\Desktop\iscrizioni\iscrizionikata\team (16).xls"
Windows("team (16).xls").Activate
Range("D17:G41").Select
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Sheets("squadra16").Select
Range("D19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (16).xls").Activate
Range("D12:G12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D12:G12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (16).xls").Activate
Range("D14:F14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("elettronikokata.xlsm").Activate
Range("D14:F14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("team (16).xls").Activate
ActiveWindow.Close
End Sub