Soru Makroların otomatik çalışması hakkında yardım

[savsur]

ekte eklemiş olduğum dosya hakkında yardım edermisiniz dosyada a hücresine yazdığımda ve enter tuşuna bastığımda makro devreye giriyor barkoda çevrilecek verileri başka bir sayfadan kopyala yapıştır yaptığım için makro çalışmıyor ben a sutununa verileri yapıştırdığımda b sutunundaki makronun çalışmasını istiyorum yardım ederseniz çok sevinirim yukarıda yazılı kodu yaptım ama olmadı

 

[Korhan Ayhan]

Kullandığınız sayfa kodunu aşağıdaki ile değiştirip deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Resim As Picture, Alan As Range, Veri As Range
   
    Set Alan = Intersect(Target.Offset(, 1), Range("B:B"))
   
    For Each Resim In ActiveSheet.Pictures
        If Not Intersect(Resim.TopLeftCell, Alan) Is Nothing Then
            Resim.Delete
        End If
    Next
   
    Set Alan = Nothing
    
    On Error Resume Next
    
    For Each Veri In Intersect(Target, Range("A1:A" & Cells(Rows.Count, 1).End(3).Row))
        If Veri <> "" Then
            l = 105.75
            t = 15.75 + Veri.Next.Top
            w = 102
            h = 75
            Set Resim = ActiveSheet.Shapes.AddPicture("https://barcode.tec-it.com/barcode.ashx?data=" & Veri & _
            "&code=&multiplebarcodes=false&translate-esc=false&unit=Fit&dpi=96&imagetype=Gif&rotation=0&color=%23000000&bgcolor=%23ffffff&qunit=Mm&quiet=0&download=true", msoFalse, msoTrue, l, t, w, h)
            Resim.Name = Veri.Row
        End If
    Next

    Set Resim = Nothing
End Sub