Introducir datos con Lector de Códigos de Barras en Excel

Pero esta macro hace la búsqueda en la columna G, tendrás la macro en la que dices qeu busca en la columna A.

Saludos. Dam

Hola:

Efectivamente, en la macro tengo modificadas las celdas. La macro ya modificada en mi hoja es esta:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lector As String
lector = "i1" 'cambia esta celda por la celda en la que esta la lectora
If Not Application.Intersect(Target, Range(lector)) Is Nothing Then
buscar (Range(lector).Value)
Range(lector).Select
End If
End Sub
Private Sub buscar(dato As String)
Dim Referencia As String, Físico As String
Dim n As Long
Dim fc As Long
Dim cc As Long
Dim fg As Long
Dim cg As Long
Dim encontrado As Boolean
Referencia = "a1" 'cambia esta celda por la celda en la que esta el emcabezado de Referencia
Físico = "c1" 'cambia esta celda por la celda en la que esta el emcabezado de Cantidad
Range(Referencia).Select
n = Range(Referencia).CurrentRegion.Rows.Count + (Range(Referencia).Row - 1)
fc = Range(Referencia).Row + 1
cc = Range(Referencia).Column
encontrado = False
fg = fc
cg = Range(Físico).Column
While fc <= n
If (Cells(fc, cc).Value = dato) Then
Cells(fc, cg).Value = Cells(fc, cg).Value + 1
encontrado = True
End If
fc = fc + 1
Wend
If encontrado = False Then
MsgBox ("Referencia inexistente")
End If
End Sub

Gracias

Así es más fácil trabajar.

Te regreso la macro completa con el código para buscar en la columna B

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lector As String
lector = "i1" 'cambia esta celda por la celda en la que esta la lectora
If Not Application.Intersect(Target, Range(lector)) Is Nothing Then
buscar (Range(lector).Value)
Range(lector).Select
End If
End Sub
Private Sub buscar(dato As String)
Dim Referencia As String, Físico As String
Dim n As Long
Dim fc As Long
Dim cc As Long
Dim fg As Long
Dim cg As Long
Dim encontrado As Boolean
Referencia = "a1" 'cambia esta celda por la celda en la que esta el emcabezado de Referencia
Físico = "c1" 'cambia esta celda por la celda en la que esta el emcabezado de Cantidad
Range(Referencia).Select
n = Range(Referencia).CurrentRegion.Rows.Count + (Range(Referencia).Row - 1)
fc = Range(Referencia).Row + 1
cc = Range(Referencia).Column
encontrado = False
fg = fc
cg = Range(Físico).Column
While fc <= n
If (Cells(fc, cc).Value = dato) Then
Cells(fc, cg).Value = Cells(fc, cg).Value + 1
encontrado = True
End If
fc = fc + 1
Wend
‘Código para buscar en la columna B
For i = 1 To Range("B" & Rows.Count).End(xlUp).Row
    If Cells(i, 2) = dato Then
        Cells(i, 3) = Cells(i, 3) + 1
        encontrado = True
    End If
Next
‘Fin código para buscar en la columna B
If encontrado = False Then
MsgBox ("Referencia inexistente")
End If
End Sub

Saludos.Dam
Si es lo que necesitas.

Hola Dam,

Acabo de probar la nueva macro y me da el siguiente error de compilacíon: "No se ha definido la variable" y se detiene en esta linea:

For i = 1 To Range("B" & Rows.Count).End(xlUp).Row

Gracias de nuevo, estaré atento

Saludos. Tomi

En la parte inicial de esa macro tienes esto

Private Sub buscar(dato As String)
Dim Referencia As String, Físico As String
Dim n As Long
Dim fc As Long
Dim cc As Long
Dim fg As Long
Dim cg As Long
Dim encontrado As Boolean

Agrega esta línea

Dim i as integer

Prueba y me dices.

Saludos. Dam

Si te funciona, podrías finalizar la pregunta.

Hola Dam:

Lo acabo de probar y... va perfecto, es justo lo que necesito. Eres un genio y te estoy super agradecido por tu interés, la rapidez de tu respuesta y en definitiva la solución que me has aportado.

Muchas gracias.

Saludos

Tomi