Ayuda Mostar y ocultar Hipervinculos en un archivos de excel

[marcosab]

Buenas a todos

Estoy creando en excel una herramienta que me ayude en el trabajo me gustaria saber si alguno de ustedes me puede ayudar con la siguiente duda:

ocupo que cuando voy a (Cálculo Adeudos Patronales, datos generales y en la celda Tipo de Cálculo:) que cuando selecciono alguno de los tres (necesarias +180, necesarias -180 y no necesarias se me oculten las que no voy a utilizaar)

no se si esto se pueda hacer con un macro o con que.

adjunto el archivo.

prueba.rar

[siamesa]

Buenas noches:

Pega estas macros.

Cambia los vínculos de las etiquetas por tus macros y listo.

Sub A_01_IR_A_FACTORES()

Application.ScreenUpdating = False

Sheets("Factores").Visible = True

Sheets("Cálculos").Visible = False

Sheets("+180").Visible = False

Sheets("-180").Visible = False

Sheets("No Nec").Visible = False

Application.ScreenUpdating = True

End Sub

Sub A_02_IR_A_CÁLCULOS()

Application.ScreenUpdating = False

Sheets("Cálculos").Visible = True

Sheets("Factores").Visible = False

Sheets("+180").Visible = False

Sheets("-180").Visible = False

Sheets("No Nec").Visible = False

Application.ScreenUpdating = True

End Sub

Sub A_03_IR_A_MÁS_180_DÍAS()

Application.ScreenUpdating = False

Sheets("+180").Visible = True

Sheets("Cálculos").Visible = False

Sheets("Factores").Visible = False

Sheets("-180").Visible = False

Sheets("No Nec").Visible = False

Application.ScreenUpdating = True

End Sub

Sub A_03_IR_A_MENOS_180_DÍAS()

Application.ScreenUpdating = False

Sheets("-180").Visible = True

Sheets("Cálculos").Visible = False

Sheets("Factores").Visible = False

Sheets("+180").Visible = False

Sheets("No Nec").Visible = False

Application.ScreenUpdating = True

End Sub

Sub A_01_IR_A_NO_NECESARIOS()

Application.ScreenUpdating = False

Sheets("No Nec").Visible = True

Sheets("Cálculos").Visible = False

Sheets("Factores").Visible = False

Sheets("-180").Visible = False

Sheets("+180").Visible = False

Application.ScreenUpdating = True

End Sub

P.D.: Por si necesitas tener todas las hojas visibles, pega esta macro y la ejecutas desde donde quieras:

Sub A_06_MOSTRAR_TODAS_LAS_HOJAS()

Application.ScreenUpdating = False

For Each N In Sheets

N.Visible = True

Next N

Sheets("Cálculos").Select

Range ("A1").Select

Application.ScreenUpdating = True

End Sub

[marcosab]

muchas gracias por la respuesta muy amable...