Oculta la columna si cumple el criterio, que la columna este en valor 0.
Sub Ocultar_columnas_0()
Dim x As Integer
Dim y As Integer
y = 0
Range("J5").Select
For x = 10 To 256
Cells(5, x).Select
If
IsNull(ActiveCell.value) Or ActiveCell.value = "" Then
MsgBox ("Fin del
Proceso, Se modificaron: " & y & " Columnas en Ceros")
Exit
Sub
Else
Selection.End(xlDown).Select
If ActiveCell.value = 0
Then
Selection.EntireColumn.Hidden = True
y = y + 1
End If
End
If
Next x
End Sub[/CODE]
Es algo que quice compartir, espero le sirva alguien mas.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Oculta la columna si cumple el criterio, que la columna este en valor 0.
Es algo que quice compartir, espero le sirva alguien mas.