Cuestión : La macro de la búsqueda de Excel para utilizar una clave de barras busca resultado en hoja de trabajo, comienza encima

Hola, utilizo una transferencia directa de la hoja de trabajo del sobresalir de nuestro Web site para explorar los boletos para un acontecimiento.  Los boletos tienen claves de barras impresas en ellas.  Utilizaré a lector de clave de barras para explorar el boleto para la identificación del boleto, busco la hoja de trabajo para cerciorarse de que la identificación del boleto puede ser encontrada y también eso él no se ha utilizado ya.  Actual hacer esto con la característica del hallazgo y después supresión de la identificación del boleto si se encuentra.  Quisiera tener un método más fácil para hacer this.

So, necesito ayuda con una macro buscar la hoja de trabajo para una identificación del boleto, confirmo la identificación existo y eso no se ha utilizado ya.   Si se ha utilizado, volver una señal sonora audible y una exhibición de “utilizado previamente”, si no utilizado ya, exhibir “aceptable”, marcan la columna siguiente en la misma fila con un sí (para determinar la primera parte de la macro), vuelta para buscar el aviso para que la entrada de la clave de barras la haga de nuevo.  Estoy abierto cualquier cosa que logrará el mismo concept.

que he atado la parte nombre de fichero " vacío " >

 de un class= del
SampleTixFile.xls el class= (58 KB) attachmentDetails” el href= " del class= los " de (tipo de archivo detalles) class= del archivo downlod
Sample " de la descripción del class= " de
del >
class= del

Respuesta : La macro de la búsqueda de Excel para utilizar una clave de barras busca resultado en hoja de trabajo, comienza encima

Dar a esto un giro.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

Sub x ()
  
Amortiguar el rFind como gama, sFind, s como secuencia

line1:
sFind = Application.InputBox (“introducir la clave de barras”, 2)
Si el sFind = falso entonces sale el submarino

Con Sheet1.Range (“E2”, Sheet1.Range (“E2”). Extremo (xlDown))
    Fijar el rFind =. Encontrar (qué: =sFind, LookAt: =xlWhole, MatchCase: =False, SearchFormat: =False)
    Si el rFind entonces no es nada
        ¿s = MsgBox (“identificación no existe el intento otra vez? ”, vbYesNo)
        Si s = el vbNo entonces salen el submarino
    
        Si UCase (rFind.Offset (, 1)) = “SÍ” entonces
            MsgBox “usado previamente”
            Señal sonora
        
            rFind.Offset (, 1) = “SÍ”
            MsgBox “ACEPTABLE”
        Terminar si
    Terminar si
Terminar con

Line1 indicado

Submarino del extremo
Otras soluciones  
 
programming4us programming4us