ComboBox ile birden fazla resim ve veri çağırma

[oblomov1812]

Herşeyden önce site yönetimine ve emeği geçen herkese böyle bir site hazırladıkları için teşekürler.
Amatör bir excel kullanıcısı olarak site içersinden çok şey öğrendim.

Benim sorunum şu;
İşyerimdeki ürünler için resimli ve barkodlu ürün etiketleri hazırlamaya çalışıyorum.
Site içersinden aldığım bir dosya ile bunu yapmaya çalıştım.
Fakat bir türlü 1 ComboBox ile birden fazla resim ve veri aratıp excel dosyama bilgi alamadım.

ComboBox' a yazdığım ürün kodu ile barkodunu, resmini ve tanımlar sekmeninden adının gelmesini istiyorum.
(Ek dosyada daha detaylı anlatmaya çalıştım)

Şimdiden yardımlarınız için teşekkürler.

 

[Ergün Güler]

Herşeyden önce site yönetimine ve emeği geçen herkese böyle bir site hazırladıkları için teşekürler.
Amatör bir excel kullanıcısı olarak site içersinden çok şey öğrendim.

Benim sorunum şu;
İşyerimdeki ürünler için resimli ve barkodlu ürün etiketleri hazırlamaya çalışıyorum.
Site içersinden aldığım bir dosya ile bunu yapmaya çalıştım.
Fakat bir türlü 1 ComboBox ile birden fazla resim ve veri aratıp excel dosyama bilgi alamadım.

ComboBox' a yazdığım ürün kodu ile barkodunu, resmini ve tanımlar sekmeninden adının gelmesini istiyorum.
(Ek dosyada daha detaylı anlatmaya çalıştım)

Şimdiden yardımlarınız için teşekkürler.

Selam,

eski tüm kodlarınızı siliniz.
Foto Sorgu Sayfasının Kod Bölümüne;

Private Sub ComboBox1_Change()
Dim ukod As Worksheet
Dim WF As WorksheetFunction
Dim bulunan As Range

Set ukod = Worksheets("Ürün Adları")
Set WF = WorksheetFunction

aranan = ComboBox1.Value

If aranan = "" Then Exit Sub

Set bulunan = ukod.Range("A1:A65536").Find(what:=aranan, _
LookIn:=xlValues, LookAt:=xlWhole)

If Not bulunan Is Nothing Then
satir = bulunan.Row
ActiveSheet.Range("A22") = ukod.Cells(satir, "B")

Image2.Picture = LoadPicture("D:\Etiket\BARKOD" & "\" & aranan & ".bmp")
Image1.Picture = LoadPicture("D:\Etiket\ÜRÜN" & "\" & aranan & ".jpg")
End If

End Sub

Private Sub Worksheet_Activate()
Dim ukod As Worksheet
Set ukod = Worksheets("Ürün Adları")

ukod_son = ukod.Range("A65536").End(3).Row

ComboBox1.Clear
ComboBox1.List = ukod.Range("A2:A" & ukod_son).Value

End Sub

daha sonra sayfanızı 1 kez aktif yapınız.

İyi çalışmalar.

 

[oblomov1812]

Ustam ellerine sağlık kaç gündür uğraşıyordum.
Teşekkürler.​

 

[Ergün Güler]

Ustam ellerine sağlık kaç gündür uğraşıyordum.
Teşekkürler.​

Selam,
Ben teşekkür ederim. Çözüm bulmanıza sevindim.
İyi çalışmalar.

 

[oblomov1812]

Excel sayfamı çok güzel çalışıyor ve kullanıyorum.
Fakat küçük bir sorunum var.
Comboboxtan Ürün Adlarında kaydı olan ve barkod klasöründe barkodu bulunan fakat Ürün klasöründe resmi olmayan ürünler sorgulandığında Run time error 53 Dosya yok hatası geliyor. Bu hata yerine ürünün resmi yoktur şeklinde bir hata bildirim pencerisi açtırabilirmiyiz.

 

[oblomov1812]

Google dan şöyle bir yazı buldum fakat ne yaptıysam Excel sayfama uyarlayamadım.

Hata Çeşitleri

Yazılış hataları
İşleyiş hataları
Mantık hataları

On Error Resume Next : Hata oluşması durumunda işleme devam edilir
On Error Goto Etiket : Hata oluşması durumunda etiket ile belirtilen işlemler yapılır
On Error Goto 0 : Hata kontrolü iptal edilir
Err.Number : Oluşan hatanın tanımlama numarasını verir
CVErr : Hata numarasını Error tipinde Variant olarak döndürür
IsError : Değişkenin bir variant yada Error olup olmadığını denetler

Private Sub Form_Click()
On Error GoTo Hata_Var
....
Picture1.Picture = LoadPicture("olmayan.bmp")
....
Hata_Var:
MsgBox (Err.Number)
If Err.Number = 53 Then
MsgBox "Gerekli Dosya Bulunamadı."
End If
End Sub


Yapmak istediğim Resmi olmayan parçalarda gelen hatanın uyarı ile yok sayılması.