Kitap Sayımı Barkodla Yapmak

[aksoy53]

Barkodla sayım yapmak istediğimde var olan kayıtlarda barkod numarası silmesi ve yada üzerine gitmesi gerekir yani barkodları okuttukça geriye okutmadığımı nasil tespit edebilirim.
Yardımcı olursanız çok makbule geçer.

NOT : 8067'DEN SONRA BARKOD 12 KARAKTER OLMAKTADIR.

Lütfen yardımlarınızı beklıyorum yardımınız sadece bana değil bir çok ülkemizdeki kütüphaelerimiz yararlı olacaktır. Ayrıca kitap sayısı 50 bin 60 bin tane olabilir.

 

[Emir Hüseyin Çoban]

. . .

50-60 bin satır civarı veriniz varsa tabloyu xlsm olarak kullanmanızı tavsiye ederim.

Tabloda sadece listeniz var. Barkod nerede okutulacak. Listede aynı barkod nolar tekrar ediyor mu yani birden fazla olabilir mi.

. . .

 

[aksoy53]

. . .

50-60 bin satır civarı veriniz varsa tabloyu xlsm olarak kullanmanızı tavsiye ederim.

Tabloda sadece listeniz var. Barkod nerede okutulacak. Listede aynı barkod nolar tekrar ediyor mu yani birden fazla olabilir mi.

. . .

cevap verdiğinizden teşekkür ederim.

Barkod nerde okyulacak bilemiyorum bir barkod okuma paneli yapılabilirmi listede ayni barkod nolar yok yani bir barkoddan bir tane var diyelimki 50 bin kitap listem var okuttukça okutmadığım listede bende okutmadığım ne kadar kaldığını bulmam gerekiyor.

 

[NBATMAN]

Merhaba,


istediğiniz yapılabilir. Fakat bir sorum olacak;

Siz burada klasik bir sayım (stok kontrol) işlemi yapmayıp, kitap kütüphanede var mı? yok mu? kontrolü yapmak istiyorsunuz doğru mu?
Yani barkodu okuttunuz, ardından bu barkoda ait kitapdan kaç adet varsa örneğin 10 adet gibi siz bunu ayrıca bir yere girmeden sadece ilgili barkodda ki kitap listede varmı? yok mu? kontrol edip barkod okutma işlemi sonucunda listeniz ile okunanlar arasında eşleşmeyen yani bulunamayan kitapları tespit etmek istiyorsunuz doğru mudur?

 

[aksoy53]

Aynen hocam dediğiniz gibi olacak
çok makbüle geçer.

 

[Emir Hüseyin Çoban]

. . .

A sütunundaki barkod nolarında neden boşluk var.

Örneğin A2 hücresinde barkod no 1 ancak hücrede 27 karakter boşluk var.

. . .

 

[aksoy53]

Hocam 12 karakterli barkod olarak düzenledim böyle olabilir.

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

Barkodu bulduğunda sormadan silmesini istiyorsanız, kodlarda yeşil ile belirttiğim satırları silin.

Private Sub TextBox1_Change()
    If TextBox1.Text = "" Then Exit Sub
    Set ara = Range("A:A").Find("*" & " " & TextBox1 & " " & "*", , xlValues, xlWhole)
    If Not ara Is Nothing Then
        [COLOR="Green"]sor = MsgBox(TextBox1.Text & Chr(10) & "Bulundu Silinsin mi ?", vbYesNo)
        If sor = vbNo Then Exit Sub[/COLOR]
        Cells(ara.Row, "A").Select
        Rows(ara.Row).Delete
    Else
        MsgBox "Listede Yok", vbCritical
    End If
    TextBox1.SetFocus
End Sub

Ekran Görüntüsü (GİF)

. . .

 

[aksoy53]

Ustat çok güzel oldu tam istediğim gibi eline emeğine sağlık. Allah razı olsun
Barkod okut kaç hücreyi kapsamaktadır. yani 50 bin tane yazsam okutabilirmiyim

 

[Emir Hüseyin Çoban]

A sütununda arama yapar.

.

 

[aksoy53]

