Excel Sayfaya Resim Getirmede Hata Hk

[skaan]

Merhaba;
Excel Sayfaya Resim getirme kodlarını daha önce siz üstadların yardımı ile yapmıştım. Ancak kodları kullandıgım halde sayfaya yeni bir resim eklemek için gerekli eklemeleri yaptıgım halde vba da devamlı olarak "Belirtilen Öğe Bulunamadı" hata uyarısı alıyorum ve resmi getiremiyorum..
Ornek Kodlar aşağıdadır.. Ayrıca hata aldıgım ornek dosyamı da gonderiyorum..
Sizden ricam bana yardımcı olabılırmısınız.. Tıkandım kaldım..
Hayırlı gunler dılerım..

Kod :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$E$23" Then Exit Sub
Application.ScreenUpdating = False
ActiveSheet.Shapes("Resim").Delete
Sheets("Resim").Select
ActiveSheet.Shapes([E23]).Copy
[T20].PasteSpecial
Sheets("Genel").Select
Selection.ShapeRange.Name = "Resim"
[E23].Select
End Sub

 

[Mehmet Şahin]

Merhaba,
kodunuz sayfada resim bulamadığı için çalışmıyor. Bir iki ufak eklenti;

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$E$23" Then Exit Sub
Application.ScreenUpdating = False
Sheets("Resim").Visible = True
On Error Resume Next
ActiveSheet.Shapes("Resim").Delete
Sheets("Resim").Select
ActiveSheet.Shapes([E23]).Copy
Sheets("Genel").[T20].PasteSpecial
Sheets("Genel").Select
Selection.ShapeRange.Name = "Resim"
Sheets("Genel").[E23].Select
Application.CutCopyMode = False
Sheets("Resim").Visible = False
Application.ScreenUpdating = True
End Sub

 

[skaan]

Üstad çok teşekkür ederim..
Yardımlarınız çin sağolun..
Resim Sayfasını gizledıgımde kodların calısması ıcın ne yapmam gerekli acaba..
Cunku Resim Sayfasını gizlemek istiyorum...

SKAAN

 

[Mehmet Şahin]

2 no'lu mesajı güncelledim. Onları deneyin. İyi çalışmalar.

 

[skaan]

Yardımlarınız için çok tesekkur ederım..
Saygılarımla..
SKAAN

 

[Mehmet Şahin]

Rica ederim, iyi geceler.