Klasörden Resim Çekme /Resimlerin Boyutlandırması

[ibere]

tesekkurler

 

[mustafakoker]

Merhaba Arkadaşlar;
Benzer bir sorunum var kodları siteden bulum kendime göre uyarlamaya çalıştım fakat bazı yerlerde hata alıyorum.
Userform1deki Listbox click olayında seçtiğim satırdaki bilgilerin textboxlara gelmesi ve image1 deki resimnin de değişmesi
2.sorum ise TXTARA texboxındaki Sipariş numarasını yazdığımda Listboxta araması ve clik lediğimde yine ilgili textboxlara bilgilerin gelmesi konusunda yardımcı olursanız sevinirim.
Not eğer aranan resim yok ise Resim yok .jpg image1e gelmesi de gerekiyor.

Private Sub TexARA_Change() 'Sipariş numarası ara

resimYol = ThisWorkbook.Path & "\Resimler\"
Resimler = Dir(resimYol & "*.*")
resim = 0
While Resimler <> ""
DoEvents
resimlerAd = Mid(Resimler, 1, Len(Resimler) - 4)
If resimlerAd = Me.TexARA.Text Then
Me.Image1.Picture = LoadPicture(resimYol & Resimler)
resim = 1
End If
Resimler = Dir
Wend
If resim = 0 Then Me.Image1.Picture = LoadPicture(resimYol & "RESİM YOK.jpg")

End Sub

konu hakkında yardımcı olabilecek müsait arkadaşlardan yardım bekliyorum teşekkürler