sabry fahmy قام بنشر أغسطس 18, 2020 مشاركة قام بنشر أغسطس 18, 2020 هذا ملف عمل فية نموزج طباعة وشيت بينات المطلوب كود استدعاء البينات من الشيت 1 الي النموزج الموجود في الشيت 2 وتم اقتباس كود من احد الاخوة من ملف مشابه ولكن للاسف لا يعمل 252523333.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر أغسطس 18, 2020 أفضل إجابة مشاركة قام بنشر أغسطس 18, 2020 الكود الصحيح 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 1 رابط هذا التعليق شارك More sharing options...
sabry fahmy قام بنشر أغسطس 19, 2020 الكاتب مشاركة قام بنشر أغسطس 19, 2020 استاذ سليم حاصبيا شكرا جزيلا لحضرتك دائما متعاون ودائما لا تخزل احدا بارك الله فيك وذادك الله علما رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.