![](\"http:\/\/www.yazilimmutfagi.com\/Uploads\/excel-sayfa-1.png\")
<\/p>\n\nBir excel sayfasinda girdiginiz bilgilere göre belirli bir klasör içindeki ilgili resmi alip excelin ilgili hücresine yazdirma ihtiyaciniz var ise bu makalemiz tam size göre.
\nBu makalemizde örnek olarak bir ürün listesi yapacagiz, Bu ürün listesinde bulunan ürünler içinden baska bir sayfada liste olusturacagiz. Listeye girilen ürün bilgisine görede ilgili ürün resmini klasör içinden bulup getirecegiz.
\nIlk olarak excel sayfamizi asagidaki gibi olusturulam. ilk sayfamizda ürünlerimizin idleri ve satis fiyatlarini yazalim, <\/p>\n\n
<\/p>\n\n
ikinci bir sayfa ekleyerek burada ilk sayfada ekledigimiz ürünlerin listesinin oldugu bir dropbox ekleyecegiz, bu dropboxdan ürünü seçtigimizde fiyat bilgisi ilk sayfadan otomatik olarak gelecek, bunu da düsey ara fonksiyonu ile yapacagiz. Bu kisimlari ayrintili olarak yazmiyorum, isteyen exceli asagidaki indirip inceleyebilir.<\/p>\n\n
![](\"http:\/\/www.yazilimmutfagi.com\/Uploads\/excel-sayfa-2.png\")
<\/p>\n\n
\nIlk kisimlari yaptikdan sonra, resmi klasor içinden bulup yükleme kismi kaliyor. Bunuda macro yazarak yapacagiz. Bu islemi yapabilmek için ilk olarak ürün idlerinin bulundugu b kolonunda bir degisiklik olup olmadigini kontrol ediyoruz, bir degisiklik var ise, id bilgisini alip, excel sayfamizin bulundugu klasör içinde ayni isimli bir jpg dosyayi açip Resim kolonuna yüklüyoruz. Bu islem için asagidaki macroyu yazmamiz gerekiyor.<\/p>\n\n
\nPublic Function DosyaVarmi(dosyayolu As String) As Boolean\n On Error GoTo Çikis\n If Not Dir(dosyayolu, vbDirectory) = vbNullString Then DosyaVarmi = True\n \nÇikis:\n On Error GoTo 0\nEnd Function\n\n'worksheette bir degisiklik oldugunda bu kisim çalisiyor\nPrivate Sub Worksheet_Change(ByVal Target As Range)\n\n'degisiklik b sutunundami olmus diye kontrol et, degilse direk olarak fonksiyondan çik\nIf Intersect(Target, [b:b]) Is Nothing Then Exit Sub\n\n'herhangi bir hata olusursa Çikis labelina git\nOn Error GoTo Çikis:\n\n' ilk olarak yüklü olan Resimleri silelim\nActiveSheet.DrawingObjects.Delete\n\nDim ResimDosyaYolu As String\nDim Resim As Object\n\n'b deki 5 ile 12 arasindaki satirlari kontrol edip resim atamasi yapiyoruz, siz burayi isteginize göre artirabilirsiniz\nFor i = 5 To 12\n 'aktif sayfanin path bilgisini alip, seçilen ürün idyi sonuna ekliyoruz ve dosyayi aliyoruz\n ResimDosyaYolu = ActiveWorkbook.Path & "\\" & Range("b" & i) & ".jpg"\n\n 'dosya yok ise hataya düsmemek için asagidaki kontrolü yapiyoruz.\n If DosyaVarmi(ResimDosyaYolu) Then\n ResimDosyaYolu = ActiveWorkbook.Path & "\\" & Range("b" & i) & ".jpg"\n Else\n ResimDosyaYolu = ActiveWorkbook.Path & "\\yok.jpg"\n End If\n \n 'resmi olusturuyoruz.\n Set Resim = ActiveSheet.Pictures.Insert(ResimDosyaYolu)\n 'Resmi boyutlandiriyoruz\n With Range("f" & i)\n Resim.Top = .Top\n Resim.Left = .Left\n Resim.Height = .Height\n Resim.Width = .Width\n End With\n\nNext i\n\nÇikis:\n\nEnd Sub\n \n<\/pre>\n\nSonuç olarak asagidaki gibi bir excel sayfamiz oluyor.<\/p>\n\n
![](\"http:\/\/www.yazilimmutfagi.com\/Uploads\/excel-sayfa-3.png\")
<\/p>\n\n
<\/p>\n\n
Excel dosyasi ve resimlerin oldugu klasörü asagidaki linkten indirebilirsiniz.<\/p>\n\n