cultar y mostrar por codigo

Ahora mismo no lo tengo a mano, y como estoy empezando con código, no soy
capaz de escribírtelo, pero mas o menos, hago lo siguiente.

en el botón pongo abrir, por ejemplo, después por código, leo si pone abrir
o cerrar, y en función de lo que ponga, abro o cierro, después le cambio lo
de abrir por cerrar o viceversa, y ya esta preparado el botón para la
siguiente vez


SALUDOS.
julian-valencia-españa

http://www.mvp-access.com

"Daniel S.L." escribió en el mensaje
news:%

Hola a todos
tengo el siguiente código de de la grabadora de macros

Sub oculta_columna()

Range("M5:AD5").Select
Selection.EntireColumn.Hidden = True
Range("L1").Select
End Sub
Sub Muestra_Columna()

Range("L1:AE1").Select
Selection.EntireColumn.Hidden = False
Range("L1").Select
End Sub

como puedo hacer una sola macro osea que al darle un click muetre las

columnas y al

darle otro click las cierre

Gracias
Un saludo,
Daniel

Gracias..pero no te entendí :(

Un saludo,
Daniel

Oye seria asi ?
pero no sale como sera

Sub oculta_columnaniño()

Range("N:AK").Select
Selection.EntireColumn.Hidden = False
Range("N:AK").Select
Selection.EntireColumn.Hidden = True
Range("N:AK").Select
Selection.EntireColumn.Hidden = False

Range("L1").Select
End Sub

Un saludo,
Daniel.

"Daniel S.L." escribió...

Oye seria asi ?
pero no sale como sera

Sub oculta_columnaniño()

Range("N:AK").Select
Selection.EntireColumn.Hidden = False
Range("N:AK").Select
Selection.EntireColumn.Hidden = True
Range("N:AK").Select
Selection.EntireColumn.Hidden = False

Range("L1").Select
End Sub

Un saludo,
Daniel.

Lo que Julian quiere de decir es que en el botón que ejecuta la macro
escribas la palabra: 'Ocultar'

de este modo sería algo así:

if boton.caption="Ocultar" then
Range("N:AK").Select
Selection.EntireColumn.Hidden = True
boton.caption="Mostrar"
else
Range("N:AK").Select
Selection.EntireColumn.Hidden = False
boton.caption="Ocultar"
end if

de todas formas si no tienes la manera de referirte al botón que ejecuta la
macro, o en lugar
de texto el botón tiene un dibujito lo puedes hacer de esta forma que a mi
me parece más sencilla


Range("N:AK").Select
Selection.EntireColumn.Hidden = NOT(Selection.EntireColumn.Hidden)

al escribir el NOT() lo que hace es poner el contrario de lo que haya, si
está oculta la muestra
y si está visible la oculta. ¿Era eso?

Hola Individuo Desconocido !

Range("N:AK").Select
Selection.EntireColumn.Hidden = NOT(Selection.EntireColumn.Hidden)

esto me funciona mejor ... de cualquier forma gracias a los dos

Un saludo,
Daniel.