excelde nasıl numara karşılığına resim yolu çağırabilirim?

[djsuikast]

Merhaba arkadaşlar. Excelde herhangi bir sütünda alt altta gelen
sayıların karşılığna mesela Foto klasöründeki resimleri çağırmak istiyorum.
Örneğin excelde 1-2-3 diye alt alta devam eden sayılar var. Buna karşılık Foto klasöründe 1.jpg , 2.jpg , 3.jpg diye karşılığı olan resimler var.
Ben resimi değilde resim yolunu çağırmak istiyorum.

Mesela, Foto/1.jpeg olarak gelmesini istiyorum.

makro kodu varsa yazabilirseniz çok sevinirim.

 

[Asri]

Merhaba arkadaşlar. Excelde herhangi bir sütünda alt altta gelen
sayıların karşılığna mesela Foto klasöründeki resimleri çağırmak istiyorum.
Örneğin excelde 1-2-3 diye alt alta devam eden sayılar var. Buna karşılık Foto klasöründe 1.jpg , 2.jpg , 3.jpg diye karşılığı olan resimler var.
Ben resimi değilde resim yolunu çağırmak istiyorum.

Mesela, Foto/1.jpeg olarak gelmesini istiyorum.

makro kodu varsa yazabilirseniz çok sevinirim.

Aşağıdaki şekilde deneyiniz.

Sub Resim_Yol_Getir()
   sonsatir = Cells(Rows.Count, "A").End(3).Row
   yol = "C:\foto\"
   For i = 1 To sonsatir
     veri = Cells(i, "A").Value
     dosya = yol & veri & ".jpg"
     If dosyavarmi(dosya) Then
        Cells(i, "B").Value = dosya
     End If
   Next i
End Sub

Function dosyavarmi(dosya)
  Dim ds, a
  Set ds = CreateObject("Scripting.FileSystemObject")
  a = ds.FileExists(dosya)
  If a = True Then
    dosyavarmi = True
  Else
    dosyavarmi = False
  End If
End Function