B2den İtibaren Tüm Alanın Silinmesi

[hakki83]

Excel Versiyonu

Excel 2016

Excel Sürümü

32 Bit

Excel Dili

Türkçe

Merhaba

Örnek dosyada RAPOR adlı sayfada bir buton vardır.
Bu butonla, ÇALIŞMA sayfasının B2’den itibaren tüm alanını silecek kodu yazabilir miyiz?

Gerçek dosyada hem ThisWorkbook kısmında hem de Çalışma sayfasında bir çok kod vardır, Veri Doğrulama vardır, Koşullu Biçimlendirme vardır.

Umarım kodlar çakışmaz.

 

Şartlı Olarak Satırların Taşınması

Açılan Sayfalara Otomatik Link Verme

[Ömer BARAN]

Şu kod istenileni yapacaktır.

Görüntülemek için giriş yapmanız gerekmektedir.
(8 satır)

 

[hakki83]

Ömer hocam teşekkür ederim. Fikrinize sağlık. Şimdi gerçek dosyamda denemelerle uğraşayım.
Umarım bir sorun çıkmaz.

 

[hakki83]

Ömer hocam

Denedim. Gerçek dosyamda bir sorun var. Dosya kilitleniyor. Normalde hiç sorun yok ama bahsi geçen bölgeyi manuel elle silince de kilitleniyordu.

Kilitlemeye neden olan bölümü araştırayım. Bulunca tekrar arz edeceğim.

Esenlikler dilerim.

 

[Ömer BARAN]

Sayfanın kod bölümündeki Worksheet_Change kodunu kontrol edin.

 

[hakki83]

Sayfanın kod bölümündeki Worksheet_Change kodunu kontrol edin.

Değerli Hocam aynen öyleymiş, sorunu buldum, tam mesaj yazıyordum ki, 5 nolu mesajınızı gördüm.

Tekrar örnek dosya hazırlıyorum.

 

[hakki83]

Sayfanın kod bölümündeki Worksheet_Change kodunu kontrol edin.

Ömer hocam örnek dosya hazırladım. Sorun çıkartan kodları da ekledim. Hem elle hem de düğmeyle silince hata veriyor, kilitleniyor.
(Gerçek dosyamda daha kötü oluyor.)

Thisworkbook ve sayfa taraflarında kodlar vardır.

 

[Ömer BARAN]

Son örnek belgenize bakmadım.

Veri silme kodunda;
-- silme işleminden önce>> Application.EnableEvents = 0
-- silme işleminden sonra>> Application.EnableEvents = 1
şeklinde iki satır ekleyin.

 

[hakki83]

Son örnek belgenize bakmadım.

Veri silme kodunda;
-- silme işleminden önce>> Application.EnableEvents = 0
-- silme işleminden sonra>> Application.EnableEvents = 1
şeklinde iki satır ekleyin.

Yaptım hata verdi Ömer hocam.


Çalışma adlı sayfada (denemek için) büyük bir alanı elle seçip elle deleteyle silince de hata veriyor.

 

[hakki83]

Bir düzeltme yapayım hocam,
Enable’leri ekleyince
Düğmeyle silince değil de, elle silince hata veriyor ve kilitleniyor.

 

[Ömer BARAN]

@hakki83

8 numaralı cevabımdaki açıklama tam anlaşılmamış sanırım.
Silme kodu derken kastım, 2 numaralı cevapta verdiğim kodlar idi.

Her neyse artık. Son örnek belgenizdeki kodlarda değişiklik yaptım. Denersiniz.

Hatta kopyala-yapıştır yöntemiyle toplu veri yazmayı da olaya dahil edeyim dedim.
Örneğin başka bir sayfaya kaynak listenizde olan/olmayan bir kaç veri yazıp, bu alanı kopyalayıp
hedef sayfaya yapıştırarak durumu görebilirsiniz.

 

[hakki83]

Ömer hocam teşekkürler. Peki B2’den itibaren tüm alanı seçip manuel sildiğimde dosya yine donuyor, bu sorunu çözebilir miyiz?

 

[Ömer BARAN]

Geniş alan denedim ama tüm alan olarak denememiştim, donma olmaması gerekir.
En fazla bekleme olabilir.
Şu an bilgisayarda değilim.