+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel İle Barkod Okuyucu Ve Stok Kayıt Vba Programı (/konu-excel-ile-barkod-okuyucu-ve-stok-kayit-vba-programi.html)
RE: Excel İle Barkod Okuyucu Ve Stok Kayıt Vba Programı - feraz - 29/10/2020
(28/10/2020, 23:45)merttr07 yazdı: Örnek Bir Çalışma Buldum belki buradan bana yardımcı olabilirsiniz.Bu dosyayı kim hazıladıysa çok acemi yapmış ve hatalı yani döngü 2 den başlatnış normalde 1 denbaşlatması gerekiyordu.
(28/10/2020, 23:45)atoykan yazdı: Barkodlarınızın formatı belirli mi peki?Ramaksal ve metin sel barkodlar.
Örneğin ABC123456789 şeklinde mi veya özel karakterler kullanılıyor mu +, - , / gibi?
Yazayım istedim.
(29/10/2020, 00:55)merttr07 yazdı:Tamam ben bakarım.sheetschange koduna eklenir.sadece A1 demi olacak barkod No?(29/10/2020, 00:50)feraz yazdı:(29/10/2020, 00:46)merttr07 yazdı: Excel aldığımız barkod okuyucu kodunuBu hangi userfformdan yada listviewden geliyor.
Arkadaşın verdiği kodları butona aktardım ve denedim kodu a1 hücresine alıyor oradanda barkod koduna yazdıra bilirsek çok güzel olacak.
Re: Excel İle Barkod Okuyucu Ve Stok Kayıt Vba Programı - merttr07 - 29/10/2020
Yok barkod okuyucudan gelen her kod üzerine a1 ekleyerek eski bilgiler aşağı doğru gidiyor. A1 hücresi hep yeni konan barkod kodu oluyor diğerleri alt alta gidiyor. Aynı barkod kodunu bir kaç defa kaytedemek yerine aynı barko kodu üzerine güncelleme yapılmasını tercih ederim.
En üsteki hep en son alınan barkod kodu oluyor.
RE: Excel İle Barkod Okuyucu Ve Stok Kayıt Vba Programı - feraz - 29/10/2020
Sayfa1in kodu yerine alttaki kodu ekleyin.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
If Target.Value <> "" Then
If Len(Target.Value) = 12 Then
ürünkayýtform.TextBox1.Value = Target.Value
End If
End If
End If
End SubGif ekledim.
İsterseniz koddaki uzunluk 12 ise yada A1 boşsa gibi satırları silebilirsinizde.
RE: Excel İle Barkod Okuyucu Ve Stok Kayıt Vba Programı - feraz - 29/10/2020
Böylede olabilir.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
ürünkayýtform.TextBox1.Value = Target.Value
End If
End SubRE: Excel İle Barkod Okuyucu Ve Stok Kayıt Vba Programı - merttr07 - 29/10/2020
(29/10/2020, 01:23)feraz yazdı: Böylede olabilir.Aynı işlemi cıkısurunn userform nasıl yapa biliriz. Bu userformda olacak ayrıca özellik barkod kodunu okuduğu anda urunkayıtt listesinde bulunan bazı bilgileri otomatik doldurmasını istiyorum nasıl yapa bilirim.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
ürünkayýtform.TextBox1.Value = Target.Value
End If
End Sub
Resimde işaretli alanlar diğer alanları ambar sorumlusu dolduracak.
RE: Excel İle Barkod Okuyucu Ve Stok Kayıt Vba Programı - merttr07 - 29/10/2020
Yeni hata almaya başladım ambarcıkıs userform açılıyor ama veri girişi bastığımda hata alıyorum