Find the image with the name condition and bring it to the worksheet

[sofas]

Hello. Please help with a code that enables me to fetch a specific image from the same workbook path and type its name in cell B2. Because I have more than 100 images in jpg and jpeg format I want to search for the image provided the name and bring it to the worksheet

 

[dermie_72]

So you want to add an image name into B2 then search the same folder for that image and then??? You want to import it to a specific location does it need to be resized at all. If you have over 100 images to find would it be better to have a list of images and them import them via a loop rather than one at a time?

 

[sofas]

So you want to add an image name into B2 then search the same folder for that image and then??? You want to import it to a specific location does it need to be resized at all. If you have over 100 images to find would it be better to have a list of images and them import them via a loop rather than one at a time?

Thank you for your interest. I will try to explain more. I have a database of employees I search for employee data by formulas and fetch it to another sheet what I am trying to do is fetch the employee image from outside the workbook whose name matches cell b2

Something like this

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("a2")) Is Nothing Then
 Call Find_Value
    Patch = ThisWorkbook.Path
  
 
    Me.Image1.Picture = LoadPicture(Patch & "\" & Range("b2") & ("(*.gif; *.jpg; *.bmp; *.tif; *.jpeg; *.png), *.gif; *.jpg; *.bmp; *.tif; *.jpeg; *.png"))
  
    Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
    Me.Image1.Left = [L6].Left
    Me.Image1.Top = [L6].Top

 End If
End Sub

 

[dermie_72]

See if this works for you.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Patch As String, Filefound As Boolean, Strfile As String, Imgfile As String

If Not Intersect(Target, Range("a2")) Is Nothing Then
    Patch = ThisWorkbook.Path
    Filefound = False
    Strfile = Dir(Patch & "\" & Range("B2").Value & ".*")
    Do While Len(Strfile) > 0
        If Len(Strfile) <> 0 Then
            Filefound = True
            Imgfile = Strfile
            Exit Do
            Else
        End If
    Loop
    If Filefound = True Then
        ActiveSheet.Pictures.Insert(Patch & "\" & Imgfile).Select
        Else
        MsgBox ("File not found")
    End If
End If
End Sub

I could also see in your code you placed the extension twice with a bracket in the middle. That may have been causing some issues.
("(*.gif; *.jpg; *.bmp; *.tif; *.jpeg; *.png), *.gif; *.jpg; *.bmp; *.tif; *.jpeg; *.png"))

 

[sofas]

See if this works for you.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Patch As String, Filefound As Boolean, Strfile As String, Imgfile As String

If Not Intersect(Target, Range("a2")) Is Nothing Then
    Patch = ThisWorkbook.Path
    Filefound = False
    Strfile = Dir(Patch & "\" & Range("B2").Value & ".*")
    Do While Len(Strfile) > 0
        If Len(Strfile) <> 0 Then
            Filefound = True
            Imgfile = Strfile
            Exit Do
            Else
        End If
    Loop
    If Filefound = True Then
        ActiveSheet.Pictures.Insert(Patch & "\" & Imgfile).Select
        Else
        MsgBox ("File not found")
    End If
End If
End Sub

I could also see in your code you placed the extension twice with a bracket in the middle. That may have been causing some issues.
("(*.gif; *.jpg; *.bmp; *.tif; *.jpeg; *.png), *.gif; *.jpg; *.bmp; *.tif; *.jpeg; *.png"))

Thank you. Your code succeeded in implementing what was required, with some simple modifications to try to standardize the size of the images after importing them and placing them inside a frame.
Thank you very much. I appreciate your help