Hücreye ilgili resmi çağırma

[newfather]

arkadaşlar forumdaki konular bana yardımcı olmadı yada ben uygulayamadım.
resim çağırmayı yaptım ama ya başka isimlerde yazsam resim geldi yada her entera bastığımda resim ismi yazılı hücreye atladı kısaca problemler çıktı.
gönderdiğim sadeleştirilmiş dosyada gerekli açıklamayı yaptım.
Yardımcı olabilirmisiniz?

 

[Merhum İdris SERDAR]

arkadaşlar forumdaki konular bana yardımcı olmadı yada ben uygulayamadım.
resim çağırmayı yaptım ama ya başka isimlerde yazsam resim geldi yada her entera bastığımda resim ismi yazılı hücreye atladı kısaca problemler çıktı.
gönderdiğim sadeleştirilmiş dosyada gerekli açıklamayı yaptım.
Yardımcı olabilirmisiniz?

.

Dosyanız ekte.

.

 

[newfather]

çok teşekkür ederim ellerinize sağlık istediğim tamda buydu.
Ama kodlara baktım kafam karıştı anlam veremedim resimler nereye gitti mesela? bunu aynı şekli ile benim varolan dosyama nasıl adapte edeceğim?
Dosyayı gönderemiyorum çünkü büyük ve kendim yaparak öğrenmek istiyorum..
Sizide yoruyorum ama kusura bakmayın..

 

[Merhum İdris SERDAR]

.

Gerekli açıklamalar burada var.

http://www.excel.web.tr/f136/personel-bilgileri-resimli-3-rnek-dosya-t22790.html

.

 

[newfather]

Ah bide çözebilsem bu kadar zahmete ne kendim giricem nede sizi uğraştırıcam ama olmuyo işte.
Ben sizin yönlerdiğiniz sayfadaki dosyaları hatim ettim zaten. Ama neyse artık olmuyosa olmuyo.
Yinede teşekkürler...

 

[Merhum İdris SERDAR]

Ah bide çözebilsem bu kadar zahmete ne kendim giricem nede sizi uğraştırıcam ama olmuyo işte.
Ben sizin yönlerdiğiniz sayfadaki dosyaları hatim ettim zaten. Ama neyse artık olmuyosa olmuyo.
Yinede teşekkürler...

.

Dosyanızı yukarıda linkini verdiğim dosyalardan PERSONEL-RESİMLİ.zip dosyasına göre yaptım.

Açıklayalım.

1. V ve W sütunlarına:
MOR Picture1
TURKUAZ Picture2
KIRMIZI Picture3

verilerini girdim.

2. Her resmin üzerini tıklayarak (siz MOR, KIRMIZI, TURKUAZ vermişsiniz) ben onların isimlerini
Picture1
Picture2
Picture3

şeklinde değiştirdim.

3. B6 hücresinde Veri Doğrulama ile açılır liste yaptım.

4. O3 hücresine =VLOOKUP(B6;V1:W3;2;0) formülünü yazdım. (Resmi Kenara çekerseniz, görürsünüz.)

5. Sayfa1 Worksheet Calculate olayına;

Option Explicit

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


kodlarını yazdım.


Bu durumda işlem tamam.


Not: Sizin resimleriniz sayfada bulunuyor.

Me.Pictures.Visible = False

Kodunda False'ı True yaparsanız, tüm resimlerinizi görürsünüz.


.

 

[newfather]

Sayın yurttaş
peki sadece bir şey sorayım ona cevap verin. Benim gönderdiğim resimler nerede?
sayfanın herhangi bir yerinde mi yoksa bir teknikle gizlendi mi?

 

[newfather]

pardon mesajı görmemişim

 

[newfather]

Tamam şimdi bütün taşlar yerine oturdu. Biraz zorlu olsada olayı kavradım. Böyle durumlarda belki biraz kızıyorsunuzdur ama işin temelini bilmeyince gerçekten zor oluyor. Yardımlarınız çok faydalı oluyor bizim gibi yeni başlayanlar için tekrar tekrar teşekkürler