• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Personel Dosyasına resim eklemek

  • Konbuyu başlatan Konbuyu başlatan TİKOS
  • Başlangıç tarihi Başlangıç tarihi
T

TİKOS

Katılım
5 Aralık 2007
Mesajlar
383
Excel Vers. ve Dili
EXCEL 2007
INGILIZCE
sevgili üstadlarım,
Ekte dosyaya resim eklemek istiyorum. Dosyam önceki senelerde sitemizden alıntıdır. Emeği geçen arkadaşa ellerine sağlık.
Ben bu formda personel ismine tıkladığımda resmininde gelmesini istiyorum.
Destek olursanız çok sevinirim.
 

Ekli dosyalar

  • Personel Ozluk.xlsm
    Personel Ozluk.xlsm
    86.6 KB · Görüntüleme: 15
  • ahmet yılmaz.jpg
    ahmet yılmaz.jpg
    12.7 KB · Görüntüleme: 2
Son düzenleme:
Sadece excel dosyasını değil resimlerin olduğu klasörden örnek resimde eklemeniz gerekir. Eklenecek olan resmin yolu belirlenmelidir.
 
Son düzenleme:
çok teşekkürler
inşallah doğru yapmışımdır.
 
Dosya yolu dememiştim ben örnek resim eklermisiniz. Resimleri sicil ile mi isimlendiriyorsunuz, yoksa isimle mi vb gerekli.
 
Bir de listbox kodlarınız tam doğru değil.
 
hocam bilmiyorum bu şekilde çalışabiliyorum
resim isime tıkladığımda tüm bilgileri ile birlikte görünsün istiyorum

çok sağol
 
Listbox kodlarını aşağıdaki şekilde değiştirin.
Textbox değerlerini neden sürekli değiştirdiğinizi anlamadım.
Kod: 
Private Sub ListBox1_Click()
Set Syf0 = Worksheets("GENEL BİLGİLER")
Set Syf1 = Worksheets("İLETİŞİM BİLGİLERİ")
Set Syf2 = Worksheets("AİLE BİLGİLERİ")
Set Syf3 = Worksheets("KİMLİK BİLGİLERİ")
Set Syf4 = Worksheets("BANKA BİLGİLERİ")
'Set Syf5 = Worksheets("İCRA BİLGİLERİ")
Set Syf10 = Worksheets("İZİN BİLGİLERİ")
sicil = CLng(ListBox1.List(ListBox1.ListIndex, 0))
Dim son As Long
son = Syf0.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To son
    If sicil = Syf0.Cells(i, 1) Then
        Sat = i
        Exit For
    End If
Next i
'Sat = ListBox1.ListIndex + 2
SIRA.Caption = Sat
 TextBox1.Value = Syf0.Cells(Sat, 1).Value
 TextBox2.Value = Syf0.Cells(Sat, 2).Value
 TextBox3.Value = Syf0.Cells(Sat, 3).Value
 TextBox4.Value = Syf0.Cells(Sat, 4).Value
 ComboBox10.Value = Syf0.Cells(Sat, 5).Value
 ComboBox8.Value = Syf0.Cells(Sat, 6).Value
 TextBox51.Value = Syf0.Cells(Sat, 7).Value
 TextBox53.Value = Syf0.Cells(Sat, 8).Value
 ComboBox9.Value = Syf0.Cells(Sat, 9).Value
 TextBox5.Value = Syf0.Cells(Sat, 10).Value
 ComboBox2.Value = Syf0.Cells(Sat, 12).Value
' ComboBox1.Value = Syf0.Cells(Sat, 12).Value
 'ComboBox3.Value = Syf0.Cells(Sat, 13).Value
 ComboBox4.Value = Syf0.Cells(Sat, 15).Value
 ComboBox7.Value = Syf0.Cells(Sat, 16).Value
 TextBox6.Value = Syf0.Cells(Sat, 17).Value
 ComboBox28.Value = Syf0.Cells(Sat, 18).Value
