Çözüldü Dosyadaki pdf ve resimleri temizlemek

A

Akif59

Yıllık Forum Üyesi
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba
Dosyayı temizlemek istediğimde butona ilişkilendirilmiş kodlar ile tüm sayfayı temizleye biliyorum.
her yani çalışmada dosyaya nesne ekle diyerek PDF Dosyaları ve kopyalayarak bir adet resim ekliyorum tüm dosyayı temizlemek istediğimde nesne olarak eklediğim PDF leri ve kopyalayarak eklediğim görseli de temizlemek istiyorum. yardımlarınızı rica ediyorum.
 

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Belgede silinmeyecek nesneleri birer birer seçip,
formül çubuğunun sol başındaki alana yazarak özel birer isim verin (sil, pdf, islem gibi).
Ardından da mevcut veri temizleme kod blokunda kırmızı satırın altına yeşil olanları ekleyin.

VBA: 
İçeriği görüntülemek için giriş yapmalısınız
(6 satır)

.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Belgede silinmeyecek nesneleri birer birer seçip,
formül çubuğunun sol başındaki alana yazarak özel birer isim verin (sil, pdf, islem gibi).
Ardından da mevcut veri temizleme kod blokunda kırmızı satırın altına yeşil olanları ekleyin.

VBA: 
İçeriği görüntülemek için giriş yapmalısınız
(6 satır)

.
Genişletmek için tıklayın ...
Sayın BARAN merhaba
izah ettiğiniz gibi silinmemesi gereken resim ve nesnelere özel isimler verdim kodu belirttiğiniz şekilde güncelledim bu hatayı aldım.
sunuda belirtmek isterim ben her yeni çalışmada eklediğim nesne yada resimlere excel resim7 resim8 nesnesi4 nesnesi5 gibi isimler veriyor. hatayı bu yüzden alıyor olabiliriyim


1626626964253.webp
 
Moderatörün son düzenlenenleri:
Oyla 0 Olumsuz oyla
Verdiğim koddaki For.... satırının üstüne aşağıdaki satırı da ekleyin.
ActiveSheet.OLEObjects.Delete
Yine hata alırsanız bu kez kodun başına On Error Resume Next diye bir satır daha eklersiniz.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Verdiğim koddaki For.... satırının üstüne aşağıdaki satırı da ekleyin.
ActiveSheet.OLEObjects.Delete
Yine hata alırsanız bu kez kodun başına On Error Resume Next diye bir satır daha eklersiniz.
Genişletmek için tıklayın ...
Sayın BARAN
Resimleri ve Nesneleri temiyle ye biliyorum fakat buton olarak kullandığım nesneler de temizleniyor.
ilk mesajınızda silinmesini istemediklerinize formül şeridinin solunda ad bölümünde özel isim verin demişsiniz dediğiniz gibi silinmesini istemediklerime özel isim verdiğim halde siliyor.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Verdiğim koddaki For.... satırının üstüne aşağıdaki satırı da ekleyin.
ActiveSheet.OLEObjects.Delete
Yine hata alırsanız bu kez kodun başına On Error Resume Next diye bir satır daha eklersiniz.
Genişletmek için tıklayın ...
Sayın BARAN
Örnek dosyada 3 nesne vardı gerçek dosyada nesnelerin hepsini kodun içinde belirtince sorun çözüldü desteğiniz için Teşekkür ederim
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.

Benzer İçerikler Popüler İçerikler Daha Fazlası

Konuyu başlatan
A
Akif59
Yıllık Forum Üyesi
Katılım
Konu Bilgi
Durum
Çözüldü 
Forum
Excel Makro Soruları
Başlangıç tarihi
Son yanıt tarihi
Cevaplar
6
Üst