[Tienes pendiente valorar estas respuestas:
Buscar texto dentro de un rango de celdas
Buscar texto dentro de un rango
No sé exactamente a qué te refieres con "acceso directo", pero si te refieres a un hipervínculo para ir a la hoja, entonces debes hacerlo desde una macro, la secuencia sería así:
- Hacer visible la hoja
- Seleccionar la hoja
- Seleccionar la celda de la hoja
- Después cuando regreses a la hoja "principal" ocultas nuevamente la hoja.
Realiza lo siguiente con cada hipervículo:
- Por ejemplo si en la celda B2 tienes el hipervínculo a la hoja "Calle Cisneros", entonces realiza el hipervículo a la misma hoja "DATOS" y a la celda que quieras seleccionar.
En el ejemplo anterior, el hipervículo va a la misma hoja "DATOS", celda F1.
- Pon la siguiente macro en lo eventos de la hoja "DATOS":
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Por Dante Amor
Dim sCelda As String, sHoja As String
sCelda = Split(Target.SubAddress, "!")(1)
sHoja = Target.Range.Value
'Hace visible la hoja
Sheets(sHoja).Visible = True
'Selecciona la hoja
Sheets(sHoja).Select
'Seleccona la celda
Sheets(sHoja).Range(sCelda).Activate
End Sub
Para volver a ocultar la hoja, pon el siguiente código en los eventos de ThisWorkbook:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Por Dante Amor
Dim xsh As Worksheet
If LCase(Sh.Name) = LCase("DATOS") Then
For Each xsh In Sheets
If LCase(xsh.Name) <> LCase("DATOS") Then
xsh.Visible = False
End If
Next
End If
End Sub
Sigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- Del lado derecho copia la macro
Instrucciones para poner la macro en los eventos ThisWorkbook
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a ThisWorkbook
- Del lado derecho copia la macro
[No olvides valorar las respuestas...