Problema con FIND en búsqueda de códigos de barras

[HestradaBa]

Hola y buen día Compañeros:

Les quiero comunicar mi problema para que alguien de la comunidad de este prestigiado foro me ayude a corregir la macro que armé para leer los códigos de barras de los...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

En tal caso reemplaza:
Set DirCodigo = .Find(Codigo.Value)

por:
On Error Resume Next
Set DirCodigo = .Cells(WorksheetFunction.Match(Codigo, .Cells, 0))
On Error GoTo 0

Saludos, Cacho R.

 

[HestradaBa]

Caray, Cacho te agradezco de sobremanera ya probe y sin ningún problema, que tengas un excelente día hoy y siempre. :shock:

 

[Cacho R]

Caray, Cacho te agradezco de sobremanera ya probe y sin ningún problema, que tengas un excelente día hoy y siempre. :shock:

¡Me alegra que te haya sido de utilidad! y...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[amacar5]

Hola y buen día a todos:

Después de estar revisando los comentarios en los foros, encontré que este comentario es parecido al problema que tengo, la cuestión es esta, tengo una base de datos en...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[HestradaBa]

Amacar5, la solución esta en el archivo que esta al inicio ya lo bajaste? para que de ahí partiéramos, buen día! :D