Makro ile formülleri bozmadan alan temizlemek.

Katılım
17 Şubat 2006
Mesajlar
981
Excel Vers. ve Dili
M.Office Excel 2003 Tr.
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

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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.
 
Katılım
17 Şubat 2006
Mesajlar
981
Excel Vers. ve Dili
M.Office Excel 2003 Tr.
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.
 
Üst