Kod ile Hücreleri Boşaltma

Katılım
24 Ocak 2005
Mesajlar
252
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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Aşağıdaki kodu dener misiniz?

Kod:
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
 
Katılım
24 Ocak 2005
Mesajlar
252
Merhaba,

Aşağıdaki kodu dener misiniz?

Kod:
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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Dosyanız ekte...
 
Katılım
24 Ocak 2005
Mesajlar
252
Necdet Bey Çok Teşekkürler ilginize.
Çalışmalarınızda Başarılar dilerim.
 
Üst