Ocultar columnas

Hola, Anibal.

Supongamos que la celda que va a controlar el número de columnas visibles es
A1. Primero, deberías validar el dato que contiene, pues sería incómodo que
alguien colocara allí un cero o un valor no válido como -2.75. Selecciona la
celda (en este ejemplo, supongo que es A1), y haces clic en Datos -
Validación. En el separador Configuración, en el cuadro Permitir, selecciona
"Número", en Datos selecciona "Mayor que", y en Mínimo seleccionas "0". Lo
que selecciones en el separador "Mensaje entrante" y en "Mensaje de error",
lo dejo a tu criterio.

Ahora diseñemos el proceso. Vas a necesitar modificar el evento "Change" de
la hoja en la que quieres implementar el proceso. En este evento, debes
detectar si la celda modificada fue A1, y en caso afirmativo, mostrar las
primeras columnas, hasta la indicada en el valor de A1, y luego ocultar el
resto. El proceso sería el siguiente:

1. Asegúrate que solamente esté abierto el archivo que vas a modificar.
Esto te puede prevenir muchos errores.

2. Haces clic en Herrameintas - Macro - Editor de Visual Basic.

3. Al lado izquierdo, haces doble clic en la hoja que deseas.

4. Al lado derecho te aparecerá una ventana en blanco. Pegas el siguiente
código:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$A$1" Then
Range(Cells(1, 1), Cells(1, Range("A1").Value)).EntireColumn.Hidden
= False
Range(Cells(1, Range("A1").Value + 1), Cells(1,
256)).EntireColumn.Hidden = True
End If
Application.ScreenUpdating = True
End Sub

5. Cierras la ventana de Visual Basic.

6. Prueba cambiar el valor de A1 y verifica si es correcto.

Espero que sea lo que necesitas. Siempre comenta cómo te fue, pues esto es
importante para las otras personas que lean tu duda y vean las respuestas
planteadas.

Saludos.



"Anibal" escribió:

Como puedo hacer para ocultar columnas dependiendo del valor de una
celda, supongamos que tengo 24 columnas que representan meses columna A
=1, columna B =2 y asi hasta la columna 24.
En la celda que menciono arriba quiero poner 6 que equivalen a 6 meses.
Quisiera que se oculten desde el mes 7 hasta el 24. Saludos y gracias.