evento que me llame a un procedimiento VBA excel

[juan007]

Compañeros(as) antes que todo agradecer cualquier ayuda sugerencia o critica.

Bueno les explico estoy haciendo una aplicacion de control de asistencia a reuniones de una cantidad X de personas el tema que el registro de asistencia lo hago a traves de una pistola que me lee una tarjeta de codigo de barras, para eso tengo una caja de texto donde al pistolear la tarjeta me aparece el numero de esa persona...hasta ahii todo bien.
Lo que pretendo es que con algun evento nose cual luego de captar el numero se pierda el foco lo cual lo hace me llame a un procediemito donde busco esa persona y la ingreso a una hoja.
En este momento lo que hace es captar el numero de la tarjeta y luego salta el foco al boton buscar ...mi idea es eliminar el bonton buscar ya que luego de saltar a ese boton debo obligadamente hacerle un clic para que lo ingrese.
mi idea es que capte el numero de la tarjeta y por un evento x que nose cual puede ser .... ese evento se encarge de llamar al procedimeito buscar ya que piero tiempo en el control de asistencia presionando cada vez que una persona llege.

Espero haberme explicado bien....y desde ya nuevamente gracias por su tiempo.

Saludos desde CHILE.

[David]

Puedes usar el evento Exit() del TextBox

[juan007]

Antes que todo gracias por tu tiempo y ayuda David el Grande te cuento que me funciono ... pistoleo la tarjeta y automaticamente me ingresa la asistencia de esa persona...pero el foco se me pierde ....

Me explico la idea es hacer autonoma el control de asitencia, llega pedrito pone su tarjeta la pistola lee la tarjeta y lo ingresa a la hoja de asistencia, ahora viene juanito quiere pasar su tarjeta por la pistola para que le tome la asistencia.... pero el foco ya no esta en la caje de texto.
Entonces que es lo que hice busca a x persona lo encuentra y lo agrega a la hoja asistencia, y para volver el foco nuevamente a la caja de texto hice esto txtBuscar.setfocus pero creo que me parece que por el evento mismo que me desencadena ya no puedo regresar a poner el foco nuevamente en la caja de texto.

Este es mi codigo:

Código:

Private Sub txtBuscar_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Call cmdBuscar_Click
    txtBuscar.SetFocus
    txtBuscar = ""
End Sub

Eso la idea es que despues de registrar la asistencia en la hoja me limpie la caja de texto y el foco vuelva a la misma caja de texto, para que cuando venga la proxima persona no tenga problemas.

Desde ya muchas Gracias.

[David]

Prueba así:

Código vb:

Call cmdBuscar_Click
txtBuscar.Text = ""
Cancel = True 'Esto hace que el foco no salga del TextBox
 

[juan007]

David el Grande ... no tengo palabras de agradeciemiento me funciono perfectamente.

Millones de gracias por tu tiempo y buena voluntad.