Seleccionar hoja según el valor de la celda

[jesus miguel]

Buenos días:

Trabajo con dos libros uno Caja Jesús 2016 y otro Cuentas por cobrar, bueno en mi libro caja en la hoja BOLETOS en la celda F1 ingreso el nombre de una de las hojas de mi otro libro Cuentas por cobrar, para este ejemplo solo puse algunas hojas, pero la verdad tengo como 200 hojas que las utilizo.

Mi consulta es de como ir a la hoja del libro Cuentas por cobrar según el valor de la celda F1 de mi libro Caja Jesús 2016.

Muchas gracias por su atención, saludos cordiales

Jesús

Caja Jesus 2016.xlsx

Cuentas por cobrar.xlsx

[Antoni]

Pon la macro en la hoja BOLETOS.

Doble-click en la celda F1 para ir a la hoja de Cuentas por cobrar. 

 

Private Sub Worksheet_BeforeDoubleClick _
           (ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Target.Address = "$F$1" Then Exit Sub
Workbooks("Cuentas por cobrar.xlsx").Activate
ActiveWorkbook.Sheets(Target.Value).Activate
End Sub

 

Se da por entendido que ambos libros están abiertos simultaneamente.

[jesus miguel]

Excelente si funciona gracias gracias

Jesús

TEMA SOLUCIONADO

[jesus miguel]

Estimado Macro Antonio, y si quisiera hacerlo mediante boton

Sub irakardex ()
Cancel = True
If Not Target.Address = "$F$1" Then Exit Sub
Workbooks("Cuentas por cobrar.xlsx").Activate
ActiveWorkbook.Sheets(Target.Value).Activate
End Sub

Que tendría que modificar ???

Saludos

Jesús

[Antoni]

Sub irakardex ()
Workbooks("Cuentas por cobrar.xlsx").Activate
ActiveWorkbook.Sheets(Range("F1").Value).Activate
End Sub

[jesus miguel]

Me sale el siguiente mensaje" Se ha producido el error '9' en tiempo de ejecución : Sub indice fuera del intervalo "

Saludos

Jesús

[Antoni]

La hoja a la que quieres ir no existe.

[jesus miguel]

HUUUU  gracias por la aclaración