Hücre içindeki kelimeleri içeren dosyaya hiperlink vermek

[ermanusta]

M:M Stünunda belirsiz aralıklarla (mesela M15 hücresinde "Kat 2" yazıyorken M16...M19 hücrelerinde bir formül ve M20 Hücresinde "Avrupa" gibi) belirsiz metinler yazılıyor.

bu anlamda bakınca formülün uygulanacağı hücreler sadece belirsiz "metin" içeren N:N Stünundaki hücreler,

Makro da yapmak istediğim örneğin hücre içerisinde ki metinde "Kartal" metni içeriyorsa
adının içerisinde "Kartal" olan .jpeg dosyasını açsın

Bu Jpeg dosyası ise;


veya kat 5 geçiyorsa kat 5 adına sahip resme hiperlink olması gerek.


Sub Resim()

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"Muhasebe\06 Haziran 2018\Müşteriler\Siparişler\Metal Yapı\Kat 8 - Kat 7 - Kat -2.jpeg" _
, TextToDisplay:="Metal Yapı Kat 8"
Selection.Style = "Uyarı Metni"
End Sub

 

[tahsinanarat]

Sub kopru_kur_excel()
Dizin = "D:\Excel\rapor"
Kitap = Dir(Dizin & Application.PathSeparator & _
"*.jpeg", vbDirectory)
Do While Kitap <> ""
If Kitap = ThisWorkbook.Name Then GoTo ResumeSub:
i = i + 1
Cells(i, 1) = Kitap
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), _
Address:=Dizin & Application.PathSeparator & Kitap
ResumeSub:
Kitap = Dir
Loop
End Sub