Barkot ile ürünü bulma da sorun

[hanmax]

Merhaba arkadaşlar;

Ekte ki excel dosyasında da açıklama yazdım ancak sorunu buraya da yazmak istiyorum.

firmamız da geri gelen ürünler hızlı bir şekilde kontrol etmemiz gerekiyor.

Ürünün lot numaraları ile karşılaştırma yapmak istediğimde yaptığım doyada maalesef ürünleri bulamıyorum.

Ürünün üstündeki barkot lot numarası, ürünün lot numarasından fazla.

Bu konuda yardımcı olabilir misiniz ?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
 
    If Intersect(Target, Range("G2,C2:C65536")) Is Nothing Then Exit Sub
 
    Set S1 = Sheets("Sayfa1")
 
    If S1.[G2].Value <> "" Then
        Barkod = Mid(S1.[G2], 11, Len(S1.[G2]) - 12)
        With S1.Range("A:A")
            Set BUL = .Find(Barkod, LookIn:=xlValues, LookAt:=xlWhole)
            If Not BUL Is Nothing Then
                If Target.Address = "$G$2" Then
                    BUL.Offset(0, 2).Select
                    BUL.Interior.ColorIndex = 3
                Else
                    BUL.Interior.ColorIndex = 6
                    Range("G2").Select
                End If
            End If
        End With
    End If
Son:
    Set BUL = Nothing
    Set S1 = Nothing
End Sub

 

[hanmax]

Korhan bey teşekkür ederim.
Bir düzeltme yapabilir miyiz acaba ?

Dosya yüklü olacağı için barkodu okuttuğumda imleç bulduğu barkodun C sutununa yani miktar sutununa gidip ben ENTER e bastığımda A sutununundaki bulduğu barkodu sarıya boyaması ve G2 sütünuna gitmesi şeklinde yapabilir miyiz ?

Eğer olmaz ise sadece ben entere bastığımda sarıya boyasın yeterlidir.

 

[Korhan Ayhan]

Miktar sütununa veri girişi yapıp ENTER tuşunamı basacaksınız?

 

[hanmax]

Evet
Ben bastıktan sonra sarıya boyarsa süper olur. Bulduğunu başka bir renk ile bana gösterirseniz süper olur aslında. Ben miktarı girdikten sonra sarıya boyanıp imleç G2 sütununa gitsin yeterlidir.

 

[Korhan Ayhan]

Üstteki mesajımdaki kodu güncelledim. Deneyiniz.

 

[hanmax]

Korhan bey
Yardımlarınız için gerçekten çok teşekkür ederim.
İstediğim gibi olmuş ...

Okuttuğum barkodu bulduğu zaman, barkodu kırmızı daha sonra veriyi yazdıktan sonra sarı yapma şansımız var mı acaba ?

Sorunum şu :
Arama yapıp bulduğu zaman imlecin nerede olduğunu göremiyorum sadece ...
Eğer bunu da yapabilirseniz tam olacak

 

[Korhan Ayhan]

#2 nolu mesajımdaki kodu tekrar güncelledim. Deneyiniz.

 

[hanmax]

Süpersiniz Çok teşekkür ederim. Korhan Bey

 

[hanmax]

Korhan bey veya diger yardım edebilecek arkadaslar gecen günkü çalışmam da değişik barkottan dolayı yeni bir problem ile karşılaştım.
İlgili problemi excel dosyasına yazdım ancak buraya da yazayım

Bazı yeni tip malzemeler de üretici firma bakod şeklini değiştirmiş excel de barkot sekillerini yazdım üstteki barkot aramalarını yapıyorum ancak yeni gelen barkotları okutamıyorum. yani dosyada bulmuyor. bu probleme yardımcı olabilecek arkadas varmıydı acaba ?
Yeni barkotları her iki şekil de de okutup listeden bulabilir miyim?

 

[hanmax]

Günceldir arkadaşlar

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
 
    If Intersect(Target, Range("G2,D2:C65536")) Is Nothing Then Exit Sub
 
    Set S1 = Sheets("Sayfa1")
 
    If S1.[G2].Value <> "" Then
        If Left(S1.[G2].Value, 1) = "_" Then
            Barkod = Mid(S1.[G2], 11, Len(S1.[G2]) - 12)
        Else
            Barkod = Right(S1.[G2], 6)
        End If
        With S1.Range("B:B")
            Set BUL = .Find(Barkod, LookIn:=xlValues, LookAt:=xlWhole)
            If Not BUL Is Nothing Then
                If Target.Address = "$G$2" Then
                    BUL.Offset(0, 2).Select
                    BUL.Interior.ColorIndex = 3
                Else
                    BUL.Interior.ColorIndex = 6
                    Range("G2").Select
                End If
            End If
        End With
    End If

Son:
    Set BUL = Nothing
    Set S1 = Nothing
End Sub

 

[hanmax]

Korhan Bey çok teşekkür ederim.
İşyerinde hemen deneyeceğim. Şu an için tam istediğim gibi olmuş.
Ürünlerde barkot problemi çıkmaz daha fazla inşallah.

 

[Filose]

Mizandan bilgi almak

Korhan bey
Ekli örnek dosyaya buradan bakabilirsiniz.

Teşekkür ederim.