Non è ancora tutto chiaro ma avevo già approntato una macro che distribuisce gli utenti su fogli aventi il nome del Corso (Corso 01, Corso 02 etc) attraverso la data scelta (cella I2).
La tabella che si vede nella prima immagine l'ho inserita in un foglio che ho chiamato "Elenco"
nella colonna B dalla riga 4 in poi ci sono i nomi utenti
nella colonna C, D, E, F, nella riga 3 la testata dei quattro corsi e dalla riga 4 in poi le date.
In I2 deve essere digitata la data utile per copiare il corrispondente utente nel rispettivo foglio del corso.
- Codice: Seleziona tutto
Sub Estrai()
For Each Ws In Worksheets
If Ws.Name <> "Elenco" Then
URF = Worksheets(Ws.Name).Range("A" & Rows.Count).End(xlUp).Row
Worksheets(Ws.Name).Range("A2:B" & URF).Clear
End If
Next Ws
UR = Worksheets("Elenco").Range("B" & Rows.Count).End(xlUp).Row
Range("C4:F" & UR).Interior.ColorIndex = xlNone
Range("C4:F" & UR).Font.ColorIndex = 0
dataM = [I2]
For CC = 3 To 6
For RR = 4 To UR
If Cells(RR, CC).Value = dataM Then
Foglio = Cells(3, CC).Text
' MsgBox dataM
Sheets("Elenco").Cells(RR, 2).Copy Destination:=Sheets(Foglio).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Sheets("Elenco").Cells(RR, CC).Copy Destination:=Sheets(Foglio).Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
Cells(RR, CC).Font.ColorIndex = 2
Cells(RR, CC).Interior.ColorIndex = 3
End If
Next RR
Next CC
End Sub
Il file test è disponibile
QuiFai sapere
Ciao
Nota: Utlizzando la macro attuale, in un altro file di excel , si dovrà rinominare il foglio, contenente la tabella dati, con nome "Elenco". Pena la cancellazione di tutte le celle