Formülleri silmeyen kod nasıl olur?

[assenucler]

Dostlar merhabalar;


"A" sayfası "E8:O100" aralığında formüller ile oluşan verilerim var. Formüller kalacak şekilde bu aralığı silecek kod nasıl olmalıdır?

Teşekkürler.

 

[Erdem Akdemir]

Merhaba,

Tag'daki kodu dener misiniz.

Sub sil()

For Each alan In Sheets("a").Range("E8:O100")

If Not alan.HasFormula = True Then alan.ClearContents

Next
End Sub

 

[assenucler]

Merhaba,

Tag'daki kodu dener misiniz.

Sub sil()

For Each alan In Sheets("a").Range("E8:O100")

If Not alan.HasFormula = True Then alan.ClearContents

Next
End Sub

Silme işlemi gerçekleşmedi. Aşağıdaki ekran çıktı.

 

[assenucler]

Ben formül bulunan aralıktaki sayıları silsin, formüller kalsın istiyorum. Kod sadece N8:N100 aralığını sildi.

 

[Erdem Akdemir]

Örnek ekler misiniz.

 

[assenucler]

Dosya ilişiktedir.

 

[Erdem Akdemir]

Merhaba,

E8:O100 aralığında hepsinde formül var.
C ve D sütunlarındaki sayıların silinmesini istiyorsanız, kodda ki aralığı E8:O100 değil C8:O100 yapın.

 

[assenucler]

Sayın kuvari,


Çok teşekkür ederim.

Sevgi ve saygılar.

 

[Mustafa MUTLU]

Sayın kuvari,


Çok teşekkür ederim.

Sevgi ve saygılar.

Sayın assenucler
Dosyanızda silme işlemine gerek kalmayacak şekilde yeniden hazırladım
Önceki açtığınız konuya bakınız...

 

[assenucler]

Sayın Mutlu,


Aceleci olduğumdan değil; sizin gibi üstatların işte çalışırken, hiç bir menfaat beklemeden dinlence zamanlarınızda yaptığınız yardım ve katkılar, her türlü takdirin üzerindedir.

Size fazla yük olmamak ve öğrenmek amacıyla bu konuyu açtım. Bilmeyerek yanlış bir anlaşılma olmuşsa, kusura bakmayın.

Sevgi ve saygılar.