Hüseyin Bey emeğine sağlık fakat bir sorun var barkod okuttuğumda sadece tek rakamını alıyor yani örnek olarak 132500008060'i okuttuğumda sadece 1 rakamını yazdırıyor bunu normal barkodlardada denedim ayni yani kitabın arkasındaki kendi barkodunuda A sütününa yazdığımımda bile okuttuğumda yine barkodun ilk tek rakamını alıyor böylece barkodun tamamını okutamıyorum barkod okuyucumda bir sıkıntı olduğunu sanmıyorum çünkü otomasyon sisteminde yada herhangi bir office programında okumasınıda bir sıkıntı yoktur bunun giderilebilirliği olamazmı birde barkodu okttummu işlem sona erdimi barkod okutma yerinden barkod kendiliğinden yok olamazmı şimdiden teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

Şuanda barkod okuyucum olmadığı için deneme şansım yok.
Pazartesi günü iş yerine gittiğimde deneyeceğim.

. . .

 

[aksoy53]

Hüseyin bey bakamdınız herhalde müsait olduğunuzda bakabilirmisiniz. Yeşil renkli olarak belirttiğin kodu sildim ve artık sormuyor.
Barkodu okttuğum zaman hemen siliyor ama barkod kutucuğunda barkod numarası kalıyor yani her okuttuğumda hem silsin hemde barkod kutucuğundak yok olsun böyl bir imkan olabilirmi.
Şimdiden teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

Unuttum, kusura bakmayın.

Eski barkodu temizlemek için TextBox1.SetFocus satırından önce TextBox1=empty satırını ilave edin.

. . .

 

[aksoy53]

Dediğinizi yaptım fakat olmuyor yani o zaman barkodda hiç yazdırmıyor.

 

[Emir Hüseyin Çoban]

Userform üzerinde çok sıkıntı oluyor.
Arama işlemini sayfa üzerine alacağım.

.

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Dim SK As Worksheet
    Set SK = Sheets("katalog")
    
    If Target.Address(0, 0) <> "B1" Then Exit Sub
    If Target.Value = "" Then Exit Sub
    
    Set ara = SK.Range("A:A").Find(" " & Target.Value & " ", , xlValues, xlPart)
    If Not ara Is Nothing Then
        Range("A3") = SK.Cells(ara.Row, "A")
        Range("B3") = SK.Cells(ara.Row, "B")
        sor = MsgBox(Target.Value & Chr(10) & _
        "Bulundu Silinsin mi ?" & Chr(10) & _
        "Adres: " & ara.Address(0, 0), vbYesNo)
        If sor = vbNo Then
        Else
        SK.Rows(ara.Row).Delete
        End If
    Else
        MsgBox "Listede Yok", vbCritical
    End If
    Range("B1,A3:B3") = ""
    Target.Offset(0, 0).Select
    
    Application.EnableEvents = True
End Sub

. . .

 

[aksoy53]

Hüseyin bey çok güzel oldu emeğine klavyene sağlık çok teşekkür ederim.

 

[aksoy53]

Hüseyin bey normalde bir sıkıntı yok fakat şöyle bir durum var diyelimki kitap barkodlarını değiştirdim yani 12 karakterli değilde 10 karakterli yazdım yada 1 karakterli o zaman okumuyor birde katalog sayfasında barkodların dürüş şekli ortada gibi yani hücrede A2'de sagda veya solda değil sağda ve solda oldumu listede yok diyor bu neden olabilir hücrelerdeki barkodu okuması yani bulması için isteğe göremi olması gerekir yada bizden kaynaklanan bir hatamı var size zahmet olmazsa ekli dosyada herhangi bir barkodun üzerine tıklayın ve förmül çubugunda epeyce sağa dodru kaymış gözüküyor bu sola doğru tam oldumu yada sağa o zaman bulunamadı diyor bu konuda yardımcı olursanız memnun kalırız.

 

[Emir Hüseyin Çoban]

. . .

Barkod listenizde barkod noların başında ve sonunda boşluklar var.
Barkod karakter sayısını 12-10 diye sabit bir rakam olmasına gerek yok.
Herhangi bir rakam dizilişi olabilir.

Ben barkodlarınızda boşluklar olduğu için ona göre kodlama yaptım.

. . .