B2den İtibaren Tüm Alanın Silinmesi

hakki83 · 11 Kas 2022

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.

Ömer BARAN · 11 Kas 2022

Şu kod istenileni yapacaktır.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(8 satır)

hakki83 · 11 Kas 2022

Ö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 · 11 Kas 2022

Ö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 · 11 Kas 2022

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

hakki83 · 11 Kas 2022

Ömer BARAN' Alıntı:
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 · 11 Kas 2022

Ömer BARAN' Alıntı:
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 · 11 Kas 2022

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 · 11 Kas 2022

Ömer BARAN' Alıntı:
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 · 11 Kas 2022

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

Ömer BARAN · 12 Kas 2022

@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 · 12 Kas 2022

Ö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 · 12 Kas 2022

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