Saltar al contenido

Ventana emergente en hoja


Recommended Posts

publicado

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

publicado

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

 

publicado

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 tecladel 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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.