Soru İNDİS+KAÇINCI ile birlikte klasörden makrosuz resim çektirme

Katılım
21 Mart 2015
Mesajlar
13
Excel Vers. ve Dili
Microsoft Office Professional Plus 2010
Altın Üyelik Bitiş Tarihi
01-11-2023
Merhabalar Ustalarım,

A1 hücresideki liste ile veriyi değiştirince 5-6 ayrı hücreye İNDİS+KAÇINCI ile veri çektiriyorum.
=İNDİS(bilgi!D:D;KAÇINCI(A1;bilgi!A:A;0))
Ancak aynı zamanda aynı işlemle başka bir hücreye de resim çektirmek istiyorum.
Resimleri Excel kitabının her hangi bir sayfasında eklenmiş resimlerden değil de klasörden çekmesini tercih ediyorum.
Klasörden resim çektirmeyi eş zamanlı olarak diğer hücrelerle birlikte İNDİS+KAÇINCI ile nasıl yapabilirim.
Yoksa, ayrı bir şekilde MAKRO ile mi yapmam gerekir.
Makro ile aşağıdaki formül ile yapabildim, fakat sadece bir hücreye resim çektirebiliyorum.
İki hücreye birden çektirme konusuna henüz gelemedim, Excel’de yeniyim, ne önerirsiniz.


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [p33]) Is Nothing Then Exit Sub
'hata kontlolü
On Error GoTo Çıkış
'Resimleri Sil
ActiveSheet.DrawingObjects.Delete
'Resim Yolunun Bulunması
Dim ResimYolu As Variant
Dim Resim As Object
ResimYolu = ActiveWorkbook.Path & "\" & Range("p33") & ".jpg"
'Resim oluştur
Set Resim = ActiveSheet.Pictures.Insert(ResimYolu)
'Resim Boyutlandır
With Range("p32" & satır)
Resim.Top = .Top
Resim.Left = .Left
Resim.Height = .Height
Resim.Width = .Width
End With
Çıkış:
End Sub

https://drive.google.com/open?id=1neIW8nJDJ19yGccn3pNhtZc54rVCc3ze
 
Üst