barkod doğrulama dosyası yapımı

[bafralifatih55]

arkadaşlar herkese hayırlı sabahlar
kitapların üzerine yapıştırdığımız barkodların doğru kitaba yapıştırılıp yapıştırılmadığını test etmek için bir dosya yapmak istiyorum. vba kousunda iyi değilim. dosya şu şekilde olacak:
sayfa1!a1 hücresine barkod okutulacak. sayfa1!b2 hücresine ise a1 hücresindeki barkoda göre sayfa2!b:b sütunundaki eser adı ile sayfa2!c:c sütunundaki yazar bilgisi hücre içinde alt alta görünecek.
bu konuda bana yardımcı olabilir misiniz?
teşekkürler.

 

[Asri]

Sayfa1 de B2 ye aşağıdaki formülü ekleyin.
B2 için Giriş tabındaki Kaydır özelliğini seçin.

İngilizce

=VLOOKUP(A1;Sayfa2!A:C;2;0) & CHAR(10) & VLOOKUP(A1;Sayfa2!A:C;3;0)

Türkçe de formüllerdeki ; yerine , olmalı deneyiniz.

=DÜŞEYARA(A1,Sayfa2!A:C,2,0) & DAMGA(10) & DÜŞEYARA(A1,Sayfa2!A:C,3,0)

 

[bafralifatih55]

merhaba
hocam makro ile olsa güzel olur.
eklemek istediğim şöyle bişey var. a1'e barkodu girdiğimizde b1'de sonuç görüntülenecek. akabinden makro a1'i seçili hale getirmesi gerekiyorki yini okma yapıldığında cihazdan gelen sayılar yenisiyle değişsin.
teşekkürler.

 

[EmrExcel16]

Bu şekilde deneyiniz , sayfanın kod bölümüne yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    Dim bul
    Set S2 = Sheets("Sayfa2")
    Application.EnableEvents = False
    Set bul = S2.Range("A1:C100000").Find(Target, , xlValues, xlWhole)
    If Not bul Is Nothing Then
        Cells(Target.Row, 2) = S2.Cells(bul.Row, 2) & Chr(10) & S2.Cells(bul.Row, 3)
    End If
    Target.Select
    Application.EnableEvents = True
End Sub

 

[bafralifatih55]

merhaba
hocam öncelikle teşekkür eederim. makroyu modüle kopyaladım. sayfa2'ye de verileri koydum. sayfa1!a1,a2,a3 sırasıyla denedim. ancak sonuç alamadım. makroyu çalıştıramadım.

 

[EmrExcel16]

merhaba
hocam öncelikle teşekkür eederim. makroyu modüle kopyaladım. sayfa2'ye de verileri koydum. sayfa1!a1,a2,a3 sırasıyla denedim. ancak sonuç alamadım. makroyu çalıştıramadım.

Merhaba , Modüle değil Sayfa1 'in kod bölümüne yapıştırın.

 

[bafralifatih55]

merhaba
bhocam çok teşekkür ederim. tam istediğim gibi olmuş.

 

[EmrExcel16]

merhaba
bhocam çok teşekkür ederim. tam istediğim gibi olmuş.

Rica ederim , iyi çalışmalar.