Kod ile Hücreleri Boşaltma

[teknik]

Arkadaşlar Benim sorum şu
Ekli dosyada aylık ekders puantaj var ve ben koşullu Biçimlendirme ile hafta sonlarını kırmızı olarak hücreleri biçimlendirdim. Birde hafta sonlarına rast gelen hücrelerde yazılı sayılar varsa onların silinmesini istiyorum. Bunu formülle yaptığım zaman oluyor ama hafta içi günlere bir değer girdiğimde mecburen formül siliniyor.
Benim istediğim şey formül yerine kod ile bunu nasıl yapabiliriz?
Yani dosyada hafta sonlarına gelen hücrelerdeki veriler otomatik silinsin ama hafta içi günlere gelen hücrelere veri girebileyim.

 

[Necdet]

Merhaba,

Aşağıdaki kodu dener misiniz?

Public Sub Tatil_Sil()
For i = 14 To 44
If Cells(5, i) = "Cumartesi" Or Cells(5, i) = "Pazar" Then
Range(Cells(11, i), Cells(33, i)).ClearContents
End If
Next i
End Sub

 

[teknik]

Merhaba,

Aşağıdaki kodu dener misiniz?

Public Sub Tatil_Sil()
For i = 14 To 44
If Cells(5, i) = "Cumartesi" Or Cells(5, i) = "Pazar" Then
Range(Cells(11, i), Cells(33, i)).ClearContents
End If
Next i
End Sub

Sayın Necdet bey verdiğiniz kodu denedim ama sonuç alamadım.
Eğer Mümkünse ekli dosyaya siz ekleyip tekrar ek olarak vermeniz mümkün mü?

 

[Necdet]

Merhaba,

Dosyanız ekte...

 

[teknik]

Necdet Bey Çok Teşekkürler ilginize.
Çalışmalarınızda Başarılar dilerim.