Excel Sayfaya Resim Getirmede Hata Hk

skaan

Altın Üye
Katılım
11 Mart 2005
Mesajlar
261
Excel Vers. ve Dili
Microsoft 365
Altın Üyelik Bitiş Tarihi
12-11-2025
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
 

Ekli dosyalar

Mehmet Şahin

Destek Ekibi
Destek Ekibi
Katılım
13 Ekim 2005
Mesajlar
1,406
Excel Vers. ve Dili
Excel 2010 - 2013 Türkçe - İngilizce
Merhaba,
kodunuz sayfada resim bulamadığı için çalışmıyor. Bir iki ufak eklenti;
Kod:
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
 
Son düzenleme:

skaan

Altın Üye
Katılım
11 Mart 2005
Mesajlar
261
Excel Vers. ve Dili
Microsoft 365
Altın Üyelik Bitiş Tarihi
12-11-2025
Ü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

Destek Ekibi
Destek Ekibi
Katılım
13 Ekim 2005
Mesajlar
1,406
Excel Vers. ve Dili
Excel 2010 - 2013 Türkçe - İngilizce
2 no'lu mesajı güncelledim. Onları deneyin. İyi çalışmalar.
 

skaan

Altın Üye
Katılım
11 Mart 2005
Mesajlar
261
Excel Vers. ve Dili
Microsoft 365
Altın Üyelik Bitiş Tarihi
12-11-2025
Yardımlarınız için çok tesekkur ederım..
Saygılarımla..
SKAAN
 

Mehmet Şahin

Destek Ekibi
Destek Ekibi
Katılım
13 Ekim 2005
Mesajlar
1,406
Excel Vers. ve Dili
Excel 2010 - 2013 Türkçe - İngilizce
Rica ederim, iyi geceler.
 
Üst