Muchas Gracias por tu ayuda.
Si, cuando en el textbox, que lo llame tEan, recibe el código de barras, debe de ir a la base de datos que la tengo en la hoja 2, para consultar si existe o no, para traer la información al formulario en otros textbox que son
ean, refrerencia, descripción, cliente, y cantidad,
cuando lee un ean igual los va sumando el cantidad
Pero cuando leo el ean, se va para el botón añadir. abajo esta el código
Ese seria en procedimiento. te lo muestro.
El tEan hace un procedimiento
Private Sub tEAN_Change()
ActualizarDatos
tEAN.SetFocus
cAñadir_Click
End Sub
ub ActualizarDatos()
If lNumProductos > 0 Then
If tEAN <> "" Then
Label13 = ""
Label14 = ""
Label15 = ""
'Buscamos los datos del producto
For lNum = 2 To lNumProductos + 1
If CStr(Hoja2.Cells(lNum, 1)) = tEAN Then
Label13 = Hoja2.Cells(lNum, 2)
Label14 = Hoja2.Cells(lNum, 3)
Label15 = Hoja2.Cells(lNum, 4)
TextBox1 = Application.WorksheetFunction.Sum(Range("f5:f200")) + 1
Exit For
End If
Next
If Label13 = "" Then
txtInfo = "No existe este producto."
Else
txtInfo = "Producto encontrado."
End If
End If
End If
End Sub
Private Sub cAñadir_Click()
Dim lNum As Long
Dim bEncontrado As Boolean
Dim lFilaEncontrada As Long
If Label13 <> "" Then
'Miramos si existe el EAN en esta caja
For lNum = lNumUltimaLinea + 5 To 5 Step -1
If CLng(Hoja1.Cells(lNum, 1)) = lCajaActual And CStr(Hoja1.Cells(lNum, 2)) = tEAN Then
bEncontrado = True
lFilaEncontrada = lNum
Exit For
End If
If CLng(Hoja1.Cells(lNum, 1)) < lCajaActual Then
Exit For
End If
Next
If bEncontrado Then
'Sumamos +1 en las unidades
Hoja1.Cells(lFilaEncontrada, 1) = lCajaActual
Hoja1.Cells(lFilaEncontrada, 2) = tEAN
Hoja1.Cells(lFilaEncontrada, 3) = Label13
Hoja1.Cells(lFilaEncontrada, 4) = Label14
Hoja1.Cells(lFilaEncontrada, 5) = Label15
Hoja1.Cells(lFilaEncontrada, 6) = CLng(Hoja1.Cells(lFilaEncontrada, 6)) + 1
Else
lNumUltimaLinea = lNumUltimaLinea + 1
Hoja1.Cells(lNumUltimaLinea + 5, 1) = lCajaActual
Hoja1.Cells(lNumUltimaLinea + 5, 2) = tEAN
Hoja1.Cells(lNumUltimaLinea + 5, 3) = Label13
Hoja1.Cells(lNumUltimaLinea + 5, 4) = Label14
Hoja1.Cells(lNumUltimaLinea + 5, 5) = Label15
Hoja1.Cells(lNumUltimaLinea + 5, 6) = 1
End If
End If
End Sub
En lo que me puedas ayudar te lo agradeceria