[kapetang]

Καλημέρα

Στο συνημμένο έχω δημιουργήσει την παρακάτω (Categories) μακροεντολή, η οποία δημιουργεί 4 φύλλα με τις κατηγορίες (ανάλογα με τη θέση) των ποδοσφαιριστών.

Public Sub Categories()
    Dim rng As Range, i As Long, c As Variant, cat As Variant
    cat = Array("GK", "DF", "MF", "AT")
    
    Application.ScreenUpdating = False
    
    'Διαγραφή παλιών φύλλων
    On Error Resume Next
    For Each c In cat
        Worksheets(c).Delete
    Next
    On Error GoTo 0
    
    'Δημιουργία φύλλων και πινάκων
    For Each c In cat
        Sheets("EVALUATION1").Copy after:=Sheets(Sheets.Count)
        
        With ActiveSheet
            .Name = c
            Set rng = .Range("e13", .Cells(13, Cells.Columns.Count).End(xlToLeft))
        End With
        
        For i = rng.Columns.Count To 1 Step -1
            If rng(i) <> c Then
                rng(i).EntireColumn.Delete
            End If
        Next
                
    Next
              
End Sub

Για την εκτέλεση της μακροεντολής, στην καρτέλα Προγραμματιστής πατούμε το κουμπί Μακροεντολές για να ανοίξει το σχετικό πλαίσιο επιλογής και εκτέλεσης.

Οι μακροεντολές πρέπει να είναι ενεργοποιημένες.