Ocultar columnas mediante cuadro combinado

10/05/2007 - 11:00 por bettyblue30 | Informe spam
Hola a todos. Soy bastante novata en lo que se refiere al lenguaje
VBA, y me gustaría saber si alguien me puede ayudar a crear una macro
que oculte columnas. En particular tengo una hoja en la que en cada
columna se encuentran datos referentes a un determinado mes del año.
Lo que necesito es una macro que en función del mes que escriba en una
celda de la hoja, me oculte todas las columnas que no se correspondan
con el mes seleccionado.

Me han comentado que también en vez de tener que escribir el mes que
quiero que quede visible, se podría hacer con un cuadro combinado,
pero ahí estoy aún más perdida.

Alguien me puede ayudar?

Muchas gracias
 

Leer las respuestas

#1 Héctor Miguel
10/05/2007 - 22:10 | Informe spam
hola, betty ?

... crear una macro que oculte columnas
... tengo una hoja en la que en cada columna se encuentran datos referentes a un determinado mes del a#o.
... necesito... que en funcion del mes que escriba en una celda de la hoja
... oculte todas las columnas que no se correspondan con el mes seleccionado.
... se podría hacer con un cuadro combinado, pero ahí estoy aun más perdida...



si suponemos que la celda de la hoja donde escribes el mes es 'A1'
y que las columnas donde estan los correspondientes [nombres de] meses son C:N en la fila 1

1) selecciona la celda 'A1' y ve a [menu] datos / validacion
usa la opcion de Lista e introduce manualmente los nombres separados por coma?... punto_y_coma?

2) copia/pega las siguientes lineas en el modulo de codigo de 'esa' hoja:
-> haz un click-secundario sobre la etiqueta con su nombre y selecciona: -> ver codigo

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Dim Col As Byte
For Col = 3 To 14
Columns(Col).EntireColumn.Hidden = Cells(1, Col) <> Target
Next
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares