Buenos días a todos;

-La consulta que hoy os planteo trata de lo siguiente:

 En el archivo que adjunto hay una macro (ctrl+h) que al pulsar combinación de teclas sale una ventanita emergente que me indica en una lista el número de hojas disponibles y al pulsar sobre una de la lista me lleva hacia esa hoja.

 Hasta aquí bien, lo me gustaría conseguir es que a parte de llevarme hacia esa hoja me mostrase un msgbox que yo configuraría y tendría que ser distinto para cada hoja.

Adjunto macro.

 

Saludos y buen día.

 

MEmergente.xlsm

No se si es eso lo que quieres, porqué no entiendo el porqué del requerimiento.

Sub NavegaHojas()
Dim Origen As String
Origen = ActiveSheet.Name
Application.CommandBars.FindControl(ID:=957).Parent.ShowPopup
If Origen <> ActiveSheet.Name Then
   MsgBox "Has saltado de la hoja " & Origen & " a la hoja " & ActiveSheet.Name
End If
End Sub

 

Bo día Antoni;

Si me puede valer, la he modificado un pelín.

Me preguntas por el motivo:

En algunas hojas tengo una información ente comillas oculta y este mensaje me sirve a modo de recordatorio, por eso insistía en el msgbox.

Lo que si comentar lo siguiente:

En vez de llamar a la macro con el ctrl + h que sea cuando hago clic en la tecla + del teclado numérico (conocido como salida de campo).

Por último, me ha dicho un pajarito y no es el de Maduro que eres de Barcelona y yo pensando que eras Gallego y del Real Madrid ?, que equivocado estaba.

Te inserto como quedó la macro, si ves algo raro me comentas.

Sub navegaHojas()
Dim Origen As String
Origen = ActiveSheet.Name

If ActiveSheet.Name = "Hoja1" Then
    Application.CommandBars.FindControl(ID:=957).Parent.ShowPopup
    If Origen = ActiveSheet.Name Then
        MsgBox "Esta información es relativa a la hoja1"
    End If
    
End If

If ActiveSheet.Name = "Hoja2" Then
    Application.CommandBars.FindControl(ID:=957).Parent.ShowPopup
    If Origen = ActiveSheet.Name Then
        MsgBox "Esta información es relativa a la hoja2"
    End If
    
End If

    Application.CommandBars.FindControl(ID:=957).Parent.ShowPopup
    If Origen = ActiveSheet.Name Then
    End If
    
End Sub

Un abrazo y muchas gracias Antoni