اريد المساعدة في هذا الكود

[2saad]

أخواني أعضاء المندي الكرام الذين تعلمت منهم الكثير والكثير بارك الله فيهم وجعله في ميزان حسناتهم

لو سمحتم عندي شيت به بيانات تلاميذ ونموذج 3شهادات  والكود يعمل جيدا

ولكني اريد ان ارفق بكل شهادة صورة للطالب بناء علي رقم الجلوس في الخلية  q9  ،  q26 ،   q43

فمحتاج كود لذلك 

وشكرا لكم جميعاشهادات صف ثالث.rar

[محمد هشام.]

1) لاحظت ان عدد الطلبة يفوق 200 طالب يستحيل انك تضيف كل صورة لوحدها 🤔🤔

اليك اخي الفاضل هدا الكود الدي سيمكنك من اضافة الصور دفعة واحدة  ومرتبة (قبل تشغيل الكود تاكد من وقوفك على الخلية المراد اضافة الصورة اليها)

2) وهدا رابط شرح طريقة اضافة الصور للملف :

https://streamable.com/ti3tnn

Sub InsertMultiplePictures_MH()
Dim Pictures() As Variant
Dim PictureFormat As String
Dim Rng As Range
Dim PicShape As Shape
On Error Resume Next
Pictures = Application.GetOpenFilename(PictureFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(Pictures) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(Pictures) To UBound(Pictures)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set PicShape = ActiveSheet.Shapes.AddPicture(Pictures(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

ولازالة الصور القديمة

Sub DeleteImage()
Dim pic As Picture
For Each pic In ActiveSheet.Pictures
    If Not Application.Intersect(pic.TopLeftCell, Range("D3:D300")) Is Nothing Then
        pic.Delete
    End If
Next pic
End Sub

تم اضافة الاكواد للملف المرفق

شهادات صف ثالث_M-H.rar

[2saad]

مش عارف اقول لحضرتك ايه 

بارك الله فيك وأكثر الله من أمثالك وجعله في ميزان حسناتك علي هذا المجهود الرائع وليس بغريب علي هذا المنتدي العريق

بس انا نفسي أعرف أزاي الصورة بتترحل الي الشهادة هل عن طريق معادلة ولا ايه؟

ولا حضرتك وضعت اطار ( shape ) في المكان اللي انا عايز تترحل اليه الصور في الشهادات ؟

عايز افهم لو تكرمت 

معلش انا بتعب حضرتك معاي

[محمد هشام.]

  

بعد تسمية النطاقات بخاصية 
(Name Manager)
تم وضع معادلة البحث التالية
=INDEX(Data!$C$3:$D$300;EQUIV('شهادة صف ثالث'!$K$47;Data!$C$3:$C$300;0);2)
اما بالنسبة للصورة لم يتم وضع اي اطار خاص بها يمكنك تغيير مكانها كيفما شئت

 

[2saad]

تمام بارك الله فيك علي المجهود الرائع