Buscar valor mediante macro

 Descargar el ejemplo
 

El título de esta nota parece un tanto inusual teniendo en cuenta que existe una función para buscar de manera vertical, en una o dos dimensiones, sin tener que acudir al "tortuoso" pero fascinante escenario de las macros.

Un amigo, ávido de implementar mejoras ofimáticas en el supermercado donde labora, me pregunta lo siguiente: 

Tengo un sensor de código de barras que transmite el código de cada producto a una hoja de cálculo ¿cómo puedo hacer que Excel busque ese valor en una columna determinada, y que cuando encuentre ese valor, se situe en una celda contigua al valor encontrado?

La respuesta fue, un código de Visual Basic.

Cómo no soy experto en el tema, tome en cuenta varias referencias; entre ellas el material notable de la experta Elsa Matilde. 

El requerimiento supone que el código detectado siempre quedará incluido en la celda G2; este sera el valor buscado en la columna D. Cuando se encuentre el valor , la celda activa será la celda contigua al valor encontrado; es decir, la celda correspondiente a la columna E.

Aquí el código que será incluido en un módulo:

Sub buscador() Dim mihoja As String, Donde As String Dim Quebusco As String Dim resulta As Object Dim ubicado As String 'la variable mihoja guarda la hoja donde se hará la búsqueda mihoja = "Hoja1" 'la variable Donde guarda el rango donde debe efectuarse la búsqueda, columna D Donde = "D:D" 'la variable Quebusco guarda el dato a buscar que se encuentra en la celda G2 Quebusco = Range("G2").Value 'se crea un objeto con el resultado de la función Find Set resulta = Sheets(mihoja).Range(Donde).Find(Quebusco, LookIn:=xlValues, LookAt:=xlWhole) If resulta Is Nothing Then 'si no se encuentra el dato puede mostrar un mensaje de error como el siguiente MsgBox "No se encontró el dato", vbCritical, "NO ENCONTRADO" Else 'si encontró el dato, se situa una columna hacia la derecha, celda contigua al dato encontrado. resulta.Offset(0, 1).Select End If 'se limpia la variable Set resulta = Nothing End Sub

Para terminar, se puede asignar la macro a un botón de formulario para facilitar la ejecución de la macro.