طلب مساعدة في سبب عدم عمل الكود

[sabry fahmy]

هذا ملف عمل فية نموزج طباعة وشيت بينات المطلوب كود استدعاء البينات من الشيت 1 الي النموزج الموجود في الشيت 2 وتم اقتباس كود من احد الاخوة من ملف مشابه ولكن للاسف لا يعمل 

252523333.xlsm

[سليم حاصبيا]

الكود الصحيح

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("L1")) Is Nothing Then
      Application.EnableEvents = False
      Dim code As Integer
      Dim LB As Object
      Dim myrow As Range
      Dim m
      
      code = Me.Range("l1").Value
      Set myrow = Sheets("ورقة1").Range("A:A").Find(what:=code, _
      LookIn:=xlValues, lookat:=xlWhole)
      m = 1
      
      If Not myrow Is Nothing Then
          For Each LB In ActiveSheet.OLEObjects
              If TypeName(LB.Object) = "Label" Then
                LB.Object.Caption = _
                myrow.Offset(, m).Value
                m = m + 1
              End If
          Next
      Else
          MsgBox " not found!"
      End If
End If
Application.EnableEvents = True

End Sub

الملف مرفق

 

Copy of Sabry.xlsm

[sabry fahmy]

استاذ سليم حاصبيا شكرا جزيلا لحضرتك دائما متعاون ودائما لا تخزل احدا بارك الله فيك وذادك الله علما