Vlookupla resim çağırma

[besen]

Merhaba sayın excelgurusu Yurttaş beyin hazırladığı bu dosya ile ilgili sorum var.

http://www.excel.web.tr/f136/personel-bilgileri-resimli-rnekleri-t22790.html


1- örnek dosyada belirtilen aşağıdaki komutu "Tablo" sheetine yazıyorum. resimdeki gibi makro hatası çıkıyor ve kaydetmiyor.

Option Explicit

Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("A1")
For Each oPic In Me.Pictures
If oPic.Name = .Text Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
Exit For
End If
Next oPic
End With
End Sub

2- resimleri tablo sheetinde A3 hücresine getirmek istiyorum, ancak sadece resmin ismi geliyor.

yardımlarınız için çok çok teşekkür.
saygılar.

 

[Mahir64]

MErhaba,

" http://www.excel.web.tr/f136/personel-bilgileri-resimli-rnekleri-t22790.html"

Konu balığınızı konunuzu özetleyecek şekilde değiştiriniz.

 

[besen]

MErhaba,

" http://www.excel.web.tr/f136/personel-bilgileri-resimli-rnekleri-t22790.html"

Konu balığınızı konunuzu özetleyecek şekilde değiştiriniz.

"Vlookupla resim çağırma." olarak değiştirdim.

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Dosyanız Ektedir.
--------------------------
Konuya Olumlu Veya Olumsuz
Dönüş Yapmanız.
Konuyu Takip Eden Diğer Site
Sakinleri Açısından Faydalı Olucaktır.

 

[besen]

Sayın Mahir Çümen hocam çok teşekkürler olmuş.

Biz faniler için bunun nasıl olduğunu anlamak da önemli.
Sayın Yurttaşın hazırladığı dosya ile, sizin yaptığınız örnek aynı değil. Bu bir sorun değil. Ancak benim anlayabilmem ve yaptığınız bu çalışmayı farklı yerlerde de kullanabilmem için, müsaadenizle bir iki sorum olacak.

1- Resimlerin geleceği hücreye bir şey yazmak gerekiyor mu?
2- Resimleri sizin bilgi sheetinde düzenlediğiniz gibi, isim ve yanına resim olarak altalta mı koymalıyız?
3- Resim yapıştırılacak hücreye resmin bilgşi sheetinde A49:b110 arasından getirileceğini nereye yazıyoruz?
4- Data Validation da seçili alanda hücre aralığı değil de, "ülke" yazılı. Bunu nasıl yaptınız?

teşekkürler.
saygılar.

 

[besen]

Merhaba, deneyerek sorularımın cevaplarını kendim buldum.
teşekkürler.