UserForm

[yağızbaba]

User Form öğrenmeye çalışırken verilen ersteki kodlardan aşağıdaki kırmızı yerdeki kodu yazdığımda doğru yazmama rağmen hata veriyo acabe neden öğrenebilirmiyim. teşk.

Private Sub ComboBox1_Change()
Dim a
On Error GoTo hata
Range("B:B").Select
Selection.Find(ComboBox1).Select
TextBox1.Value = ActiveCell.Offset(0, 0).Value
TextBox2.Value = ActiveCell.Offset(0, 1).Value
TextBox3.Value = ActiveCell.Offset(0, 3).Value
TextBox4.Value = ActiveCell.Offset(0, 4).Value
GoTo 10
MsgBox "Aradığınız İsimde Bir Kişi Yok.İsmi Doğru Yazıp Yazmadığınızı Kontrol Ediniz"
10
Range("A1").Select
Image1.Picture=LoadPicture("Cocuments and Settings\123\Belgelerim\Resimlerim\"&Combobox1&".jpg"
End Sub

Private Sub UserForm_Activate()
ComboBox1.RowSource="Sayfa1!B2:B"&_WorksheetFunction.CountA (Worksheets("Sayfa1").Range("B1:B65536"))
End Sub

 

[Skorpiyon]

Sayın yağızbaba,

Sanırım bu kodları bir yerden tanıyorum

Image1 ile başlayan satırdaki hatanız ;
Burada Siz, kendi bilgisayarınıza ait yolu yazmalısınız. Bilgisayarınızda kayıtlı bulunan resim nerede ise, o yol yazılmalı. Bu kod benim makineme ait olan yoldu. Dersi biraz daha dikkatli takip ederseniz, orada 1 uyarı yazmıştım. "Siz kendi makinenizde kayıtlı olan yolu yazın" gibi birşeydi.

Combobox ile başlayan satırdaki hatanız ;
B sütununda hiç veri olmamasından kaynaklanır. (En az B2'de veri olmalıdır)

 

[yağızbaba]

Ekli dosyada B2 sütunu dolu B7 ye kadar veri var ama yine hata veriyor.Resim olayı düzeldi.Teşekkürler Üstad ama zor iş bu çok yavaş ilerliyorum.SABIR..

 

[wishm]

İlk sorunuziçin; dosya yolu doğru tanımlayınız.

İkinci sorunuz için; hata veren kodu aşağıdaki şekilde düzeltiniz.

Private Sub UserForm_Activate()
ComboBox1.RowSource = "Sayfa1!B2:B" & WorksheetFunction.CountA(Worksheets("Sayfa1").Range("B1:B65536"))
End Sub

Saygılarımla.

 

[yağızbaba]

Dosya yolu doğru sanıyorum ama yine hata veriyo kdoun sunundaki .jpg" yerinde mi hata acaba teşekkürler.

Image1.Picture=LoadPicture("D:\Programmlar\RESİMLERİM\resim\"&Combobox1&".jpg"

 

[yağızbaba]

Bir yardım edin çözemedimneden hata verdiğini.bir türlü resimleri göstermiyor.tşk.

 

[yağızbaba]

Yardım edebilecek kimse yokmu..?

 

[Skorpiyon]

Sayın yağızbaba,

Yardım için resim değil, excel dosyanızın kendisini ekleyin.