Saltar al contenido

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

publicado

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

Featured Replies

publicado
  • Autor

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

publicado

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

 

publicado
  • Autor

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

que tengas un buen dia! 

Archivado

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