On Error GoTo yardım.

[alikemal_84]

Merhaba Macroya yeni başlayan olarak ufak tefek işime yarayan programlar yapıyorum. Aşağıdaki kodda ComboBox1'e fazla veya olmayan bir değer girildiği zaman hata veriyor. Bu hata olduğu zaman TextBox lar boş kalsın resimde yüklenmesin istiyorum. Fakat kod çalıştığı zaman kırmızı renkli yerde hata veriyor yanlış olan ne anlayamadım. yardımlarınızı bekliyorum.

Private Sub ComboBox1_Change()
Range("B:B").Select
On Error GoTo 10
Selection.Find(ComboBox1).Select
TextBox1.Value = ActiveCell.Offset(0, 0).Value
TextBox2.Value = ActiveCell.Offset(0, 3).Value
TextBox3.Value = ActiveCell.Offset(0, 4).Value
TextBox4.Value = ActiveCell.Offset(0, 5).Value
TextBox5.Value = ActiveCell.Offset(0, 1).Value
TextBox6.Value = ActiveCell.Offset(0, 2).Value
GoTo son
10:
TextBox1.Value = ("")
TextBox2.Value = ("")
TextBox3.Value = ("")
TextBox4.Value = ("")
TextBox5.Value = ("")
TextBox6.Value = ("")
Range("A1").Select
On Error GoTo hata
Image1.Picture = LoadPicture("C:\urun_resim\" & TextBox6 & ".jpg")
GoTo son
hata:
Image1.Picture = LoadPicture("")
son:
End Sub

 

[bedersu]

Sayın alikemal_84,
Örnek bir dosya her zaman doğru cevaplar almanızı hızlandırır.Kodlardan anladığım kadarıyla Textbox6 hemen üstteki satırda boşaltılıyor.Dolayısıyla loadpicture olarak isimsiz bir jpg dosyası kullanılıyor.Bu da hata veriyor.O satırı textbox6 boşaltılmadan önceye taşırsanız sorun hallolur sanıyorum.Olmazsa örnek dosya koymanız bize yardımcı olacaktır.

 

[alikemal_84]

Cevabınız için teşekkürler bedersu arkadaşım dediğiniz gibi hata gitti ama en son bulduğu resim hala orada kalıyor. Halbuki ben boş olsun istiyorum kodları aşağıdaki gibi değiştirdim. ve ayrıca hata verdikten sonra doğtu kodu yazınca resmi yenilemiyor.

Private Sub ComboBox1_Change()
Range("B:B").Select
On Error GoTo 10
Selection.Find(ComboBox1).Select
TextBox1.Value = ActiveCell.Offset(0, 0).Value
TextBox2.Value = ActiveCell.Offset(0, 3).Value
TextBox3.Value = ActiveCell.Offset(0, 4).Value
TextBox4.Value = ActiveCell.Offset(0, 5).Value
TextBox5.Value = ActiveCell.Offset(0, 1).Value
TextBox6.Value = ActiveCell.Offset(0, 2).Value
GoTo son
10:
TextBox1.Value = ("")
TextBox2.Value = ("")
TextBox3.Value = ("")
TextBox4.Value = ("")
TextBox5.Value = ("")
On Error GoTo hata
Image1.Picture = LoadPicture("C:\urun_resim\" & TextBox6 & ".jpg")
GoTo son
hata:
Image1.Picture = LoadPicture("")
TextBox6.Value = ("")
Range("A1").Select
son:
End Sub

 

[alikemal_84]

Sorunu şu şekilde çözüldü resim yüklemeyi değiniz gibi textbox6nın boşaltılmasından önceye taşıdım ve boş bir resim oluşturup ismini BOS yaptım hata olduğu zaman o resmi getiriyor ve artık silip doğu kodu yazıncada eskisi gibi yeni sorgu yapıp doğru resmi getiriyor. Yardımlarınız için teşekkürler bedersu arkadaşım. Eğer başka sorunum olursa gene buraya yazarım.

Private Sub ComboBox1_Change()
Range("B:B").Select
On Error GoTo 10
Selection.Find(ComboBox1).Select
TextBox1.Value = ActiveCell.Offset(0, 0).Value
TextBox2.Value = ActiveCell.Offset(0, 3).Value
TextBox3.Value = ActiveCell.Offset(0, 4).Value
TextBox4.Value = ActiveCell.Offset(0, 5).Value
TextBox5.Value = ActiveCell.Offset(0, 1).Value
TextBox6.Value = ActiveCell.Offset(0, 2).Value
Range("A1").Select
On Error GoTo hata
Image1.Picture = LoadPicture("C:\urun_resim\" & TextBox6 & ".jpg")
GoTo son
hata:
Image1.Picture = LoadPicture("")
GoTo son
10:
TextBox1.Value = ("")
TextBox2.Value = ("")
TextBox3.Value = ("")
TextBox4.Value = ("")
TextBox5.Value = ("")
TextBox6.Value = ("BOS")
son:
End Sub

 

[bedersu]

Sayın alikemal_84,
Siz değerli kardeşlerimizin sorunlarını halledebilmek bizlere inanılmaz bir haz veriyor.Hiçbir karşılık beklemeden sorulara cevap vermeye çalışan tüm arkadaşlara teşekkür ediyorum ben de.Her türlü soru ve sorununuzu buradan paylaşabilirsiniz.elimizden geldiğince yardımcı olmaya çalışacağız İnşallah.