arslancetin
Yeni Üye
Ö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
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