Yardım Formül eklediğim hücreden fotoğraf çekme makrosunu çalıştıramıyorum.

Öncelikle herkese iyi çalışmalar diliyorum. Bu kod örnek dosyadaki "malzeme bulma" sayfasının a1 hücresine "giriş" sayfasındaki malzemelerin sırasını girip düşeyara ile a3 hücresine malzemenin adını getirip, bu isme göre 6.satırda belirtilen yoldaki klasörden fotoğraf aratıp c3 hücresine resmini getirmek istiyorum. Ancak malzemenin isminin yazdığı a3 hücresine veriyi elle girdiğimde kod çalışıyor, düşeyara vs. bir formül yazdığımda kod çalışmıyor. VBA'ya yeni başladım. Basit bir şekilde anlatarak yardımcı olabilecek biri varsa çok sevinirim.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a3]) Is Nothing Then Exit Sub
On Error GoTo çıkış
ActiveSheet.DrawingObjects.Delete
Dim resimyolu As Variant
Dim Resim As Object
resimyolu = ActiveWorkbook.Path & "\" & Range("a3") & ".jpg"

Set Resim = ActiveSheet.Pictures.Insert(resimyolu)

With Range("c3")
Resim.Top = .Top
Resim.Left = .Left
Resim.Height = .Height
Resim.Width = .Width

End With

çıkış:

End Sub

Merhaba;
Kodlarınız ekteki gibi olabilir.
İnceleyin.