userform calısmamda eksık kalan detaylar

[EMRAHSPN]

gunaydın ıyı bayramlar
eklı dosyamda bır userform uygulaması yapmaya calıstım
excel dosyamdakı urunlerı bulmak kaydetmek ve sılmek ıcın bır userform, bul kısmında buyuk sıkıntı var
ve eklenmesı gereken fotograflarla ılgılı detay var
eksık kalan ve yanlıs gıden bazı seyler oldugu cok acık bunları duzeltmeme
yardımcı olabılırmısınız

 

[EMRAHSPN]

Yardımcı olabilirmisiniz

 

[EMRAHSPN]

arkadaslar bul komutunu falan cozdum suan userform sorunsuz calısıyor fakat tek bır ıstegım rıcam var
bul butonuna basıldıgı zaman urunun fotografıda gozuksun
yardımcı olurmusunuz yenı dosya ekte tesekkurler

 

[byfika]

Merhabalar,
Excel kitabınızın olduğu yere bir tane ÜRÜNLER klasörü açın ( klasör adı büyük harf ve türkçe karakter olmalı) ve resimleri ÜRÜNLER klasörünün içine atın. Ayrıca klasörde RESİM YOK isimli resim olmalı (ekteki resim gibi) ve alttaki kodları Userformun içine kaydedin. Dikkat etmeniz gereken resimlerdeki resim ismi ile excel kitaptaki isim aynı olacak.( Eğer harf kullanırsanız excelde büyük harfse resim isminde de büyük harf olacak). TextBox9 a İMPA KODU girdiğinizde resim userforma gelecektir. Eğer o kodda ait resim yoksa RESİM YOK resmi gelecektir...
iyi çalışmalar....

Private Sub TextBox9_Change()
resimYol = ThisWorkbook.Path & "\ÜRÜNLER\"
resimler = Dir(resimYol & "*.*")
resim = 0
While resimler <> ""
DoEvents
resimlerAd = Mid(resimler, 1, Len(resimler) - 4)
If resimlerAd = Me.TextBox9.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")
Image1.PictureSizeMode = fmPictureSizeModeZoom
End Sub

 

[EMRAHSPN]

Private Sub TextBox9_Change()
resimYol = ThisWorkbook.Path & "\ÜRÜNLER\"
resimler = Dir(resimYol & "*.*")
resim = 0
While resimler <> ""
DoEvents
resimlerAd = Mid(resimler, 1, Len(resimler) - 4)
If resimlerAd = Me.TextBox9.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")
Image1.PictureSizeMode = fmPictureSizeModeZoom
End Sub

hocam cok tesekkur uyguladım
calıstı cok memnun kaldım mınnettarım

 

[byfika]

Rica ederim. İyi çalışmalar...