Jump to content
  • 33 ¿Te resultaría interesante una carpeta sobre Python para Excelen el foro?

    1. 1. ¿Te resultaría interesante una carpeta sobre Python para Excel en el foro?


      • Sí! Me interesa
      • No me interesa.
      • Otros (Escribe tu respuesta en el tema)

Ocultar columnas que tienen celdas vacías


Recommended Posts

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

Link to comment
Share on other sites

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.

image001.jpg

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

Privacy Policy