Macro de Excel 2007 para ocultar/mostrar ciertas columnas arbitrarias

Cada vez me piden más tareas utilizando macros de Excel con VB, y la verdad que no soy un experto aun, pero voy aprendiendo gracias a la ayuda de expertos como vosotros.

Hoy me ha pedido mi jefe que haga una Macro de Excel 2007 donde tenga que ocultar unas columnas X, de una hoja por ejemplo las columnas B, E, H, J y luego mostrarlas cuando haga falta, todo mediante una macro. Supongo que creando un botón que al clickarlo o bien al ejecutar la macro se oculten cuando haga falta todas las columnas y luego cuando se requiera que las muestre todas de golpe. Poniendo como ejemplo que sean las columnas B, E, H, J que macro tendría que utilizar.

1 Respuesta

Respuesta
1

Esta es la macro:

Sub oculta()

ActiveSheet.Range("b1").EntireColumn.Hidden = True

ActiveSheet.Range("e1").EntireColumn.Hidden = True

ActiveSheet.Range("h1").EntireColumn.Hidden = True

ActiveSheet.Range("j1").EntireColumn.Hidden = True

End Sub

Para mostrarlas sería la misma macro cambiando true por false

Finaliza y puntúa

Gracias, pero entonces como sería la macro final?

Así?:

Sub oculta()
ActiveSheet.Range("b1").EntireColumn.Hidden = True
ActiveSheet.Range("e1").EntireColumn.Hidden = True
ActiveSheet.Range("h1").EntireColumn.Hidden = True
ActiveSheet.Range("j1").EntireColumn.Hidden = True
End Sub

Sub oculta()
ActiveSheet.Range("b1").EntireColumn.Hidden = False

ActiveSheet.Range("e1").EntireColumn.Hidden = False
ActiveSheet.Range("h1").EntireColumn.Hidden = False
ActiveSheet.Range("j1").EntireColumn.Hidden = False
End Sub

Que creo 2 macros una como Mostrar y otra como Ocultar? como se ejecutan? Explicame un poco más por favor.

Muchas gracias,

Joan Antoni

Correcto, pero a la segunda macro cambiala el nombre por ejemplo llámala:

Así

Sub muestra()

ActiveSheet.Range("b1").EntireColumn.Hidden = False
ActiveSheet.Range("e1").EntireColumn.Hidden = False
ActiveSheet.Range("h1").EntireColumn.Hidden = False
ActiveSheet.Range("j1").EntireColumn.Hidden = False
End Sub

Si ha quedado claro, finaliza y puntúa

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Cómo puedo ocultar COLUMNAS con macros en excel?

Tengo valores desde A1 a K18, son números, en A20 a K20 tengo una suma de todos los números, pero en algunos tengo valor CERO, lo que necesito es que si un valor de los que tengo en A20:K20 es igual a CERO oculte toda esa columna, por ejemplo: si en...
1 respuesta

Modificar código para ocultar columnas en excel

Ya había hecho una pregunta en relación: ¿Cómo puedo ocultar COLUMNAS con macros en excel? Pero seguí buscando y encontré este código que es lo que necesito, pero quiero que haga lo contrario, en este código: Private Sub Worksheet_Change(ByVal Target...
1 respuesta

Ayuda con macro mpara ocultar columnas

Me gustaría que me ayuden a crear una macro para lo siguiente: En la la Fila 1 las celdas tienen una fórmula que dependiendo de los datos de otra fila me muestra valores de 0 ó 1; o que quiero es una macro que revise los datos de la fila 1 y si...
1 respuesta

Macro para ocultar columnas, dependiendo del valor en una celda especifica.

Probablemente sea sencillo, pero soy novato): Las columnas X y Y están ocultas al abrir el archivo. En la celda J3, puedo tener valores del 1 al 4; si J3=1, las columnas X y Y deben permanecer ocultas, pero si J3 = 2, 3 ó 4, las columnas X y Y se...
2 respuestas

Macro para proteger varios rangos de celdas a partir del valor de una celda

Necesito un código, en donde a partir de el valor de una celda (A1) = "si o no", "me proteja/desproteja " (permitir si o no borrar datos) de varios rangos de celdas (B1:B4) y (C1:C7), pero ademas esto lo haga dentro de la misma hoja con varios rangos...
2 respuestas

Mostrar u ocultar filas o columnas en Excel según el valor de una casilla

Me gustaría saber como puedo ocultar o mostrar columnas o filas según si el valor de la casilla A4 de la pestanya INFORMACIÓN es si o no y lo mismo si la casilla es un número.
1 respuesta

Macro para ocultar filas según color

Quisiera que me colaborara con la corrección de la siguiente macro: Sub esconderfilas2() Dim str str = Range("K9:O9").Address Range(str).Select For i = 1 To 200 For Each str In Selection If Selection.Interior.Color = RGB(51, 153, 102) Or...
1 respuesta

Sacar subotales por año arriba en la hoja

Ayudarme a que arriba aparezcan los totales por año de cada inquilino que vayamos a consultar Gracias Sub Buscar() 'Mod.Por.DAM Application.ScreenUpdating = False Set h1 = Sheets("Estados de cuenta") Set h2 = Sheets("Cartera.") '...
1 respuesta

Mostrar hojas ocultas excel 2007

Soy contador publico y estoy recibiendo un cargo en una empresa, mi pregunta se relaciona en que el Sr. Contador anterior dejo el archivo para realizar los balances pero dejo ocultas las hojas para alimentar las hojas que los elaboran, lo que pasa es...
1 respuesta

Macro que busque los datos en otra hoja(mismo libro) y copie en otra.

Es urgente alguien me puede ayudar estoy elaborando una bse de datos en excel(2007). 1-El libro contiene lo siguiente: 2 hojas (consulta, base de datos). Quisiera insertar un TextBox en el cual ingresar los datos a buscar, 2 combobox (1. La lista de...
1 respuesta