Kitap Sayımı Barkodla Yapmak

[aksoy53]

Boşluksuz kodlama yapabilirmisiniz ricamiz olursa bundan çok kütüphane yararlanacak ve sizin ve sitenizin önemini zaten arz ettim bizim bakanlık toplu meilinde.

 

[Emir Hüseyin Çoban]

. . .

İlgili satırı şu şekilde değiştirerek deneyiniz.
Bu şekilde tam eşleşme arayacaktır.

Set ara = SK.Range("A:A").Find([COLOR="blue"]Target.Value[/COLOR], , xlValues, [COLOR="Blue"]xlwhole[/COLOR])

. . .

 

[aksoy53]

Çok teşekkürler çok makbule geçti. Oldu.

 

[aksoy53]

Sayım yapmak için çok mükemmel olmuş Yardımlarından dolayi Hüseyin ÇOBAN'a sonsuz teşekkür ederiz. Bir eklenti yapılabilirmi yardımcı olursanız memnun oluruz. en son eklenen dosyada "OKUTULAN KİTAP SAYISI" ve "KALAN KİTAP SAYISI"ni verecek förmül uygulanabilirmi şimdiden yardımlarınız için teşekkür ederiz.

 

[Emir Hüseyin Çoban]

. . .

Her yeni sayım başlangıcında A9 hücresindeki değeri silerseniz üzerine +1 yaparak devam eder.

Okutulan kitap sayısı için kodlar:

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, xlWhole)
    If Not ara Is Nothing Then
        Range("A3") = SK.Cells(ara.Row, "A")
        Range("B3") = SK.Cells(ara.Row, "B")
        
        'If sor = vbNo Then
        'Else
            SK.Rows(ara.Row).Delete
   [COLOR="Blue"]         Range("A9") = Range("A9") + 1[/COLOR]
        'End If
    Else
        MsgBox "Listede Yok", vbCritical
    End If
    Range("B1,A3:B3") = ""
    Target.Offset(0, 0).Select
    
    Application.EnableEvents = True
End Sub

Kalan kitap sayısı için formül:

=BAĞ_DEĞ_DOLU_SAY(katalog!A:A)

. . .

 

[aksoy53]

Teşekkürler çok makbüle geçti.

 

[aksoy53]

İmleçin aktif Olması

Ekli dosyada Borkod okut sayfasındak "B1" Hücresinde imleç devamli aktif olabilirmi bu konuda yardım istiyorum şimdiden teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

İmlecin aktif olması kısmını biraz daha açabilir misiniz.

Sürekli B1 hücresimi seçili olacak yoksa hücrede F2 tuşuna basılmış gibi imleç yanıp sönecek mi.

Şuanda zaten her işlemden sonra B1 hücresini seçiyor.

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

. . .

 

[aksoy53]

Bazen maus diğer hücrede olduğundan devamlı B1 hücresinde aktif olma imkanı olamzmı yanlışlıkla bazen başka hücrede olabilirliği göz önüne alarak bunu yapmak istiyorum. Şimdiden teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

Çalışma sayfasının kod bölümüne yapıştırın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("B1").Select
End Sub

. . .

 

[aksoy53]

Teşekkürler

 

[erdemm24]

merhaba program çok güzel. B1 hücresine barkod cihazı ile okuttuğumda 13 hane olarak okuyor.. Kitap listemde barkodlar 12 haneli bunu düzeltmenin bir imkanı var mı?