Mostrar/Ocultar Columnas alternas con un Botón que cambia el texto
Publicado por Ariel (3 intervenciones) el 11/02/2021 15:46:02
Buenas colegas
Tengo la siguiente Macro
Esta macro funciona de la siguiente manera: al hacer clic en un botón me muestra u oculta un rango de columnas (puede servir para filas si reemplazamos la palabra column por row) y al realizar la función cambia el texto entre ocultar y mostrar datos, lo cual está muy piola.
El problema es que no encuentro la manera de que me oculte columnas alternas en vez de rango, es decir en mi caso quiero ocultar las columnas A, D, E,F,G, I,J,O,P,Q.
Alguien podría indicarme como debería cambiar el código para lograrlo.
Gracias
Tengo la siguiente Macro
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Mostrar_Ocultar_Datos()
'Macros para mostrar/ocultar un rango de columnas
'Verifica si las columnas estan ocultas
If Columns("F:G").EntireColumn.Hidden = False Then
'Cambiar el texto del boton
ActiveSheet.Shapes("BColumnas").Select
Selection.Characters.Text = "Mostrar Columnas"
'Se ocultan las columnas
Columns("F:G").EntireColumn.Hidden = True
Else
'Cambiar texto del boton
ActiveSheet.Shapes("BColumnas").Select
Selection.Characters.Text = "Ocultar Columnas"
'Se muestran las columnas
Columns("A:G").EntireColumn.Hidden = False
End If
End Sub
Esta macro funciona de la siguiente manera: al hacer clic en un botón me muestra u oculta un rango de columnas (puede servir para filas si reemplazamos la palabra column por row) y al realizar la función cambia el texto entre ocultar y mostrar datos, lo cual está muy piola.
El problema es que no encuentro la manera de que me oculte columnas alternas en vez de rango, es decir en mi caso quiero ocultar las columnas A, D, E,F,G, I,J,O,P,Q.
Alguien podría indicarme como debería cambiar el código para lograrlo.
Gracias
Valora esta pregunta


0