VLOOKUP For Pictures

I am creating a worksheet that will have a list of items in column D staring at D05 and then D10, D15, D20 etc.

In column J, I would like to paste a picture related to the item name in column D.

So if D10 says carol, J10 would have carol's picture.

All pictures will be loaded in sheet1. VLOOKUP table will be created on sheet2.

I am using the example found on this forum and it works fine.

However in my case, some times the pictures would have to be pasted more than once.

So if D10 and D25 have same name, I would like to have the same picture in two places.

Any idea on how to modify the code to do that?

I am attaching a sample workbook with the code.

Thanks,
modytrane

You would need to create additional images in order to have multiple occurances.

Here is a non vba solution.

Here is how I would do it.

Firstly the code is now against the Change event rather than calculate.
It creates a copy of the require picture on the active sheet. The original pictures are on Sheet2.
It names the newly copied shape in reference to the changed cell. Deleting the shape before create a copy of the next person selected.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim shpTemp As Shape
    Const PREFIX = "PIC_"
    
    If Target.Cells.Count > 1 Then Exit Sub
    
    If Not Intersect(Range("D5,D10,D15,D20,D25"), Target) Is Nothing Then
        
        On Error Resume Next
        ' check and remove existing picture
        Set shpTemp = ActiveSheet.Shapes(PREFIX & Target.Address)
        If Not shpTemp Is Nothing Then shpTemp.Delete
        
        Sheet2.Shapes(Target.Offset(, 6).Value).Copy
        ActiveSheet.Paste
        Set shpTemp = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
        With shpTemp
            .Name = PREFIX & Target.Address
            .Left = Target.Offset(, 6).Left
            .Top = Target.Top
        End With
        ActiveCell.Select
    End If
    
End Sub

fourwhls,

Your post does not comply with Rule 2 of our Forum RULES. Don't post a question in the thread of another member -- start your own thread. If you feel it's particularly relevant, provide a link to the other thread.

VBA Noob