' ComboBox6.Value = Syf0.Cells(Sat, 18).Value
 TextBox1.Value = Syf1.Cells(Sat, 1).Value
 TextBox2.Value = Syf1.Cells(Sat, 2).Value
 TextBox3.Value = Syf1.Cells(Sat, 3).Value
 TextBox4.Value = Syf1.Cells(Sat, 4).Value
 TextBox51.Value = Syf1.Cells(Sat, 5).Value
 TextBox53.Value = Syf1.Cells(Sat, 6).Value
 TextBox52.Value = Syf1.Cells(Sat, 7).Value
 TextBox27.Value = Syf1.Cells(Sat, 8).Value
 TextBox48.Value = Syf1.Cells(Sat, 9).Value
 TextBox1.Value = Syf2.Cells(Sat, 1).Value
 TextBox2.Value = Syf2.Cells(Sat, 2).Value
 TextBox3.Value = Syf2.Cells(Sat, 3).Value
 TextBox4.Value = Syf2.Cells(Sat, 4).Value
' TextBox11.Value = Syf2.Cells(Sat, 5).Value
' TextBox12.Value = Syf2.Cells(Sat, 6).Value
' ComboBox11.Value = Syf2.Cells(Sat, 7).Value
' TextBox70.Value = Syf2.Cells(Sat, 8).Value
' TextBox14.Value = Syf2.Cells(Sat, 9).Value
' TextBox15.Value = Syf2.Cells(Sat, 10).Value
' TextBox16.Value = Syf2.Cells(Sat, 11).Value
' ComboBox12.Value = Syf2.Cells(Sat, 12).Value
' ComboBox13.Value = Syf2.Cells(Sat, 13).Value
' TextBox61.Value = Syf2.Cells(Sat, 14).Value
' TextBox62.Value = Syf2.Cells(Sat, 15).Value
' TextBox63.Value = Syf2.Cells(Sat, 16).Value
' ComboBox42.Value = Syf2.Cells(Sat, 17).Value
' ComboBox43.Value = Syf2.Cells(Sat, 18).Value
' TextBox64.Value = Syf2.Cells(Sat, 19).Value
' TextBox65.Value = Syf2.Cells(Sat, 20).Value
' TextBox66.Value = Syf2.Cells(Sat, 21).Value
' ComboBox44.Value = Syf2.Cells(Sat, 22).Value
' ComboBox45.Value = Syf2.Cells(Sat, 23).Value
' TextBox67.Value = Syf2.Cells(Sat, 24).Value
 'TextBox68.Value = Syf2.Cells(Sat, 25).Value
' TextBox69.Value = Syf2.Cells(Sat, 26).Value
 'ComboBox46.Value = Syf2.Cells(Sat, 27).Value
' ComboBox47.Value = Syf2.Cells(Sat, 28).Value
 TextBox1.Value = Syf3.Cells(Sat, 1).Value
 TextBox2.Value = Syf3.Cells(Sat, 2).Value
 TextBox3.Value = Syf3.Cells(Sat, 3).Value
 TextBox4.Value = Syf3.Cells(Sat, 4).Value
 TextBox76.Value = Syf3.Cells(Sat, 5).Value
 TextBox75.Value = Syf3.Cells(Sat, 6).Value
 TextBox74.Value = Syf3.Cells(Sat, 7).Value
 TextBox32.Value = Syf3.Cells(Sat, 8).Value
 TextBox77.Value = Syf3.Cells(Sat, 9).Value
 TextBox33.Value = Syf3.Cells(Sat, 10).Value
 TextBox34.Value = Syf3.Cells(Sat, 11).Value
 TextBox35.Value = Syf3.Cells(Sat, 12).Value
 TextBox36.Value = Syf3.Cells(Sat, 13).Value
 TextBox29.Value = Syf3.Cells(Sat, 14).Value
 TextBox30.Value = Syf3.Cells(Sat, 15).Value
 TextBox1.Value = Syf4.Cells(Sat, 1).Value
 TextBox2.Value = Syf4.Cells(Sat, 2).Value
 TextBox3.Value = Syf4.Cells(Sat, 3).Value
 TextBox4.Value = Syf4.Cells(Sat, 4).Value
 TextBox38.Value = Syf4.Cells(Sat, 5).Value
 TextBox39.Value = Syf4.Cells(Sat, 6).Value
 TextBox40.Value = Syf0.Cells(Sat, 11).Value
 TextBox41.Value = Syf4.Cells(Sat, 8).Value
