Soru Resimli personel tablosu

[vuranoğlu]

Merhaba
Userform4 personel bilgileri ne ComboBox1 ile Image2 ye resimleri getirmeye çalışırken aşağıdaki hatayı alıyorum.
Bu hatayı nasıl düzelte bilirim?
Yardımcı olan arkadaşlara şimdiden teşekkürler.

 

[Muzaffer Ali]

Merhaba.
Hata veren satırın altında bulunan end if ve end with önündeki tırnak işaretlerini kaldırın

 

[AdemCan]

Merhaba, ComboBox1_Change kodlarını değiştiriniz.

Private Sub ComboBox1_Change()
ComboBox1 = Evaluate("=UPPER(""" & ComboBox1 & """)")
Dim kls As String, ds, f
ComboBox1.RowSource = "PERSONEL_BİLGİLERİ!d2:d65536"
kls = ThisWorkbook.Path & "\"

Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder(kls)
 
dosya = kls & ComboBox1 & ".jpg"
If ds.FileExists(dosya) Then
    Image2.Picture = LoadPicture(dosya)
Else
    Image2.Picture = LoadPicture("")
End If


Sheets("PERSONEL_BİLGİLERİ").[D2:D65500].Find(ComboBox1.Value).Activate
TextBox74 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 2).Value
TextBox76 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 5).Value
TextBox102 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 1).Value
TextBox79 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 9).Value
TextBox77 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 6).Value
TextBox78 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 8).Value
TextBox100 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 7).Value
TextBox80 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 10).Value
TextBox81 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 12).Value

TextBox83 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 13).Value
TextBox82 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 14).Value
TextBox84 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 15).Value
TextBox85 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 16).Value
TextBox91 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 23).Value
TextBox86 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 17).Value
TextBox87 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 18).Value
TextBox88 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 19).Value
TextBox103 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 20).Value

TextBox89 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 21).Value
TextBox90 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 22).Value
TextBox91 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 23).Value
TextBox92 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 24).Value
TextBox93 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 26).Value
TextBox94 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 28).Value
TextBox95 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 29).Value
TextBox96 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 30).Value
TextBox97 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 31).Value

TextBox98 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 25).Value
TextBox99 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 27).Value
'TextBox102 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 1).Value
'TextBox79 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 9).Value
'TextBox77 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 6).Value
'TextBox78 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 8).Value
'TextBox100 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 7).Value
'TextBox80 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 10).Value
'TextBox81 = Sheets("PERSONEL_BİLGİLERİ").Cells(ActiveCell.Row, 12).Value
End Sub

 

[vuranoğlu]

Merhaba
Sayın Muzaffer Ali

Merhaba.
Hata veren satırın altında bulunan end if ve end with önündeki tırnak işaretlerini kaldırın

Bu işlem sorunu çözmedi.
Emeğiniz için teşekkürler.

 

[vuranoğlu]

Merhaba
Sayın AdemCan
Düzeltiğiniz kod ile çalışıyor.
Teşekkürler.
ComboBox1 çalıştırıldığında Textbox a ( soyadı ) ad soyad geliyor.
Nasıl bir düzeltme gerekecek?

 

[vuranoğlu]

Sorun çözüldü .
İlgilenen arkadaşlara teşekkürler.