hücre içerikleri toplu halde nasıl temizlenir?

[beetle0]

selamlar.elimde taslak olarak hazırladığım bir dosya var.bu dosyada belirli hücrelere veriler giriliyor sonra bunlar otomatik hesaplanıyor.isteğim bu hesaplamalar veriler girilip sonuç görüldükten sonra tektek her hücreyi delete ile içeriğini silmektense. bunları 1 defada temizleme imkanımız varmı? bu tip bir komut verebilirmiyim?birde böyle bir işlemi yapmamız hücredeki formulu de yok edermi?

 

[xp45s]

aşagıdaki kodu kullandıgınız dosyada bir modüle ekleyiniz.kırmızı ile belirttigim aralıgı kendinize göre degiştiriniz.

Sub ResetModel()
  Range("[COLOR="Red"]A1:C3[/COLOR]").SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents

End Sub

 

[beetle0]

formüllülerde giderse bu iş sakata biner.tehlikeli! neyse o zaman değişiklik yapılacağında farklı kaydetle oluşturacağımız dosya üzerinde yapalım değişiklikleri hem zaten sonuçta değişikliğin yapılacağı dosyada saklanmak üzere oluşturulacak.arşivde tutulacak.cevabınıza teşekkürler...

konuyu değiştirmeden yeni bir soru daha sorayım!!oluşturduğum bu dosyaya kendi imzamı nasıl eklerim.yani kendi yaptığım orjinal dosya olduğu belli olsun millet ismini değiştiremesin.hani dosya üzerine geldiğimizde yazar şu falan yazıyor ya orayı nasıl sabitlerim????

 

[xp45s]

2 nolu mesajımdaki kodu degiştirdim.Bu şekilde formüller silinmez.Gerekli olan aralıgı siz belirleyin .

eger yapmış oldugunuz dosyanın isminin degiştirilmesini istemiyorsanızda aşagıdaki linki inceleyiniz.
http://www.excel.web.tr/showthread.php?t=81742&highlight=dosya+ismi

 

[ugurrrrrr]

Arkadaşlar merhaba,
2 numaralı mesajda bulunan kodu kullandığımda o an için boş olan hücre aralığında hata veriyor.
Nasıl bir düzeltme yapmamız lazım?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde kullanabilirsiniz.

Option Explicit
 
Sub HÜCRELERİ_TEMİZLE()
    On Error GoTo Son
    Range("A1:C100").SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents
Son:
    MsgBox "Sayısal değer içeren hücre bulunamadı !", vbCritical
End Sub

 

[ugurrrrrr]

teşekkürler.