Userform'a resim çekmek, kodların neresi eksik

[irfancantr]

Herkesin cümleten CUMHURİYET BAYRAMI kutlu olsun,

Geçmiş örnekleri incelerken film arşivi diye açılan konuda güzel bir çalışmayı kendime uyarladım, fakat diğer dosyada üzerinde hertürlü oynamayı yapmama rağmen resimleri getirebiliyorum, lakin kendi dosyama bir türlü uyarlayamadım,

ilgilenen herkese şimdiden teşekkürlerimi sunuyorum...

Private Sub ListBox1_Click()
Dim i As Byte, yol As String
If ListBox1.ListIndex = 0 Then Exit Sub
For i = 1 To 40
    Me.Controls("TextBox" & i).Value = ListBox1.Column(i - 1)
Next i
        Set ARA = Sheets("Genel Döküm").Range("B:B").Find(TextBox2)
If Not ARA Is Nothing Then
TextBox18.Text = Sheets("Genel Döküm").Cells(ARA.Row, "R").Value
If Sheets("Genel Döküm").Cells(ARA.Row, "S").Value = "" Then
yol = ThisWorkbook.Path
dosya = TextBox2.Text & ".jpg"
On Error Resume Next
Image1.Picture = LoadPicture("")
Image1.Picture = LoadPicture(yol & "\resim\" & dosya)
Else
On Error Resume Next
Image1.Picture = LoadPicture("")
Image1.Picture = LoadPicture(Sheets("Genel Döküm").Cells(ARA.Row, "S").Value)
End If
End If
End Sub

 

[hımmmmmmmm]

slm

senin kodları karışık buldum... ister burdan esinler ister bunu kopyala... çalışıyor... yalnız resim klasörü ve ismini doğru vermen gerek... resim dosya uzantısına dikkat...

Private Sub ListBox1_Click()
For i = 1 To 40
    Me.Controls("TextBox" & i).Value = ListBox1.Column(i - 1)
Next i
     On Error GoTo RESIMYOK
     SATIR = ListBox1.Value + 2
     KLASOR = Sheets("Genel Döküm").Cells(SATIR, "R").Value         'kLASÖR
     FOTO = Sheets("Genel Döküm").Cells(SATIR, "S").Value + ".JPG"  'FOTO
     
     
     Image1.Picture = LoadPicture(KLASOR + "\" + FOTO):
     Exit Sub
RESIMYOK: Image1.Picture = LoadPicture("")
End Sub

 

[irfancantr]

Çok teşekkür ederim, evet dediğiniz gibi kodları sadece uyarlamaya çalıştığım için epey karıştırmışımdır.

Elinize sağlık verdiğiniz kod ile devam edicem.

Aklıma geldi, bu "S" sütunuda resim yolunu arama yapıyor, ben bu yolu değiştirip sadece "S1" hücresi olarak sabit kılabilir miyim? Diğer araç resimlerinide hep aynı klasörde tutacağım için 1000 tane hücreye devamlı dosya yolunu yazmamak istiyorum.