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

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! ")

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! ")

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.

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

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

Saludos