Sayfayı Default temizlemek

[5353]

Sub sayfatemizle()
Sheets("Report").[A1:M130].ClearContents
End Sub


Sayfayı temizliyorum fakat, birleşmiş hücreler, çizgiler ve boyutlar kalıyor. Sayfayı, yeni bir sayfa haline gelecek şekilde silebilir miyiz. Default tertemiz bir sayfa olabilir mi ?

 

[YUSUF44]

Clearcontents yerine sadece Clear kullanabilirsiniz.

 

[5353]

Harika ustadım. Sütün genişliği 8,43 fakat önceki genişlik kaldı. Hücre biçimlerde, boyutları da değişmemiş gelebilir mi ?

 

[YUSUF44]

Deneyiniz:

Sub sayfatemizle()
Sheets("Report").[A1:M130].Clear
Range("1:30").EntireRow.RowHeight = 15
Range("A:M").EntireColumn.ColumnWidth = 8.43
End Sub

 

[5353]

Çok teşekkür ederim. Sağlık sıhhat diliyorum.