Segun el valor de una celda excel abrir un userform o mensaje (msgbox)

[sdelpin]

buenas tardes, preciso de vuestra ayuda.

adjunto fichero con una lista desplegable de provincias, necesito que al seleccionar Baleares se abra un formulario preguntando si corresponde a Ibiza siendo la respuesta mediante dos botones de opcion Si/NO o tambien me valdria un msg box con las respuestas  SI/NO . 

 

muchas gracias!

 

userform_msgbox.xlsx

[Abraham Valencia]

Hola

En tu archivo no hay ningún avance y los foros son para ayudar, no para hacer el trabajo, no olvides eso.

[JSDJSD]

No sé si será esto lo que necesitas.

userform_msgbox.xlsm

[sdelpin]

muchas gracias, era lo que necesitaba en mi primera consulta, al final hice por msgbox la pregunta del codigo postal, pero ahora tengo otro problema cuando respondo SI a la pregunta no logro dejar el resultado en una celda especifica de la Hoja.  me puedes ayudar? 

adjunto fichero

gracias!

Sub ibiza()

If ActiveSheet.DrawingObjects("Lista1").Value = 7 Then
    
MsgBox "¿El Código Postal corresponde a Ibiza?", vbYesNo + vbQuestion, "ATENCION"

Select Case resultado

Case vbYes:
Sheets("Hoja1").Range(g2).Value = 10

Case vbNo:
Exit Sub

End Select

  End If
  
  End Sub
  

userform_msgbox (1).xlsm

[JSDJSD]

Prueba y comenta

Sub ibiza()

    If ActiveSheet.DrawingObjects("Lista1").Value = 7 Then
        resultado = MsgBox("¿El Código Postal corresponde a Ibiza?", vbYesNo + vbQuestion, "ATENCION")
        Select Case resultado
            Case vbYes:
                Hoja1.Cells(2, 7) = 10
            Case vbNo:
                Exit Sub
        End Select
    End If

  End Sub

 

[sdelpin]

Mil gracias es lo que necesito, lo tendré en cuanta para futuras ocasiones. 

que tengas un buen dia!