Makro ile formülleri bozmadan alan temizlemek.

[kombo]

Selam
Aşağıdaki makro satırı ile seçili alanı temizliyorum.Ama C ve D sütunlarında formüllerim var onlarıda siliyor. C ve D sütunlarındaki formüllere (VE hücrelerdeki koşullu biçimlendirmelere) dokunmadan seçili alanı nasıl silebilirim?

.
.
.
Sheets("ANA SAYFA").Range("B7:F65536").ClearContents
.
.



Not..
Şöyle birşey buldum ama Makronun çalışması 10 saniye kadar uzadı.
For Each hucre In [b7:f65536]
If hucre <> Formula Then hucre.ClearContents
Next

 

[Seyit Tiken]

Ad Tanımlama'yı kullanınız. Silinmesi gereken yerler ayrı bir tanımlama; silinmemesi gereken yerler için de ayrı bir tanımlama kullanın. Niye 65 bin kusur satırı siliyorsunuz ki? Silinmesi gereken yere kadar hücre adresi belirtin. Silme işleminin 10 saniye sürmesinin nedeni, bir sütundaki bütün satırları silme komutunu çalıştırdığınızdan dolayıdır. Kodları esnek kullanmak lazım.

 

[kombo]

Sn Seyit Tiken
Bulmuş olduğum kodlar sn hamitcan'a aitti. Aynı topikte sizinde bir çalışmanız var sonradan farkettim. Alan adı ile silmek daha kolay olacak. 65536 satır olayında haklısınız. Satır sayısını düşürünce bayağı bir rahatladı ama yine de belli bir süre geçiyor. Bir de alan adı ile deneyeceğim. İlginiz için teşekkür ederim.

 

[Ali]

Sn kombo aşağıdaki linki inceleyiniz.

Kodlarını kendinize göre düzenlersiniz.

http://www.excel.web.tr/viewtopic.php?t=17952