Sütun / Satır Değerlerine Göre Resim Çağırma

[cevatyildiz]

Merhaba,

Ekteki örnekte gördüğünüz üzere C + D + E sütunlarındaki alanların isimlerini birleştirip örn. D sürücüsünde zaten aynı isimle kaydetmiş olduğum resim dosyalarını açtırmak istiyorum. Örnekte sadece 3 satır örnek var benim listem biraz daha uzun

Bunu yaparken her bir "Sonuç" alanı için dosya isimlendirmesine ek olarak -1 , -2 , -3, -4, -5 sayılarını da eklememiz gerekiyor. Örneği ekte verdim.

Yardımcı olabilirseniz memnun olurum.

 

[cevatyildiz]

Bu konuda yardımlarınızı rica ediyorum arkadaslar

 

[cevatyildiz]

Yardımcı olabilir misiniz?

 

[halit3]

Uygulama hücreye tıklayınca eğer ilgili kriterde dosya varsa açıyor.

Kod:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [k2:k1000,p2:p1000,u2:u1000,z2:z1000,ae2:ae1000]) Is Nothing Then Exit Sub

If Cells(Target.Row, Target.Column).Value = "" Then Exit Sub

ReDim sat(5)
sat(1) = 11
sat(2) = 16
sat(3) = 21
sat(4) = 26
sat(5) = 31
say = 0
For i = 1 To 5
If sat(i) = Target.Column Then
say = i
Exit For
End If
Next

Klasör = ThisWorkbook.Path & "\Resimler\"
dosyaadi = Cells(Target.Row, "b").Value & "-" & Cells(Target.Row, "c").Value & "-" & Cells(Target.Row, "d").Value & "-" & say & ".jpg"

If CreateObject("Scripting.FileSystemObject").FileExists(Klasör & dosyaadi) = True Then
CreateObject("Shell.Application").Open (Klasör & dosyaadi)
End If

End Sub

Not Dosyanızın yanında hemen Resimler klasörü olmalı resimlerde bunun içinde olmalı

 

[cevatyildiz]

Cok teşekkürler Halit Bey

 

[halit3]

Cok teşekkürler Halit Bey

Teşekkürler iyi çalışmalar