a sütunu isimler b sütunu resimleri

[miniatürk]

ÇOKK ÖNEMLİ
arkadaşlar a sütununda isimlerini yazdığım modellerin b sütununda karşılarına resimlerinin gelmesini istiyorum yardımcı olursanız sevinirim
Ayrıca bir resme isim vererek tanımlıyorum ve ( örneğin MODENA ismi veriyorum, herhangi bir hücreye =MODENA yazdığım zaman Resim17 yazıyor, oysa ben MODENA isimli resmin gelmesini istiyorum bu mümkünmü ?

Yardımlarınız için şimdiden çok teşekkürler
Acil cevaplara İhtiyacım var, saygılar

 

[Ferhat Pazarçevirdi]

Önce, "Sayfa1" adlı sheet'deki tüm resimleri isimlendiriniz. Şöyle ki; resim seçin ve AD kutusuna çağıracağınız ismi yazın. Örneğin, BERGAMO modelini temsil eden resim nesnesini seçiniz. Formül çubuğunun sol tarafında "AD kutusu"na,"BERGAMO" yazın. Diğer resimleri de uygun şekilde isimlendirin.

Daha sonra aşağıdaki kodları "Liste" adlı sheet'in kod sayfasına kopyalayın.

Siz A sütununda bir isim yazdığınızda B sütununa aynı isimdeki resim gelir. Eğer daha önce B kutusunda bir resim varsa önce o silinir daha sonra yeni resim getirilir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
Dim oRes As Shape
If Not Intersect(Target, Range("A:A")) Is Nothing Then
      For Each oRes In Me.Shapes
            If Not Intersect(Target.Offset(0, 1), oRes.TopLeftCell) Is Nothing Then
                  oRes.Delete
            End If
      Next
      Set sh = Sheets("Sayfa1")
      For Each oRes In sh.Shapes
           If oRes.Type = msoPicture Then
                If oRes.Name = Target Then
                      oRes.Copy
                      Target.Offset(0, 1).PasteSpecial
                      With Selection
                            .ShapeRange.Height = Target.Offset(0, 1).Height
                      End With
                End If
           End If
      Next
      Target.Select
      Set sh = Nothing
End If
End Sub

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz.

 

[mami68]

Ekli dosyayı inceleyiniz.

Sayın Seyit Tiken;Ben bunu grafik ile yapıyorum ama siz başka bir yoldan yapmışsınız formülü gördüm, veri doğrulamasınıda gördüm , ama Resimi nerden eklediniz anlatırmısınız.Saygılar

 

[Seyit Tiken]

İstenilen resmi bir 1.sayfaya kopyalayın > Resmin, Ad Kutusundaki ismini Sayfa 2 deki B sütununa yazın.

 

[mami68]

Açıklama için teşekürler.Ama resmin Ad kutusunda "Resim 63" yazdığımda resim kayboluyor bidahada görünmüyor.Hatam nerede?

 

[mami68]

Sayın Seyit Tiken hatayı buldum.Çalışıyor,hata 2-ci sayfada Picture kelimesinde, Resim yazınca çalışmaya başladı.Tekrar Teşekürler ederim...

 

[Merhum İdris SERDAR]

Sayın Seyit Tiken hatayı buldum.Çalışıyor,hata 2-ci sayfada Picture kelimesinde, Resim yazınca çalışmaya başladı.Tekrar Teşekürler ederim...

Daha geniş bilgi için:

http://www.excel.web.tr/showthread.php?t=22790&highlight=resimli

.

 

[mami68]

Sayın Yurttas ilginize teşekürler...