Sub resimi_getir()
Dim resim As Object, i As Long, yol As String, dosya As String
Sheets("ÖNSAYFA").Select
yol = ThisWorkbook.Path & "\RESİMLER"
For i = 5 To Cells(65536, "x").End(xlUp).Row
For Each resim In ActiveSheet.Shapes
Next
If Dir(yol & "\" & Cells(i, "x").Value & ".jpg") <> "" Then...