Separar en hojas excel nómina según resultado de cada individuo
Separar por nominas según resultado de cada individuo
Estimados amigos del foro, la situación de este tema es que tengo una nomina general en el que tengo una lista para 70 estudiantes, en el ejemplo solo tengo algunos con resultado aprobado, suspenso o reprobado me gustaría poder hacer uso de los botones para poder separar en nominas de aprobados, suspensos y reprobados de los 70 que pueda tener en realidad, ¿cómo puedo lograr esto?
Subo el archivo para que lo vean
https://www.dropbox.com/s/3pbn6eusp17ketv/Separar%20nominas%20segun%20resultados.xlsm?dl=0
1 Respuesta
¡Gracias! por tu apoyo mi correo es [email protected]
Te estoy enviando el libro a tu correo.
Te dejo la macro que utilicé para el filtrado.
Sub Autofiltrado()
'x Elsamatilde
Application.ScreenUpdating = False
'se limpia hoja destino de datos anteriores - Confirmar si hay que limpiar la hoja o agregar a continuación
Sheets(hojx).Rows("12:1000").Clear 'fin de rango aproximado
'controla si la hoja está en modo de filtro sino lo coloca
If ActiveSheet.AutoFilterMode = False Then
Range("A9:K9").AutoFilter
End If
ActiveSheet.Range("$A$9:$K$" & Range("A" & Rows.Count).End(xlUp).Row).AutoFilter Field:=11, Criteria1:="aprobado"
x = Range("A" & Rows.Count).End(xlUp).Row
Rows("12:" & x).Copy Destination:=Sheets("NomAprobados").Range("A12")
ActiveSheet.ShowAllData
Range("B12").Select
End SubEn cada botón se establecen las variables que luego se utilizan al filtrar.
Dim hojx As String Dim critx As String Sub NomAprobados() 'se coloca el criterio variable y se define la hoja destino critx = "aprobado" hojx = "NomAprobados" Call Autofiltrado End Sub Sub NomSuspensos() 'se coloca el criterio variable y se define la hoja destino critx = "aprobado" hojx = "NomAprobados" Call Autofiltrado End Sub Sub NomReprobados() 'se coloca el criterio variable y se define la hoja destino critx = "aprobado" hojx = "NomAprobados" Call Autofiltrado End Sub
¡Gracias! Gracias eres muy amable incluso me ha permitido darme cuenta del error en la hoja Final tengo aplicado reprobados en donde no le corresponde.
Con el código primero se limpia el destino luego se copia lo autofiltrado acorde a los criterios de búsqueda establecidos.
Resulta útil este foro, donde se aprende mucho, por otro lado eres unas de las pocas damas que conoce muchísimo sobre macros excel, y eso me parece bien pero me gustaría que hayan muchísimas mas, no se porque son pocas. Felicidades!!
Pocas pero buenas, jajaja.
Sdos!
