İki resim getirme

[zerali]

Arkadaşlar ben öğrencilerime verdiğim ödevlerde isimlerine tıkladığımda resimlerinin de çıkmasını istiyorum.Bu mümkün müdür? Şimdiden Teşekkürler

1_B_ODEV.xlsx dosyasını indir - download

1_B_ODEV.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[muygun]

Merhaba;
ekteki zip'i açın. (Uygulama dosyasının yanında resimler klasörü olacak).
resimler klasöründeki isimlendirmeyi dikkate alarak öğrenciler için resim ve öğr. resimlerini yerleştirin.
uygulama dosyasını 1 B ÖDEV deneyin.
İyi çalışmalar.

NOT:
Syn hamitcan'ın çözümünden sonra 2. sayfanın olduğunu farkettim.
Benim çözümü yok sayın.

 

[hamitcan]

Bu şekilde deneyin

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 14 Then Exit Sub
    If Target = Empty Then Exit Sub
    Sheets("resim").Columns(7) = Sheets("resim").Columns(6).Value
     Set x = Sheets("resim").Columns(7).Find(Target.Text)
      If Not x Is Nothing Then
        ActiveSheet.Shapes.Range(Array("Picture 3")).Select
        Selection.Formula = "=resim!" & Cells(x.Row, 1).Address
        ActiveSheet.Shapes.Range(Array("Picture 4")).Select
        Selection.Formula = "=resim!" & Cells(x.Row, 1).Address
      End If
      [t5].Select
End Sub

 

[zerali]

Çok teşekkürler muygun hocam ve hamitcan hocam. Ben bu kodu yapıştırdım ama fotoğraflar gelmedi. Yanlış bir şey mi yaptım acaba

 

[zerali]

muygun hocam isme tıkladığımda resim geliyor ama aşağıya uzayarak geliyor

 

[hamitcan]

Çok teşekkürler muygun hocam ve hamitcan hocam. Ben bu kodu yapıştırdım ama fotoğraflar gelmedi. Yanlış bir şey mi yaptım acaba

Ekli dosyada kod ilgili sayfanın içinde... Siz sadece N sütununda gezineceksiniz...

 

[zerali]

Yapamadım hocam yine de teşekkürler fotoğraflar gelmedi

 

[hamitcan]

Yanlış dosyayı eklemişim, kusura bakmayın.

 

[zerali]

Çok teşekkür ederim hamitcan hocam Emeğinize sağlık