- 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
;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
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
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