formül olan hücreler silinmesin

[h.aykol_]

excel sayfasında bazı hücrelerde formül var.sayfayı tarayıp sildiğimde formüller silinmesin istiyorum.makro olarak nasıl olur.yardımcı olursanız sevinirim.

 

[emrexcel123]

bu şekilde bir deneyin...
Sub formullu_ise_silme()
Cells.SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub

 

[h.aykol_]

ilgine teşekkür EMREXCEL123 ama formülün oldugu hücreler dahil bir sayfayı tarayıp da sildiğimde formülde silindi.

 

[emrexcel123]

formüller silindi mi, "0" değeri mi ? aldı çünkü burada sadece sabitleri siliyor belirtmek isterim...

 

[h.aykol_]

İLGİNE TEŞEKKÜ EMREXCEL123
makro yu kopyaladı.çalıştırdım.
ondan sonra sayfayı taradım sildim formülde silindi.makroda formüllü hücre koruması istiyorum.

 

[emrexcel123]

dosyanı yollar mısın?... :???:

 

[h.aykol_]

emrexcel123 yazdığın makroyu kopyaladım.çalıştırdım.formül hariç tüm sayfayı silmiş.ben sadece tarayıp silmek istediğim bölgede formüller silinmesin istiyorum.sayfa koruması veya hücre koruması gibi.ama makro olarak.

 

[emrexcel123]

Sub formullu_ise_silme()
On Error GoTo hata
ara = InputBox("İçeriğini Silmek İstediğiniz Aralığı Seçin ve Ok 'i Tıklatın", "Aralık", "A2:F10")
Range(ara).SpecialCells(xlCellTypeConstants, 23).ClearContents
Exit Sub
hata:
MsgBox "Hiçbir Veri Bulunamadı", vbInformation, "Veri"
End Sub

 

[emrexcel123]

yahut userforma ekleyeceğin bir Refedit nesnesi ile de yapabilirsin...

 

[h.aykol_]

dosya ekte

dosya ekte ilgine teşekkür emrexcel123

 

[emrexcel123]

arkadaşım burada sabitler silindiği için formüllü hücrelerdeki değerler sıfır olması normal ...

 

[h.aykol_]

bu yazdığın makroda işimi görür
teşekkür emrexcel123

 

[h.aykol_]

tabiki sabitler sininince formüllü hücreler 0 olacak.ama önceki yazdığın makroda tüm sayfada formüllü hücreler harici silindi.ikinci yazdığın makro nisbeten işimi görür. ilgine teşekkür

 

[tahsinanarat]

Başka Bir Altarnatif

Eklemiş olduğunuz dosya istediğiniz şekilde düzenlenmiştir

 

[emrexcel123]

sn tahsinanarat arkadaşımız formül ve buna bağlı etkileyenlerin silinmemesini istiyor örneğinde rakam ve sabitler siliniyor belirtmek isterim...

 

[Korhan Ayhan]

Selamlar,

Sadece seçilen alandaki formül içermeyen hücrelerin içeriğini silmek için aşağıdaki kodu kullanabilirsiniz.

Sub SEÇİLEN_ALANDAKİ_FORMÜL_OLMAYAN_HÜCRELERİ_SİL()
    Selection.SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub