Barkodla Kitap Listesi Oluşturmak

[aksoy53]

Kitabın adı sayfasındaki kitap listesini "Barkod Okut" sayfasındaki A1 hücresine okuttuğumda , Kitabın Adı , Yazarı, Fiyatı, Sorumlu Kişi vermesini istiyorum.

Yardımlarınızı bekliyor şimdiden teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

Sadece A1 hücresindemi kullanacaksınız yoksa
liste aşayıya doğru devam edecek mi.

. . .

 

[aksoy53]

Devam edecek Hüseyin bey Yani diyelim 10.000 kitap var içerisinden rast gele 150 kitabın barkodunu okuttunmu o liste bana lazım

 

[Emir Hüseyin Çoban]

. . .

BARKOD OKUT sayfasının kod bölümüne yapıştırın.
A2:A500 aralığına barkod girince çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim S1 As Worksheet: Set S1 = Sheets("KİTABIN ADI")
    
    If Intersect(Target, [A2:A500]) Is Nothing Then Exit Sub
    
    If WorksheetFunction.CountIf(S1.Range("A:A"), Target.Value) = 0 Then
        Target.Offset(0, 0).Select
        MsgBox "Listede Yok...", vbCritical
        Exit Sub
    End If
    
    For i = 2 To S1.Cells(Rows.Count, "A").End(3).Row
        If Target.Value = S1.Cells(i, "A") Then
            Target.Offset(0, 1) = S1.Cells(i, "B")
            Target.Offset(0, 2) = S1.Cells(i, "C")
            Target.Offset(0, 3) = S1.Cells(i, "D")
            Target.Offset(0, 4) = S1.Cells(i, "E")
            Exit For
        End If
    Next i

End Sub

. . .

 

[aksoy53]

Çok teşekkür ederim emeğinize sağlık iyiki varsınız.