Buonasera
http://www.filedropper.com/rotazione
Nel file di esempio che ho riportato, premendo il pulsante "Rotazione", avvia un ciclo dove ogni nominativo, deve essere presente una sola volta nella posizione 1, una sola volta nella posizione 2 e una sola volta nella posizione 3. (nell' esempio, al posto dei nominativi, ho inserito delle lettere)
Fin quì tutto bene (grazie al vostro aiuto in una altro topic).
Ora volevo inserire dei vincoli (parte aggiunta da me nel codice)
'
LR = Cells(Rows.Count, "B").End(xlUp).Row
'
For r = 1 To LR
'
If Cells(r, 2) = Cells(r, 6) Or Cells(r, 3) = Cells(r, 7) Then
In pratica la rotazione dovrebbe tenere conto della classe della postazione, che non deve essere uguale a quella della persona (colonna "B" con colonna "F") e delle limitazioni (colonna "C" con colonna "G"), anche in questo caso non devono essere uguali.
Ma al completamento della rotazione, alcune righe non rispettano i vincoli da me impostati.
In cosa sto sbagliando?
Grazie