Pregunta para Luis Mondelo!
Hola Luis: Buen dia!! Luis, necesito una macro que me oculte las filas que no tienen datos.
Necesito que la personas que no tenga ningún registro de horario se me oculten sus filas. Por ejemplo el nombre "ARNAU, Eduardo Mario" no tiene horarios (como otras personas mas) y necesito Que sus filas correspondientes se oculten.
Gracias luis!!!
1 Respuesta
Respuesta de Luis Mondelo
1
Necesitas pasar esta macro en tu archivo de horas:
La macro empezará a leer desde la celda D4 hacia abajo analizando el contenido de las horas de cada trabajador, si el resultado es cero ocultará sus 3 filas y pasará el siguiente hasta terminar. Ahh olvidaba que primero hace una limpieza del rango para evitar posibles errores con celdas con espacios en blanco.
Sub oculta_filas()
For Each Celda In Range("e4:ai" & Range("d65000").End(xlUp).Row)
If Celda.Value = "" Then Celda.ClearContents
Next
Range("d4").Select
Do While ActiveCell.Value <> ""
contar = Application.WorksheetFunction.CountA(Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(2, 31)))
If contar = 0 Then
Range(ActiveCell, ActiveCell.Offset(2, 0)).EntireRow.Hidden = True
End If
ActiveCell.Offset(3, 0).Select
Loop
End Sub
