Macro de como ocultar columnas especifico de un rango y con un criterio
Me pueden apoyar
Tengo un rango en una hoja llamada
Reporte
El rango es b3:ad85
En la fila 7
Tengo colocando unos asteriscos "*"
Que dependiendo donde estos asteriscos se encuentran en la fila 7
Me oculten las columnas que tengan ese asterisco
Ejemplo:
en este caso, se debe ocultar las columnas
G,H,M y N
Si borro un asterisco de la fila 7 esa columna ya no se debería ocultar
Y así sucesivamente dentro del rango de columnas mencionado
1 respuesta
Respuesta de Dante Amor
1
Hola dan, si ese es en evento de la hoja
Y este oculta una columna anterior a donde se encuentra el *
En este que necesito ayuda es que
Sea un módulo sub ()
Coloco los * en las columnas de la. Fila 7
Y a ejecutar la. Macro va a ocultar todas las columnas que tenga un * en la. Fila 7
Va la macro:
Sub ocultar_columnas()
Dim rng As Range, c As Range
Set rng = Range("B7:AD7")
For Each c In rng
If c.Value = "*" Then c.EntireColumn.Hidden = True
Next
End Sub
