resimli ürün kataloğu

[kuzeyyildizi1]

Sayın Ustalarım kolay gelsin,

Excel tabanlı bir katalog yapmaya çalışıyorum.
Önce tek bir şablon üzerinden combo box larla 100 farklı sayfa yaparak bunları PDF olarak kaydetmeyi düşünüyorum. Sanki dijital katalogların sayfa sayfa parçalanmış hali gibi. Ardından bu 100 farklı pdf dosyasından gerekli 10-20 adedini mail ile göndermek niyetim.
A1 Hücresini combo box (Veri doğrulama-Liste) ile değiştirdiğimde aynı şekilde diğer hücrelerdeki veriler de nasıl değişir ?

Ayrıca üç ayrı resim var, resimlerde ilgili hücrelerdeki yazılar değiştikçe değişir mi ?
Forumlardan hücreye resim çektirme diye baktım ancak resim çektirmeyi bu işlemlerle birlikte ya da ayrı yapabilir miyiz.
Bu arada Makro bilmiyorum, ama sayenizde öğreneceğiz inşallah, bu sefer biraz hazır bilgi istiyorum , biliyorum.

https://drive.google.com/open?id=17NeUR4z_Iy9gRWImdkrA3JeV_NR1bh5v

Teşekkür ederim
Zaim

 

[kuzeyyildizi1]

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