Como puedo Asignar un Curso a un docente en Varios Turnos sin que se repita dichos turnos en otro docente que lleva el mismo cur
Hola Dante Amor:
Ejemplo:
Docente: Juan Alvarez Docente: Marco Sanchez
Curso :Metodologia Curso: Metodologia
Turno: 1A, 2A, 3A Turno: 2B,2C
Los turnos son: 1A,2A,3A,4A,1B,2B,3B,4B,1C,2C,3C,4C
1 respuesta
Respuesta de Dante Amor
1
Con el siguiente código se verifica en al base cuáles son los turnos disponibles.
Private Sub UserForm_Activate()
'Por.Dante Amor
Set ha = Sheets("asignaciones")
ListBox1.Clear
For i = 1 To Sheets("TURNOS").Range("A" & Rows.Count).End(xlUp).Row
ListBox1.AddItem Sheets("TURNOS").Cells(i, "A")
Next
'
With UserForm1
LCur = .ListBox1.List(.ListBox1.ListIndex, 0)
LFac = .ComboBox2
LCic = .ComboBox3
End With
'
For i = 2 To ha.Range("A" & Rows.Count).End(xlUp).Row
If ha.Cells(i, "B") = LCur And _
ha.Cells(i, "C") = LFac And _
ha.Cells(i, "D") = LCic Then
turno = ha.Cells(i, "E")
For n = 0 To ListBox1.ListCount - 1
If ListBox1.List(n) = turno Then
ListBox1.RemoveItem n
Exit For
End If
Next
End If
Next
'
End SubSaludos.Dante Amor
Recuerda valorar la respuesta.
