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
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
-
106.6 KB Görüntüleme: 19