excelde seçtiğim isme karşılık gelen resim

[vassago1974]

ekteki dosya iki sayfadan oluşmaktadır
markalar sayfasında isimler ve resimler bulunyor.
marka bak kısmında ise seçtğim isme karşılık
gelen resmi görmek istiyorum..

yardımlarınız için şimdiden teşekkürler

kolay gelsin

 

[SGM020]

Ekteki dosya işinize yarar mı?

Kolay gelsin.

 

[vassago1974]

üstadım elinize sağlık
müthiş olmuş ya...

yalnız nasıl yapıldığını çözemedim
püf noktalarını açıklarsanız sevinirim

saygılarımla....
eyup.isik@gamil.com

 

[osan003]

Arkadaşlarbir arkadaş dosya ekliyorum diyor,diğer arkadaş çok beğendiğini belirtiyor,bendeniz bu dosyayı bir türlü göremiyorum,açıklama yaparmısınız.

 

[Levent Menteşoğlu]

Dosya orada duruyor, görememeniz çok ilginç aşağıdaki linki tıklayın.

http://www.excel.web.tr/download.php?id=5962

 

[osan003]

Malesef mesajları görüyorum ama ortada iki adet dosya olması gerekiyor, ne yazıkki hiçbiri yok.

 

[osan003]

Sayın Leventm dosyaya sizin gösterdiğiniz linkten ulaştım.

 

[Levent Menteşoğlu]

Forumdan çıkıp tekrar bağlanmayı deneyin. Dosyaları sadece sizin görememeniz pek mümkün olmayan bir durum.

 

[ufux]

resimlerin bulunduğu dosya var mı? resimleri nereden getiriyor acaba açıklarsanız sevinirim

 

[SGM020]

üstadım elinize sağlık
müthiş olmuş ya...

yalnız nasıl yapıldığını çözemedim
püf noktalarını açıklarsanız sevinirim

resimlerin bulunduğu dosya var mı? resimleri nereden getiriyor acaba açıklarsanız sevinirim

Dosya konusunda açıklama istenmiş memnuniyetle yapmaya çalışacağım.

1.Sheet1 A2 hücresi Data/Validation ile yapılmış.
2.Sheet2 de Araba markaları ile Sheet1'e yapıştırdığımız resimlerin Picture .... numaraları yer alır. (Picture numaraları Sheet1'e yapıştırdığımız resmin üstüne gittiğimizde Range Name'lerin gözüktüğü sol üstte görünür.
3.Sheet1'e aşağıdaki kod yazılmış:
Option Explicit

Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("C2")
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

Burada "Me.Pictures.Visible = False" "True" yaparsanız yapıştırılan tüm resimleri görürürsünüz. "With Range("C2")" "C2" resmin hangi hücrede görüneceğini belirtir.

4. "C2" hücresinde "=VLOOKUP(A2; PicTable;2; FALSE)" formülü yer alır. Bu formül hangi hücrede yer alacaksa kodda da o hücre belirtilmelidir.

5. Formülde belirtilen "PicTable" Sheet2'deki veri alanımzın range adıdır. Ã?rnek dosyada 20 satıra kadar yapılmış bunu artırabilirsiniz.

6. Resimleri Sheet1'e yapıştırıyorsunuz. Sheet2'de resmin adını ve resmin numarasını ilgili yerlere yazıyorsunuz.

İnşallah anlatabilmişimdir.

Kolay gelsin