Filtrar Datos por especialidad y por ciclo
Para Dante Amor
Amigo Dante deseo filtrar los Datos por especialidad y por ciclo le anexé el archivo a su email saludos!
1 respuesta
Respuesta de Dante Amor
1
Ambos amigo Dante saludos!!
Te anexo las macro
'filtrar por expecialidad y ciclo
Private Sub Cboespecdeuda_Change()
Call FiltarGradoSeccion
End Sub
Private Sub Cbociclodeuda_Change()
Call FiltarGradoSeccion
End Sub
Sub FiltarGradoSeccion()
Dim grado As String
Set h6 = Sheets("Alumnos")
ListaAlumnos2.Clear
For i = 5 To h6.Range("A" & Rows.Count).End(xlUp).Row
If Cboespecdeuda = "" Then esp = h6.Cells(i, "E") Else esp = Cboespecdeuda
If Cbociclodeuda = "" Then cic = h6.Cells(i, "F") Else cic = Cbociclodeuda
If h6.Cells(i, "E") = esp And h6.Cells(i, "F") = cic Then
With ListaAlumnos2
.AddItem h6.Cells(i, "A")
.List(.ListCount - 1, 1) = h6.Cells(i, "B")
.List(.ListCount - 1, 2) = h6.Cells(i, "C")
.List(.ListCount - 1, 3) = h6.Cells(i, "D")
End With
End If
Next
End Subsal u dos
