1
CAMBIAR CODIGO VBA el 17/11/14, 08:43 pm
rubito1

- Código:
Sub Ocultar_Filas()
Application.ScreenUpdating = False
With Sheets("prog.")
fin = .Range("b65536").End(xlUp).Row
For i = 8 To fin
Total = .Cells(i, 2)
If Total = 0 Then
.Cells(i, 2).EntireRow.Hidden = True
End If
Next
End With
Application.ScreenUpdating = True
End Sub
- Archivos
muestra.xls
- No tienes los permisos para descargar los archivos.
- (48 KB)