Como regresar automaticamente al Item anterior en un Combo

[mexican2]

Como regresar automaticamente al Item anterior en un Combo?

La accion que quiero hacer en el evento click del Combo es cuando me disponga a seleccionar otro elemento de la lista del combo me pregunte primero si quiero seguir o volver al anterior
Este es un ejemplo incompleto ayudenme a completarlo por favor

Private Sub Combo1_Click()

If MsgBox ("¿ QUIERE VOLVER AL ELEMENTO ANTERIORMENTE SELECCIONADO ?", vbExclamation + vbYesNo + vbDefaultButton2, "ATENCION") = vbNo Then
Exit Sub

Else

End If

End Sub

[David]

Podrías guardar en la propiedad Tag del ComboBox cuál fue la última opción seleccionada válida, y preguntar, si desea cambiar realmente a otra opción, si no quiere hacerlo, tomar del Tag cuál fue la última opción y volver a ella.

[mexican2]

Gracias David el Grande

Entiendo la explicacion que me das

pero no tengo idea de como escibir ese codigo que me dices


Gracias

[David]

Por ejemplo:

Código vb:

Private Sub Combo1_Click()
If MsgBox("¿Eliminar?", vbYesNo) = vbNo Then
      Combo1.ListIndex = Val(Combo1.Tag) 'Recuperar la selección anterior
End If
Combo1.Tag = Combo1.ListIndex 'Guardar en el Tag la selección actual
End Sub
 

[mexican2]

Este codigo esta bien pero le falta algo

Este codigo siempre me regresa al primer item de la lista

y lo que quiero es que me regrese al item seleccionado anteriormente

no necesariamente va ser siempre el primer item

Es decir si estoy posicionado en el segundo item y al darle click me voy al 4 item
y le digo al mensaje que no, entonces me regrese al 2 item donde estaba

[David]

Después de la línea 3 agrega un Exit Sub.