Macro para ocultar columnas sin información
Lo que sucede es que tengo una macro que quiero que me oculte columnas que no tengan información, pero me esta ocultando la columna tenga o no información, ¿cómo le hago?
1 respuesta
Respuesta de César Mera
1
Se me ocurre algo como lo siguiente:
Sub ocultar()
Range("A1").Select
Do While ActiveCell.Column < 20
If ActiveCell.Value = "" Then Selection.EntireColumn.Hidden = True
ActiveCell.Offset(0, 1).Select
Loop
End Sub
El problema es que no me dijiste hasta cual columna debe evaluar, ese procedimiento va desde la primera columna hasta la número 20 (ese número lo puedes cambiar como gustes) y evalúa si hay algo escrito en la primera fila no se si haya que evaluar algo más.
Sub ocultar()
Range("A1").Select
Do While ActiveCell.Column < 20
If ActiveCell.Value = "" Then Selection.EntireColumn.Hidden = True
ActiveCell.Offset(0, 1).Select
Loop
End Sub
El problema es que no me dijiste hasta cual columna debe evaluar, ese procedimiento va desde la primera columna hasta la número 20 (ese número lo puedes cambiar como gustes) y evalúa si hay algo escrito en la primera fila no se si haya que evaluar algo más.
