personel listesi için hücreye resim ekleme yardım

[teknolok]

arkadaşlar herkese iyi günler ben uzun zamandır belki sizin için çok basit olan bir olayı çözmeye çalışıyorum fakat yapamadım. sizlerden yardımlarınız bekliyorum.

excelde bir personel bilgi listesi var ve sağ tarafta herhangi bir hücrede resim olacak. listeden ismine tıkladığımız personelin resmi sağdaki hücrede görünmesi gerekiyor. olay bununla bitmiyor. resimlerin herhangi bir yerde kayıtlı olmaması gerekiyor yani excel içine gömülmüş olması şart. çünkü bu hazırlanan listeyi tablet te kullanmak gerekiyor. tablet üzerinden sadece izleme amaçlı kullanacağız. yani kişinin ismine tıkladığımızda sağda resmi görünsün olay bu.

lütfen, engin fikirlerinize sığınıyorum.

 

[cengizank]

Lürfen buraya bakınız
ARADIĞINIZ EXCEL SORULARI-FONKSİYONLAR_WEB EXCEL LÜTFEN TIKLAYINIZ

 

[klejua]

resim ekleme

benim sorunum aynı gibi sorum excelden bir program hazırladım burda istediğim ilk sayfada ismini yazdığım zaman sağdaki resim ekleme yerine o kişinin resmini getirmek ekte sunuyorum saygılarımla

 

[halit3]

benim sorunum aynı gibi sorum excelden bir program hazırladım burda istediğim ilk sayfada ismini yazdığım zaman sağdaki resim ekleme yerine o kişinin resmini getirmek ekte sunuyorum saygılarımla

Sorunuzu sorarken başka soru soranların açtığı konu başlıklarına sorunuzu sormayın kendiniz yeni bir konu başlığı açın.

Aşağıdaki kodu form sayfasının kod bölümüne koyun ve e2 hücresi değerine göre resimler gelecek

not: sayfa1 deki resimler hücreleri taşmaması gerek yoksa kod farklı algılar

kod:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E2")) Is Nothing Then Exit Sub
Cancel = True
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("FORM")
 
aranan = s2.Cells([COLOR=red]2, "E").[/COLOR]Value
Dim Picture As Object
'On Error Resume Next
sat1 = 3
sat2 = 13
sut1 = "N"
sut2 = "P"
Set Adres = Range(Cells(sat1, sut1), Cells(sat2, sut2))
For Each Picture In ActiveSheet.Shapes
If Not Intersect(Range(Picture.TopLeftCell.Address & ":" & Picture.BottomRightCell.Address), Adres) Is Nothing Then
'If Adres.Address = Picture.TopLeftCell.Address & ":" & Picture.BottomRightCell.Address Then
Picture.Delete
Exit For
End If
Next Picture
 
For Each Picture In s1.Shapes
If TypeName(s1.Shapes(Picture.Name).OLEFormat.Object) = "Picture" Then
satir = Picture.BottomRightCell.Row
bulunan = s1.Cells(satir, 1).Value
If aranan = bulunan Then
s1.Shapes(Picture.Name).Select
s1.Shapes(Picture.Name).CopyPicture
Range("f7").Select
ActiveSheet.Paste
Selection.Top = Adres.Top + 3
Selection.Left = Adres.Left + 3
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = Adres.Height - 4
Selection.ShapeRange.Width = Adres.Width - 4
End If
End If
Next Picture
Application.CutCopyMode = False
Range("E2").Select
End Sub

benzer link aşağıdada işlendi

http://www.excel.web.tr/f48/hucreye-resmi-ko-ullu-yerle-tirmek-t124245.html

 

[klejua]

hocam yaptım ama olmadı

 

[klejua]

hocam dediğiniz yaptım isim yazdığım zaman resim geliyor ama sayfa 1 deki yere isim yazmayınca geliyor istediğim resim gelmiyor

 

[halit3]

hocam dediğiniz yaptım isim yazdığım zaman resim geliyor ama sayfa 1 deki yere isim yazmayınca geliyor istediğim resim gelmiyor

4 nolu mesajdaki dosyanın kırmızı yerini yanlış yazmışım düzelttim ve dosyanıda ekledim.

 

[klejua]

şimdi oldu teşekkürler

 

[teknolok]

arkadaşlar tüm forumda cevap bulamadım. açılan kutular ile seçim yaparak değil sadece isim üzerine fare ile tıklayınca yanda resim görünmeli. lütfen yardım

 

[halit3]

arkadaşlar tüm forumda cevap bulamadım. açılan kutular ile seçim yaparak değil sadece isim üzerine fare ile tıklayınca yanda resim görünmeli. lütfen yardım

Böyle cevap almanız zor örnek dosyanızı kısa bir açıklama ile ekleyin

Bakınız bu konu başlığında başka kişininde örnek dosyası ve sorusu var cevap almış