Hucredeki veriye gore resim getirme hakkinda

[desk]

merhaba ekteki kodum sorunsuz olarak çalışıyor yapmak istediğim veriyi çağırdığımda
sütunlardan birinden gelen sayıya göre o sayıya uyan resmi yazdırmak.
Range("E61").Value = k.Offset(0, 9).Value (Bu satırı yazdırırken içindeki sayıyı değil sayıya uyan dosyanın yanındaki resmi bastırmak istiyorum)
teşekkürler.

Sub aktar_59()
Dim k As Range, sat As Long
Sheets("form").Select
Range("Z26").Value = ""
Range("L9,L10,L12,L13,L14,X9,X10,X11,X12,R20,R21,R22,R23,R24,R25,R26,R27,R28,R29,R30,R31,R32,R33,R34,R35,R36,R37,R38,R39,R40,R41,O48,S48,O50,S50,O52,S52,O54,S54,N57,P57,S57,N58,N59,B63,B66").ClearContents
sat = Sheets("veri").Cells(65536, "A").End(xlUp).Row
If Range("AD10").Value = "" Then Exit Sub
If sat < 2 Then Exit Sub
Set k = Sheets("veri").Range("A2:A" & sat).Find(Range("AD10").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
Range("X9").Value = k.Offset(0, 2).Value
Range("L12").Value = k.Offset(0, 3).Value
Range("L13").Value = k.Offset(0, 5).Value
Range("L14").Value = k.Offset(0, 6).Value
Range("L10").Value = k.Offset(0, 8).Value
Range("X10").Value = k.Offset(0, 10).Value
Range("X11").Value = k.Offset(0, 11).Value
Range("X12").Value = k.Offset(0, 12).Value
Range("R20").Value = k.Offset(0, 13).Value
Range("R21").Value = k.Offset(0, 14).Value
Range("R22").Value = k.Offset(0, 15).Value
Range("R23").Value = k.Offset(0, 16).Value
Range("R24").Value = k.Offset(0, 17).Value
Range("R25").Value = k.Offset(0, 18).Value
Range("R26").Value = k.Offset(0, 19).Value
Range("R27").Value = k.Offset(0, 20).Value
Range("R28").Value = k.Offset(0, 21).Value
Range("R30").Value = k.Offset(0, 22).Value
Range("R32").Value = k.Offset(0, 23).Value
Range("R33").Value = k.Offset(0, 24).Value
Range("R34").Value = k.Offset(0, 25).Value
Range("R35").Value = k.Offset(0, 26).Value
Range("R36").Value = k.Offset(0, 27).Value
Range("R37").Value = k.Offset(0, 28).Value
Range("R35").Value = k.Offset(0, 26).Value
Range("R36").Value = k.Offset(0, 27).Value
Range("R37").Value = k.Offset(0, 28).Value
Range("R38").Value = k.Offset(0, 29).Value
Range("R39").Value = k.Offset(0, 30).Value
Range("R40").Value = k.Offset(0, 31).Value
Range("O48").Value = k.Offset(0, 32).Value
Range("S48").Value = k.Offset(0, 33).Value
Range("O50").Value = k.Offset(0, 34).Value
Range("S50").Value = k.Offset(0, 35).Value
Range("O52").Value = k.Offset(0, 36).Value
Range("S52").Value = k.Offset(0, 37).Value
Range("O54").Value = k.Offset(0, 38).Value
Range("S54").Value = k.Offset(0, 39).Value
Range("N57").Value = k.Offset(0, 40).Value
Range("P57").Value = k.Offset(0, 41).Value
Range("S57").Value = k.Offset(0, 42).Value
Range("N58").Value = k.Offset(0, 43).Value
Range("N59").Value = k.Offset(0, 44).Value
Range("B66").Value = k.Offset(0, 45).Value

End If
End Sub

 

[desk]

Yardımcı olabilecek kimse yokmu.?