kodlarda hata...

[aliakgul]

Merhaba arkadaşlar,
Aşağıdaki kodlar ile çalışma sayfasındaki image nesnesine, seçilen kişinin resmini getirtiyordum.Bu uygulamayı çalışma sayfasında değil de, bir userform üzerinde yapmak istedim.
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\resim\" & a & ".jpg") kod satırı, a tanımlı jpg resmini çağırıyor.
10 Image1.Picture = LoadPicture(ThisWorkbook.Path & "\resim\logo.jpg") kod satırı ise, ilgili adreste a tanımlı bir jpg resmi bulunamazsa logo adlı resmi çağırıyor.
Kodları çalışma sayfasından alıp, userformda uygulayınca, sürekli olarak logo resmi çağırılıyor, yani a tanımlı resim bir türlü getirilmiyor. Kodlarda ne gibi düzenleme yapmalıyım?
Herkese iyi geceler dilerim...
_____________________________________________________________
On Error GoTo 10
a = Format(txtuye, "0").Value
If Intersect(Target, a) Is Nothing Then Exit Sub
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\resim\" & a & ".jpg")
Exit Sub
10 Image1.Picture = LoadPicture(ThisWorkbook.Path & "\resim\logo.jpg")

 

[Levent Menteşoğlu]

"target" tanımlamasının yerine hücrenin adını yazın.

 

[Recep İpek]

If Intersect(Target, a) Is Nothing Then Exit Sub

Bu satırdaki a bilgisi adres olması gerekiyor.Örneğin [A2] gibi...

 

[aliakgul]

Merhaba,
Dediğiniz gibi, userform üzerinde çalışıyorum. Her ikinizin dediği şekilde de uyguladım ancak sonuç değişmedi.Kodlar üzerinde uygulayarak tekrar yazar mısınız?
Çağırılacak resmin adı TextBox'daki değer.

 

[Recep İpek]

If Intersect(Target, a) Is Nothing Then Exit Sub

Bu satır ile Textbox'daki yolumu kontrol etmek istiyorsunuz?

 

[aliakgul]

userformdaki comboboxdan bir kişi seçince textbox üzerinde kişinin nosu görüntüleniyor. image nesnesinde kişinin resmini görüntületmek istiyorum.
Resimler kişilerin numaraları ile isimlendirildi.

On Error GoTo 10
a = Format(txtuye, "0").Value
If Intersect(Target, a) Is Nothing Then Exit Sub
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\resim\" & a & ".jpg")------> textboxda numarası olan kişinin resmini çağıracak...
Exit Sub
10 Image1.Picture = LoadPicture(ThisWorkbook.Path & "\resim\logo.jpg")------>Eğer adresde o kişiye ait resim yoksa logo adlı resmi çağıracak.

 

[Recep İpek]

Peki If Intersect(Target, a) Is Nothing Then Exit Sub satırı ne işe yarıyor?

 

[aliakgul]

Hocam bu kodları çalışma sayfasındaki bir uygulamada kullanıyordum ve başkasından yararlanmıştım. Bahsettiğin satırın fonksiyonu konusunda bir bilgim yok...

 

[Recep İpek]

O zaman bu satırı silerek tekrardan deneyin.

 

[aliakgul]

Sevgili Ripek,
Allah razı olsun.Ben buna takmıştım.Ki, bunu çözmeden yatsam kesin uyuyamazdım.Bir kere takıntı yaptım ya, iki gündür kafa yoruyordum; çalışma sayfasında çalışıyordu da userformda niye çalışmadı, diye...
Tekrar teşekkür ederim, iyi geceler dileklerimle...

 

[Recep İpek]

Sizede hayırlı geceler...