Ocultar columnas Excel condición 0
Necesito ayuda para ocultar columnas en Excel siempre y cuando todas sus filas contengan el valor 0. Pero primero filtro los datos que necesito.
Utilizando este código logro realizarlo pero...
Dim e As Integer
For e = 10 To 20 'columnas
Worksheets("proy mail").UsedRange.Columns(e).Rows.Select
Dim celda As Range
Dim contador
contador = 0
For Each celda In Selection
If celda.Value <> 0 Then contador = contador + 1
Next
If contador = 1 Then Columns(e).Hidden = True
Next
Oculta las columnas según el valor de todas sus filas no solo de las que están filtradas.
Ej. Columna L posee en sus filas todos valores 0. La oculta.
Columna M posee en sus filas filtradas todos valores 0, pero no la oculta por el echo de que en una fila que no cumple el filtro el valor es 10. Necesito que la oculte!
1 Respuesta
Prueba con la siguiente macro y me comentas
Sub ocultacol()
Dim e As Integer
Dim celda As Range
Dim contador
On Error Resume Next
For e = 10 To 20 'columnas
Worksheets("proy mail").UsedRange.Columns(e).Rows.Select
contador = 0
For Each celda In Selection.SpecialCells(xlCellTypeVisible)
If celda.Value <> 0 Then contador = contador + 1
Next
If contador = 0 Then Columns(e).Hidden = True
Next
End Sub
Saludos. Dam
Si es lo que necesitas.
Dante Amor amigo saludos sabes que estoy interesado en este código . Ya lo he probado pero se queda pegado.. Necesito ocultar columnas de un rango seleccionado también que tome en cuenta cuando se filtre, y que me oculte las columnas que muestre vacía en el filtrado. Y si la data no esta filtrada igual que oculte las columnas vacías. Gracias de ante mano por la ayuda me me puedas prestrar.. - danny suarez