STOK SAYIMI VE RENKLENDİRME

[Deha_77]

Merhaba,
ekli dosyada Ctl+F ile barkod okuyucu ile arama yapıldığında bulunan seri nolu hücrenin sarı renge boyanması konusunda desteklerinize ihtiyacım var.

Çok uğraştım ama çıkar yol bulamadım. Manuel boyama yaptığımda cok zaman kaybına neden oluyor.

 

[Murat OSMA]

Dosyanıza UserForm ekledim.
Dosyayı indirip açınca F3 tuşuna basın.
Ekrana gelen formda bir kutucuk göreceksiniz.
Barkodu okuttuğunuzda oradaki kutucuğa barkod yazılacak.
E sütununda barkodu bulur ve sarı renge boyar.
Yeni bir barkod için kutucuğu boşaltır.

Barkod okuyucudan gelen veri 10 karakterden büyük olduğunda çalışır.
ALT + F11 tuşlarına basarak VBE penceresine erişebilirsiniz.
UserForm üzerindeki gri boş bir alanda çift tıklarsanız içerisinde bu kodları göreceksiniz.

Private Sub TextBox1_Change()
    Dim irm As Range
    If Len(TextBox1.Value) > 10 Then
        Set irm = Columns(5).Find(TextBox1.Value, , , 1)
        If Not irm Is Nothing Then
            irm.Select
            irm.Interior.ColorIndex = 6
            TextBox1.Value = ""
        End If
    End If
End Sub

Kodlardaki şu alanlarda istediğiniz uygun değişikliği yapabilirsiniz;
If Len(TextBox1.Value) > 10 Then seçeneğini uygun bir sayı ile değiştirebilirsiniz.
Columns(5) kısmında 5. sütun, yani E sütununda arama yapar, farklı bir sütunda arama yapacaksanız o sütunun numarasını yazarsınız.
irm.Interior.ColorIndex = 6 kısmındaki 6 sayısı Sarı rengi ifade eder, farklı bir renklendirme yapmak isterseniz 1'den 56'ya kadar bir sayı yazabilirsiniz.

 

[rdizayn]

Merhaba;

Bunu farklı bir şekilde düzenleme şansınız var mı @Murat OSMA?
Alttaki gibi bir listem var barkod cihazı ile ürünlerin üzerindeki barkodu okutacağım, Barkodlarım excelde çift tırnak içinde yer alıyor normalde tırnaksız ama, okuttuğum barkod arkaplan yeşil olacak daha onu okuma işlemi yapmayacak başka aynı üründen yoksa,

sizin kodda birşeyler yapmaya çalıştım ama sağlıklu olmadı mesela barkod verisini girdiğim textbox çok sağlıklı çalışmıyor minimum karakter yerine bekleme süresi gibi birşey koyabilirmiyiz ?

Tırnak içindeki barkodları aratabilirmiyiz ?

Adet birden fazla ise ben kırmızı arkaplan yaptırdım ,sonra manuel kontrol için, Bunun yerine tam otomatik birşey yapılabilinir mi ?

Destekleriniz için çok teşekkür ederim.

Ürün Id	Variant ID	Barkod	Tedarikçi Kodu	Ürün Adı	Adet	Birim Satış Fiyatı	KDV Oranı
8671194​	7626671​	"107012117071"	1​	Test	1​	100​	10​
8671187​	7626684​	"107012247164"	1​	Test	1​	100​	10​
8674287​	7637216​	"107012437278"	1​	Test	1​	100​	10​
8727806​	7790484​	"107013047610"	1​	Test	1​	100​	10​
8674289​	7637193​	"107013107642"	1​	Test	3​	100​	10​
8674286​	7637212​	"107012447284"	1​	Test	1​	100​	10​
8674291​	7637231​	"107012427271"	1​	Test	1​	100​	10​
8674908​	7639766​	"107013047610"	1​	Test	10​	100​	10​
8674916​	7639818​	"107012487305"	1​	Test	1​	100​	10​
8418134​	6894922​	"10708630004949"	1​	Test	1​	100​	10​