Makro ile Fotoğraf açmak

[fealdown]

merhabalar,

aşağıdaki listede a sutununda mağaza kodları var ve fotosel kapı adında ki klasörümde mağaza kodları adında (örneğin; 3035.jpg) fotoğraflarım var. Fotoğraflar sutunundaki her bir hücredeki butona basıldığında o satırdaki mağaza kodu adındaki ftoğrafın açılmsını istiyorum.
Her satır için ayrı ayrı makro yazmaktan daha kolay bir yöntem var mı ?

 

[halit3]

Sayfanın kod bölümüne bu kodu yapıştır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
klasor = ThisWorkbook.Path & "\"
dosya = klasor & "Resimler\" & Cells(Target.Row, 1).Value & ".jpg"
MsgBox dosya
If dosya <> "" Then
CreateObject("Shell.Application").Open (dosya)
End If
Cancel = True
End Sub

Uygulama şöyle olmalı dosyanın hemen yanında Resimler klasörü olmalı ve resimlerde bu klasörün içinde olmalı
diğer taraftan resimlerin uzuntısı jpg olmalı ve A sutündaki değerlerle resim adı olmalı
ilgili hücreye hızlıcı çift tıklayınca kod a sutünundaki isim ile aynı olan resimler klasörün içindeki dosyayı açmakta

 

[fealdown]

çok sağolun halit bey

 

[halit3]

Teşekkürler iyi çalışmalar