Excel resim ekleme

[üveyin]

arkadaşlar hücre içine veri yazınca verinin karsısında bulunan resim gelsin isitiyorum bunu yaparken alt satırlarada aynı yöntem ile devam etsin istiyorum. net ortamında araştırmamda aşağıdaki formül ile tek hücrede yapabiliyorum ben farklı veri farklı resimlerinde alt alta gelmesi için bir formül için ne yapmalıyım.

=İNDİS(data!$B$5:$B$21004;KAÇINCI($C$11;data!$C$5:$C$21004;0);1)

 

[üveyin]

arkadaşlar sayfa içine makro ile resim getirmek istiyorum, excel dosyam daki STOK adlı sekmemde 2100 satır var,bu satırdaki kodların başında resimler var yapmak istediğim LİSTE adındaki sayfada bu kodları yazınca resimlerinin ilk satıra gelmesini istiyorum bu hücredeki kodu silince de resim de gözükmesin istiyorum zamanla tüm resimleri tamamlayınca hangi kodu hangi satıra yazarmam o kodun karşılıgı olan resim gelsin istiyorum yardımlarını bekliyorum iyi geceler

 

[üveyin]

merhabalar, excelde farklı sekmeden kopyalama işlemi ve o hücredeki resimi getiriyor aşağıdaki kod ilgiline tüm arkadaşlara teşekkür ediyorum.
Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [C2:C1000]) Is Nothing Then Exit Sub

Application.EnableEvents = False

KalacağıSatır = Target.Row + 1

ActiveSheet.Pictures.Delete

SonSatır = ActiveSheet.Cells(Rows.Count, "C").End(3).Row
For Satır = 10 To SonSatır

On Error Resume Next

Yol = "B" & WorksheetFunction.Match(Range("C" & Satır), Worksheets("Resim Listem").Range("C:C"), 0)
If Err.Number > 0 Then
Err.Number = 0
Else
Worksheets("Resim Listem").Range(Yol).CopyPicture Appearance:=xlScreen, Format:=xlPicture
ActiveSheet.Range("B" & Satır).Select
ActiveSheet.Paste


Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.Placement = xlMoveAndSize

With Selection.ShapeRange
.Top = Range("B" & Satır).Top
.Left = Range("B" & Satır).Left
.Height = Range("B" & Satır).Height
.Width = Range("B" & Satır).Width


End With

End If