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
Archived
This topic is now archived and is closed to further replies.
Oculta la columna si cumple el criterio, que la columna este en valor 0.
Es algo que quice compartir, espero le sirva alguien mas.