Barkodla Sayım

[aksoy53]

Yardımınıza ihtiyacim var ekteki dosyadaki "Kitabın Adı" bölümünde olan A-B-C-D-E-F-G-H-I Sütünundaki verileri "BARKOD OKUT" sütündaki barkod bölümünde okuttugumda kitabın adı sayfasından silecek barkod okut sayfasına aktaracak

Barkodu okutma yeri barkod okut bölümündeki "barkod" yeridir.

yani okuttukça "kitabın adı" sayfasıbdan silecek "barkod okut" sayfasına aktaracak .

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

 

[aksoy53]

Yardım yapacak yokmu

 

[Emir Hüseyin Çoban]

. . .

KİTABIN ADI sayfasında aynı barkod 2 kez geçiyor olabilir mi.

. . .

 

[aksoy53]

Hayır tek barkod olarak geçiyor 2 kez olamaz

 

[Emir Hüseyin Çoban]

. . .

BARKOD OKUT sayfasının kod bölümüne yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SK As Worksheet: Set SK = Sheets("KİTABIN ADI")
    
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False: Application.EnableEvents = False
    
    For i = 1 To SK.Cells(Rows.Count, "A").End(3).Row
        If Target.Value = SK.Cells(i, "A") Then
            SK.Range("A" & i & ":I" & i).Copy Cells(Target.Row, "A")
            SK.Rows(i).Delete
            Exit For
        End If
    Next i
    
    Application.ScreenUpdating = True: Application.EnableEvents = True
End Sub

. . .

 

[aksoy53]

Çok teşekkür ederim allah razı olsun