Hücre Biçimini bozmadan VBA ile içeriği silinebilir mi ?

[CengizYurek]

Merhabalar
VBA ile tablomdaki hücreleri temizliyorum ancak tablo tasarımımda siliniyor. Bunun önüne nasıl geçebilirim ?

A2:E32 arasındaki satırları biri koyu diğeri açık renk olacak şekilde renklendirdim ancak temizlenince gidiyor hepsi.

 

[dEdE]

Merhaba,
Hücreleri temizlediğiniz kodu paylaşırsanız daha net yanıt verilebilir.
Olsa olsa yöntemine başvuralım. Clear komutu kullanmış olmalısınız. Bunun yerine ClearContents kullanarak dener misiniz?

 

[CengizYurek]

Merhaba,
Hücreleri temizlediğiniz kodu paylaşırsanız daha net yanıt verilebilir.
Olsa olsa yöntemine başvuralım. Clear komutu kullanmış olmalısınız. Bunun yerine ClearContents kullanarak dener misiniz?

Teşekkür ederim dediğiniz yapmıştım aynı problem devam etmişti.
Bende çözüm üretmek adına şöyle yaptım.
Makro Kaydet başlattım
Biçimlendirmek istediğim hücreleri seçip gerekli tasarımları düzenledim.
Makroyu sonlandırıp hazırlanan kodları kendi kodlarıma entegre ettim. Böylece sayfayı temizledikten sonra tasarımı yapıştırıyor ve gerekli verileri yazdırıyor. Boyut büyüdükçe sistem biraz yavaşlayabilir ama şuan için işim görüldü.

 

[Korhan Ayhan]

Sizin mesajınızdan sonra şimdi bir deneme yaptım.

"ClearContents komutu acaba tablo olarak biçimlendirilmiş hücrelerde farklı bir tepki mi veriyor dedim."

Mantık olarak mümkün değil. Çünkü bu komut hücrelerin biçimiyle ilgilenmez. Sadece içerdiği veriyi temizler.

Doğal olarak aşağıdaki kod bloğundaki 3 satırdan birisini kullanarak işinizi görebiliyor olmanız gerekir.

Option Explicit

Sub ClearContents_My_Rng()
    Range("A2:E32").ClearContents
    Range("A2:E32").Value = Empty
    Range("A2:E32").Value = ""
End Sub

Aşağıdaki kod bloğu ise TABLO adını kullanarak içerik temizlemektedir. Yine kod bloğundaki 3 satırdan birisini tercih edebilirsiniz.

Option Explicit

Sub ClearContents_My_Rng()
    Range("Table1").ClearContents
    Range("Table1").Value = Empty
    Range("Table1").Value = ""
End Sub