Macro para ocultar columnas

Hola mia:
La lista desplegable de la celda G30 de la Hoja Ficha.T
tiene que ser

01ENERO
02FEBRERO
03MARZO
04ABRIL
05MAYO
06JUNIO
07JULIO
08AGOSTO
09SEPTIEMBRE
10OCTUBRE
11NOVIEMBRE
12DICIEMBRE
para que así sea más fácil determinar en número el mes elejido.
Si los meses en la Hoja "Mensual" estuviesen en C:N
Pon la macro siguiente en un Módulo de tu libro y llámala
desde el código del bóton o cuadro de texto que tienes en la Hoja "Ficha.T"

Sub OcultaColum()
Dim c, e As Integer
Sheets("Mensual").Activate
Columns("C:N").Select
Selection.EntireColumn.Hidden = False
e = Val(Left(Sheets("Ficha.T").Range("G30"), 2)) + 3
For c = e To 14
Columns(c).EntireColumn.Hidden = True
Range("A1").Activate
Next
End Sub

Saludos.-


"mia" escribió en el mensaje de
noticias news:
Mostrar la cita

Necesito su ayuda! trato de hacer una macro que me oculte columnas
dependiendo
de la selección de una lista desplegable:

En la hoja "Ficha.T" tengo una "forma"(rectángulo
usado como botón) que me lleva a la hoja "mensual" donde tengo
mes a mes mis costos por rubro. En la celda "G30" de la hoja
"Ficha.T" tengo la lista desplegable donde están los meses que
se reflejan en la hoja "Mensual"; lo que quiero es que en la lista
desplegable seleccione el mes y al momento de dar el clic en el
rectángulo que uso como botón (asignandole la macro) me mande a
la hoja de mensual y que solo me muestre del primer mes al mes
seleccionado.

Espero puedan ayudarme ya que llevo muchos días de intento sin tener
exito, no domino este tema. Gracias.