Mostrar columnas ocultas mediante macro

14/06/2007 - 17:40 por Age | Informe spam
Buenos días,

Leyendo algunas preguntas hechas con anterioridad por otros usuarios
encontre una macro que estoy utilizando en un boton que sirve para ocultar
columnas:

Sub test()
[G:G,H:H,J:J,L:L,N:N,P:P,R:R].Columns.Hidden = True
End Sub

La modifique para que me ocultara columas que no son un rango y funciono.

Me podrian ayudar para crear un codigo que me muestre las mismas columnas
que oculte con el macro anterior.

Mi idea es crear un boton que oculte la columna G y asi sucesivamente y
ahora crear un boton que muestre la columna G y asi sucesivamente.

Me refiero sucesivamente a que creare un boton por cada columna.

Gracias
 

Leer las respuestas

#1 David
14/06/2007 - 18:10 | Informe spam
Prueba hacer que tu botón ejecute un procedimiento como el siguiente:

Sub OcultarG()
Range("G1").Columns.Hidden = Not Range("G1").Columns.Hidden
End Sub

De esta manera, el mismo botón oculta/muestra la columna.



"Age" escribió:

Buenos días,

Leyendo algunas preguntas hechas con anterioridad por otros usuarios
encontre una macro que estoy utilizando en un boton que sirve para ocultar
columnas:

Sub test()
[G:G,H:H,J:J,L:L,N:N,P:P,R:R].Columns.Hidden = True
End Sub

La modifique para que me ocultara columas que no son un rango y funciono.

Me podrian ayudar para crear un codigo que me muestre las mismas columnas
que oculte con el macro anterior.

Mi idea es crear un boton que oculte la columna G y asi sucesivamente y
ahora crear un boton que muestre la columna G y asi sucesivamente.

Me refiero sucesivamente a que creare un boton por cada columna.

Gracias

Preguntas similares