Macro que oculte columnas vacías

ayuda por favor... Necesito una macro que evalúe desde la columna B hasta la columna H y si alguna esta vacía que la oculte.

muchas gracias de ante mano.. Bendiciones..

1 respuesta

Respuesta
1

Te mando mi solución con esta macro:

Sub ejemplo1()
'por luismondelo
For Each celda In Range("b1:h1")
If Application.WorksheetFunction.CountA(Columns(celda.Column)) = 0 Then
celda.EntireColumn.Hidden = True
End If
Next
End Sub

recuerda finalizar

Muchísimas gracias por tu atención amigo, el código funciona muy bien pero quisiera que me evaluara hasta la 25 como pudiera ser? o se a cuando este evaluando B que comience de B12 hasta B25 si esta vacía que oculte y asi haga con las demás hasta la H.. Muchas gracias amigo Bendiciones

Entonces tu macro es esta:

Sub ejemplo1()
'por luismondelo
For Each celda In Range("b12:h12")
If Application.WorksheetFunction.CountA(Range(celda, celda.Offset(13, 0))) = 0 Then
celda.EntireColumn.Hidden = True
End If
Next
End Sub

recuerda finalizar

amigo tengo 2 columnas completamente vacías la D y la F y no me las esta ocultando no se que pasa.. y no me devuelve ningún error. de verdad muchas gracias por tu atención..

Amigo Luis las columnas están algunas con 0 y algunas están vacías " " sera por eso que no las oculta? si es por eso quisiera que las ocultara asi estén en CEro.. de nuevo Gracias Luis bendiciones

Disculpa, dijiste que solo había que analizar desde la fila 12 hasta la 25 por eso cambié la macro.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas