DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=EMETİNSE(FORMÜLMETNİ(G3))
Rica ederim.Dönüş yaptığınız için teşekkür ederim.Teşekkürler...
Sub FormülleriKoruyarakTabloTemizlemek()
On Error Resume Next
Set Sayfa = ThisWorkbook.Sheets("Sayfa1")
Set Alan = Sayfa.UsedRange
Alan.SpecialCells(xlCellTypeConstants, 1).ClearContents 'Değerleri Temizle
Alan.SpecialCells(xlCellTypeConstants, 2).ClearContents 'Metinleri Temizle
End Sub
Ben de bildiklerimi forumdaki değerli üyelerden öğreniyorum.Sizden de yeni bilgiler öğrendim.Paylaştığınız bilgi için çok teşekkür ederim.Lazım olduğunda kullanırım.Formülleri karıştırıken sizden sonra, "=EFORMÜLSE()" ile denedim.
Bekleyen iki adet koşullu biçimlendirme sorunum çözüldü.
Artı F5 bilgisi de cabası, aşağıdaki kodu anlamama yardımcı oldu.
Belli bir büyük alanın (sürekli) temizliği için.
Teşekkürler...
Kod:Sub FormülleriKoruyarakTabloTemizlemek() On Error Resume Next Set Sayfa = ThisWorkbook.Sheets("Sayfa1") Set Alan = Sayfa.UsedRange Alan.SpecialCells(xlCellTypeConstants, 1).ClearContents 'Değerleri Temizle Alan.SpecialCells(xlCellTypeConstants, 2).ClearContents 'Metinleri Temizle End Sub