Listeleme Yapma

[aksoy53]

Barkod okut sayfasına "a1" hücresinde olacak

barkod okuttukça toplam kitaplar sayfasındaki barkodlu kitapları listele sayfasına aktaracak

yani okttuğum barkodı listele sayfaında sıralayacak

listele sayfasını çıktısını alabilmek için sıralanan liste kadar yazdır förmülü koyulabilirmi.

şimdiden teşekkür ederim yardımlarınız için.

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Dim s1 As Worksheet, s2 As Worksheet
Dim sonsat As Long
Set s1 = Sheets("TOPLAM KİTAPLAR")
Set s2 = Sheets("LİSTELE")
If s1.AutoFilterMode Then
    s1.AutoFilterMode = False
End If
s2.Range("A2:M" & Rows.Count).Clear
sonsat = s1.Cells(Rows.Count, "A").End(xlUp).Row
If Target.Value = "" Then Exit Sub
s1.Range("A1").AutoFilter field:=1, Criteria1:=Target.Value
s1.Range("A1:M" & sonsat).Offset(1, 0).Copy s2.Range("A2")
End Sub

 

[aksoy53]

Hocam ilgi alakanıza çok teşekkür ederim fakat her okuttuğum kitabı listele sayfasına eklemesi gerekiyor sadece okuttuğum kitabı ekliyor her okutmada eklemesi lazım

 

[Orion1]

dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Dim s1 As Worksheet, s2 As Worksheet
Dim sonsat As Long, sonsat2 As Long
Set s1 = Sheets("TOPLAM KİTAPLAR")
Set s2 = Sheets("LİSTELE")
If s1.AutoFilterMode Then
    s1.AutoFilterMode = False
End If
's2.Range("A2:M" & Rows.Count).Clear
sonsat = s1.Cells(Rows.Count, "A").End(xlUp).Row
sonsat2 = s2.Cells(Rows.Count, "A").End(xlUp).Row + 1
If Target.Value = "" Then Exit Sub
s1.Range("A1").AutoFilter field:=1, Criteria1:=Target.Value
s1.Range("A1:M" & sonsat).Offset(1, 0).Copy s2.Range("A" & sonsat2)
End Sub

 

[aksoy53]

Çok teşekkür ederim eline beynine sağlık

 

[Orion1]

Çok teşekkür ederim eline beynine sağlık

Rica ederim.
İyi çalışmalar.