• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Barkodla Sayım

Katılım
21 Kasım 2007
Mesajlar
111
Excel Vers. ve Dili
windows 10
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.
 

Ekli dosyalar

. . .

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

. . .
 
. . .

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

Kod:
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

. . .
 
Çok teşekkür ederim allah razı olsun
 
Geri
Üst