Dosyadaki pdf ve resimleri temizlemek

  • Konuyu başlatan Konuyu başlatan Akif59
  • Başlangıç tarihi Başlangıç tarihi

Akif59

Kullanıcı
Katılım
28 Tem 2022
Mesajlar
450
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.
 
BOŞ HÜCRELERİ KOD İLE GİZLEMEK
ToggleButton ile koşullu satır gizleme gösterme

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: 
İndirmek için giriş yapmanız gerekmektedir.
(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: 
İndirmek için giriş yapmanız gerekmektedir.
(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
 
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
Nesnelere verdiğiniz ADları kodda belirtince silinmemesi gerekir.
Kodda ADı kulllanılanlar istisna olanlar.

Belgede, işlem düğmeleri dışındaki nesneler siliniyor.
 

Ekli dosyalar

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 Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt