Belirli bir tarihte sayfadaki formullerin silinmesi

[unur]

Merhaba Arkadaslar;
Belirli bir tarih geldiginde makro ile sayfanin belirli bir bolumundeki formulleri nasil silebilirim.
orn.Yilbasinda sayfanin b4-e100 araligindaki formullerin silinmesini istiyorum.
Tesekkurler.
Klavyeden dolayi bazi karakterleri yazamadim ozur dilerim/

 

[Ömer]

Merhaba,

Sub Auto_Open()
If Date >= CDate("01.01.2010") Then
Sheets("Sayfa1").Range("B4:E100").ClearContents
End If
End Sub

.

 

[unur]

Merhaba.
Denemek icin bugunun tarihi yaptim ama tarih kismini sari renge boyuyor.Acaba bir yerde hatami yapiyorum.Tesekkurler/

 

[Ömer]

Merhaba.
Denemek icin bugunun tarihi yaptim ama tarih kismini sari renge boyuyor.Acaba bir yerde hatami yapiyorum.Tesekkurler/

Herhangi bir sorun yok, eki incelermisiniz. Tarih 2007 olarak girildiği için dosya açılışında B4:E100 aralığı silinecektir..

.

 

[unur]

Teşekkürler espiyonajl,
Ancak ben tamamını değil, sadece formul içeren hücrelerin silinmesini nasıl sağlayabilirim.

 

[tahsinanarat]

ThisWorkBook kısmını

Private Sub Workbook_Open()
If Format(Date, "dd.mm.yyyy") => CDate("08.09.2007") Then
For Each Sayfa In Worksheets
Sheets(Sayfa.Name).Range("B4:E100").Cells.Copy
Sheets(Sayfa.Name).Range("B4:E100").Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
'Next Sayfa
End If
End Sub

 

[Ömer]

Teşekkürler espiyonajl,
Ancak ben tamamını değil, sadece formul içeren hücrelerin silinmesini nasıl sağlayabilirim.

Merhaba,

Sub Auto_Open()
If Date >= CDate("01.01.2010") Then
Sheets("Sayfa1").Range("B4:E100").SpecialCells(xlCellTypeFormulas, 23).ClearContents
End If
End Sub

.