Jump to content
Sign in to follow this  
dbuera

Macro para mostrar/ocultar columnas segun condicion

Recommended Posts

En esta vez tengo otra duda acerca de una macro, y es que tengo un documento con dos hojas.

A la primera hoja llamada (año) en la celda "A1" cambio el año manuamente (2013,2014...)

Y en la segunda hoja llamada (datos), todos los datos de los años por columnas.

Me gustaria una macro para que cuando ponga el año en la celda A1 de la hoja "año" solo me muestre las columnas del respectivo año en la hoja "datos".

Por ejemplo.

Celda A1 = 2013 que me muestre las columnas A:B

Celda A1 = 2014 que me muestre las columnas C: D

y asín succecivamente y que las otras las oculte

Gracias.

Share this post


Link to post
Share on other sites
En esta vez tengo otra duda acerca de una macro, y es que tengo un documento con dos hojas.

A la primera hoja llamada (año) en la celda "A1" cambio el año manuamente (2013,2014...)

Y en la segunda hoja llamada (datos), todos los datos de los años por columnas.

Me gustaria una macro para que cuando ponga el año en la celda A1 de la hoja "año" solo me muestre las columnas del respectivo año en la hoja "datos".

Por ejemplo.

Celda A1 = 2013 que me muestre las columnas A:B

Celda A1 = 2014 que me muestre las columnas C: D

y asín succecivamente y que las otras las oculte

Gracias.

Hola

Prueba esta macro de evento, pegala en el modulo de la hoja "año"

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(0, 0) = "A1" Then

With Sheets("datos")
.Columns("A:D").Hidden = True
Select Case Target.Value
Case Is = 2013: .Columns("A:B").Hidden = False
Case Is = 2014: .Columns("C:D").Hidden = False
End Select
End With

End If

End Sub[/CODE]

Saludos

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png