ListBox taki isme tıklandığında imge1 resim çekme

[pamukcu]

Hayırlı pazarlar
Mevlid kandilinizi tebrik eder tüm insanlığa hayırlara vesile olması dileğim ile.
ListBox1 de bir isme tıkladığımda c de kayıtlı olan RESİM Dosyasındaki Resim altındaki isimle aynı olan resmi userform1 deki Image1 nasıl çağırabilirim ile ilgili kod hakkında yardımınızı bekliyorum.Formda çok güzel örnekler var fakat buna birtürlü uyarlayamadım

Private Sub ListBox1_Click()
On Error Resume Next
Sheets("veri").Select
Dim x As Integer
x = Sheets("veri").Range("B:B").Cells.Find(what:=ListBox1, LookIn:=xlValues).Row
ComboBox1.Value = ListBox1
ComboBox1 = Sheets("veri").Cells(x, 2)
Dim bak As Range
For Each bak In Range("B1:B" & WorksheetFunction.CountA(Range("B1:B65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
bak.Select
TextBox1.Value = ActiveCell.Offset(0, -1).Value
ComboBox3.Value = ActiveCell.Offset(0, 1).Value
TextBox1802.Value = ActiveCell.Offset(0, 2).Value
TextBox3.Value = ActiveCell.Offset(0, 3).Value
TextBox4.Value = ActiveCell.Offset(0, 4).Value
TextBox5.Value = ActiveCell.Offset(0, 5).Value
TextBox6.Value = ActiveCell.Offset(0, 6).Value
TextBox7.Value = ActiveCell.Offset(0, 7).Value
TextBox8.Value = ActiveCell.Offset(0, 8).Value
TextBox9.Value = ActiveCell.Offset(0, 9).Value
TextBox10.Value = ActiveCell.Offset(0, 10).Value
TextBox11.Value = ActiveCell.Offset(0, 11).Value
TextBox12.Value = ActiveCell.Offset(0, 12).Value
TextBox13.Value = ActiveCell.Offset(0, 13).Value
TextBox14.Value = ActiveCell.Offset(0, 14).Value
TextBox15.Value = ActiveCell.Offset(0, 15).Value
TextBox16.Value = ActiveCell.Offset(0, 16).Value
TextBox17.Value = ActiveCell.Offset(0, 17).Value
TextBox18.Value = ActiveCell.Offset(0, 18).Value
TextBox19.Value = ActiveCell.Offset(0, 19).Value
TextBox20.Value = ActiveCell.Offset(0, 20).Value
ComboBox33333.Value = ActiveCell.Offset(0, 21).Value
ComboBox4.Value = ActiveCell.Offset(0, 22).Value
TextBox21.Value = ActiveCell.Offset(0, 23).Value
TextBox23.Value = ActiveCell.Offset(0, 25).Value
TextBox24.Value = ActiveCell.Offset(0, 26).Value
Imge1.Value = ActiveCell.Offset(0, 24).Value
CommandButton5.Enabled = True
CommandButton94.Enabled = True
CommandButton62.Enabled = True
CommandButton1.Enabled = False
Exit Sub
End If
Next bak
CommandButton5.Enabled = True
CommandButton94.Enabled = True
CommandButton62.Enabled = True
CommandButton1.Enabled = False
ComboBox2.SetFocus

End Sub

 

[pamukcu]

cevap aramak için

Bu formun bir paylaşım, yardımlaşma ve çözüm amaçlı olduğunu düşünüyorum ..!
Halen bir cevap için ümitle bekliyorum

 

[pamukcu]

yok

Ne oldu ya zormu geldi çalışmadığınız bir yerdenmi sordum?

 

[security]

ListBox taki isme tıklandığında image1 resim çekme örnek

userformda resim çagırma ile ilgili örnek bir çalışma

Private Sub ListBox1_Click()
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & ListBox1.Value)
End Sub
Private Sub UserForm_Initialize()
Set s1 = CreateObject("Scripting.FileSystemObject")
For Each dosya In s1.GetFolder(ThisWorkbook.Path).Files
uzanti = s1.GetExtensionName(ThisWorkbook.Path & "/" & dosya.Name)
If uzanti = "jpg" Then ListBox1.AddItem dosya.Name
Next
End Sub

sayın pamukcu açmış oldunuz konu kilitlenmiş ama ben yinede merak eden arkadaşlar için paylaşıyorum.yazdıgınız kodlara gerek yok inceleyiniz kısa kodlada yapabilirsiniz.

not: rardan klasörü çıkarıp açınız.

 

[pamukcu]

Sayın security :
Cevap için teşekkürler.:hihoho:
Konuyu ben kilitledim moralim bozuldu:kafa: kaç gündür bi cevap alamdım,
Elbete sormadan önce arıyor uygulamaya çalışıyor ve yapamazsam yazıyorum.
Ben excell den hiç birşey anlamazken bu formdaki değerli hocalarım sayesinde bir yere kadar öğrenebildim, ben daha bu konularda emekliyor bile sayılmam.Onuda örnek kodları kopyala biraz çalışma kitabına göre uyarla tamam.Bana yardımcı olanlara çok teşekür ediyorum.
Bu form iyiki var diyorum.
Küçükte olsa olumlu olumsuz cevap insan bekliyor.
hayırlı geceler.:uyku: