Enviar foco a determinado valor de combobox

[sasas]

Hola amigos recurro a uds pues no encuentro solucion en internet, mi consulta es:

Como envio el foco (SETFOCUS) a un determinado valor de un combobox, les explico el contexto:

Tengo un combobox con 3 estados

Estado1

Estado2

Estado3

Un formulario que esta en estado1 no puede pasar a estado3, tienen que pasar por estado2, entonces si mi formulario esta en estado1 y le cambio a estado3 y le doy guardar, me envia una alerta y me envia a mi formulario pero pierdo el foco de mi valor inicial "estado1"

Muchas Gracias

[Roberto Arellano]

No he probado el código ya que no subiste archivo, pero quizá ésta lógica del código siguiente te sirva:

if cells(x,y)="Estado 1" y combobox="Estado 1" then

    Instrucción ERROR

    SetFocus.combobox="Estado 1"

esleif cells(x,y)="Estado 2" and combobox="Estado 1" then

  Instrucción ERRROR

  Setfocus.combobox.text ="Estado 2"

elseif cells(x,y)="Estado 3" then

    combobox.text="Estado 3"

    Combobox.Enable= False

end if[/CODE]

Saludos!!!

Robert! ")

[Roberto Arellano]

Hay un error de dedo en la primera línea, lo siento, ya está corregido:

if cells(x,y)="Estado 1" y combobox="Estado 3" then

    Instrucción ERROR

    SetFocus.combobox="Estado 1"

esleif cells(x,y)="Estado 2" and combobox="Estado 1" then

  Instrucción ERRROR

  Setfocus.combobox.text ="Estado 2"

elseif cells(x,y)="Estado 3" then

    combobox.text="Estado 3"

    Combobox.Enable= False

end if[/CODE]

Saludos!!!

Robert! ")

[Esaul]

Para todos. Tengo una plantilla en Excel Programada en VBA para controlar todas las operaciones de una Bodega, tiene la extension .xlsm y no la puedo subir. Si escribes al correo: INTERVENIDO te la envio. Es totalmente funcional, utiliza variados formularios, y puede ser ajustada a voluntad.

[Gustavo Denis]

Como se puede hacer para que la compartas? Porqué el mail por lo visto no se puede...

[Roberto Arellano]

Compartanla por Dropbox y gracias! A mi tmb m interesaría. ")

Saludos