اصلاح الخطأ فى الكود

[عمر الجزاوى]

يوجد خطأ فى هذا الكود ارجو  اصلاحه حتى يتم احضار الصورة الخاصة بالاسم

قواعد البيانات.rar

[ابراهيم الحداد]

السلام عليكم ورحمة الله

تم اصلاح الكود كما يلى

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$9" Then
Dim N As Variant
Dim f As String
Application.ScreenUpdating = False
N = Range("F9")
With N
On Error Resume Next
f = ThisWorkbook.Path & "\" & "الصور"
Sheets("ورقة1").Label1.Picture = LoadPicture(f & "\" & "noimage" & ".jpg")
Sheets("ورقة1").Label1.Picture = LoadPicture(f & "\" & Target & ".jpg")
End With
Call INDEXING
End If
Application.ScreenUpdating = True
End Sub

 

[عمر الجزاوى]

استاذ ابراهيم تحياتى لشخصكم الكريم والاورع هو مروركم العطر ومساعدتنا فى حل هذا المشكل