Ocultar columnas que tienen celdas vacías

[tono812]

Buenos días,

Tengo un problema con un archivo de excel al que quiero mediante un botón ocultar las columnas cuyas celdas estén vacías,  es un inventario de productos por almacen que muestra las cantidades del mismo de acuerdo al código de cada producto. Me oculta las columnas del rango que estoy usando sin tomar en cuenta si están vacías o no. En una archivo con menos datos lo he probado y si funciona. Adjunto el archivo para que lo miren.

También tiene programado un buscador para que muestre solo la referencia del producto requerida, entonces la mecánica del archivo sería mostrar solo una referencia de producto y poder ocultar las columnas (almacenes) que no tengan ningún producto de dicha búsqueda realizada.

 

Gracias de antemano por su ayuda.

master-retirar-beta.xls

[Janlui]

Te mando esto, espero te sirva.master-retirar-beta - Janlui.xlsm

[tono812]

Gracias por tu ayuda me ha servido de mucho, el campo de búsqueda se debe mantener como estaba funcionando, no debe ser un campo exacto porque hay referencias que tienen el mismo código y solo cambia él último digito que es el color o las dos primeras letras que son la familia. Todas las columnas que no tienen ningun valor deben desaparecer de acuerdo a la búsqueda realizada. 

 

Adjunto una imagen para que se visualice mejor.

[Janlui]

Veo que tus códigos son de diferente tamaño, Todo empieza con "AL", la idea es que muestre todo lo referente a ej. AL6601 y los caracteres posteriores que los ignore?

[Janlui]

A esto te refieres?

master-retirar-beta - Janlui.xlsm

[Janlui]

Simplificado.

 

master-retirar-beta - Janlui 2.xlsm

[Gerson Pineda]

Hola!

Dejo mi versión

@tono812 Sustituí tus procedimientos y agregue uno mas, de tal manera que solo deje el botón de borrar

 

Saludos

Filtrar columnas dinamicamente_GP.xlsm

[Antoni]

La mía.

Sub Mostrar()
Application.ScreenUpdating = False
Range("B:CM").EntireColumn.Hidden = False
End Sub
'--
Sub Ocultar()
Dim Filtro As Range
Application.ScreenUpdating = False
Mostrar
For y = 2 To Columns("CM").Column
   If WorksheetFunction.CountIf(Cells(8, y).Resize _
     (Range("A" & Rows.Count).End(xlUp).Row, 1), "<>" & Empty) = 0 Then
      Columns(y).Hidden = True
   End If
Next
End Sub

 

[Nicolas Ferreira]

Buen dia, me pueden ayudar

Necesito ocultar el rango A11:L24 si en el rango B12:L24 esta vacio, si no se tienen nada de texto.