' TextBox1.Value = Syf5.Cells(Sat, 1).Value
' TextBox2.Value = Syf5.Cells(Sat, 2).Value
' TextBox3.Value = Syf5.Cells(Sat, 3).Value
' TextBox4.Value = Syf5.Cells(Sat, 4).Value
' TextBox43.Value = Syf5.Cells(Sat, 5).Value
' TextBox42.Value = Syf5.Cells(Sat, 6).Value
' TextBox79.Value = Syf5.Cells(Sat, 7).Value
' TextBox44.Value = Syf5.Cells(Sat, 8).Value
' TextBox45.Value = Syf5.Cells(Sat, 9).Value
 'TextBox46.Value = Syf5.Cells(Sat, 10).Value
' ComboBox48.Value = Syf5.Cells(Sat, 12).Value
 'ComboBox49.Value = Syf5.Cells(Sat, 11).Value
' TextBox1.Value = Syf10.Cells(Sat, 1).Value
 'TextBox2.Value = Syf10.Cells(Sat, 2).Value
 'TextBox3.Value = Syf10.Cells(Sat, 3).Value
' TextBox4.Value = Syf10.Cells(Sat, 4).Value
' TextBox56.Value = Syf10.Cells(Sat, 5).Value
 'TextBox54.Value = Syf10.Cells(Sat, 6).Value
 'ComboBox41.Value = Syf10.Cells(Sat, 7).Value
 'TextBox55.Value = Syf10.Cells(Sat, 8).Value
 'TextBox58.Value = Syf10.Cells(Sat, 9).Value
Dim resimler As String
Dim resimyok As String
    
    resimler = ThisWorkbook.Path & "\fotolar\" & sicil & ".jpg"
    If Dir$(resimler) = "" Then
        resimyok = ThisWorkbook.Path & "\fotolar\" & "yok.jpg"
        ÖRNEK.Picture = LoadPicture(resimyok)
    Else
        ÖRNEK.Picture = LoadPicture(resimler)
    End If
End Sub
 
hocam kusura bakmayın hata veriyor
dosya üstünde uygulayabilirseniz çok sevinirim.
çabalarınız için Allah razı olsun
 
Resimler exceell belgesinin olduğu klasör içerisinde fotolor klasöründe olduğu varsayılarak yazılmıştır.
resimler = ThisWorkbook.Path & "\fotolar\" & sicil & ".jpg"
ve
resimyok = ThisWorkbook.Path & "\fotolar\" & "yok.jpg" satırlarını değiştirebilirsiniz.
 

Ekli dosyalar

Userform resim getirme

Hocam bir turlu olmadı.
Bu tur başka dosya buldum sitede o dosyada resimleri getirtebiliyorum ama
kendi dosyama uyguladığımda bir turlu olmuyor.
Bir yerde basit hata yapıyorum zanlımca yardımcı olurmusunuz.
 

Ekli dosyalar

1. Sizin çalışmanızda aynı textboxları mükerrer doldurmanız hatalı.
2. Sheets("KİMLİK BİLGİLERİ").[A2:A65536].Find(TextBox2.Value).Select satırında TC kimlik numarasını A sütununda arıyorsunuz.
Ya Sheets("KİMLİK BİLGİLERİ").[A2:A65536].Find(TextBox1.Value).Select şeklinde yapmanız gerekli.Ya da Sheets("KİMLİK BİLGİLERİ").[B2:B65536].Find(TextBox2.Value).Select şeklinde yapmanız gerekli.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst